VBScript из Excel в Word

Question

Надеюсь, кто-то может мне помочь в этом. Ниже приведен сценарий VB в Excel и создается новый документ Word. Код скопирует изображение из Excel в Word. Затем он создаст и разместит TextBox над изображением. Затем он будет помещать текст в TextBox. Этот код работает правильно.

Set wrdApp = CreateObject("Word.Application") 
wrdApp.Visible = True 
Set wrdDoc = wrdApp.Documents.Add 

Sheets("Sheet1").Shapes("Picture1").Copy 
wrdApp.Selection.Paste 


With wrdDoc.Shapes.AddTextBox(msoTextOrientationHorizontal, 200, 150, 96, 50) 
    .Select 
    .Name = "TextBox1" 
End With 


With wrdApp.Selection 
    .ShapeRange.Fill.Visible = 0 
    .ShapeRange.Line.Visible = 0 
    .TypeText Text:="My picture text" 
End With 

Как уже упоминалось, приведенный выше код действительно работает. Проблема в том, что мне нужно поместить это в цикл, чтобы снова скопировать изображение (число Х). Когда я пишу код, чтобы поместить его в цикл, он вставляет дополнительный снимок в TextBox, потому что последний был выбран. Мне как-то нужно закодировать что-то вроде клавиш Ctrl + End, чтобы он довел курсор до конца документа и вне TextBox. Я не могу заставить это работать.

Для того, чтобы сделать это, мне нужно использовать этот код:

Selection.EndKey Unit:=wdStory 

Так правильное место, чтобы вставить его в код должен быть в этом разделе, как и то, что я ниже:

With wrdApp.Selection 
    .ShapeRange.Fill.Visible = 0 
    .ShapeRange.Line.Visible = 0 
    .TypeText Text:="My picture text" 
    .EndKey Unit:=wdStory 
End With 

Это дает мне ошибку VB, когда я добавляю эту строку. Теперь, если я скопирую этот код в Word и запустил его из Макро, он будет работать отлично. Однако этот код находится в Excel и должен создавать все в Word.

Может кто-нибудь рассказать мне, как я могу его получить, чтобы он перемещал курсор из TextBox и до конца документа? Я знаю, проблема в том, что код находится в Excel и пытается перейти в Word, должен быть какой-то способ заставить его работать или аналогичный код с использованием ASCII. Я пробовал все, что мог придумать, и искал часы для решения.

Спасибо за любую помощь кто-то может предоставить,

Chris

Answer 1

Если я правильно понимаю ваш вопрос, это работает для меня:

With wrdapp.ActiveDocument 
    .Range(.Range.Characters.Count, .Range.Characters.Count).Select 
End With 

Редактировать

Попробуйте это (добавьте материал, удалите материал, посмотрите, что работает):

With wrdapp.ActiveDocument 
    .Range(.Range.Characters.Count, .Range.Characters.Count).Select 
    .GoTo wdgotobookmark, name:="\EndOfDoc" 
    Selection.Move wdCharacter, .Characters.Count 
End With 

Answer 2

Хотя это может быть не идеальный способ, код ниже очистит выделение в Word, перемещая фокус из текстового поля.

wrdApp.Activate 
SendKeys "{ESC}"