Поиск закладки и вставка текста
Необходимо найти в документе закладку "a2" и вставить после нее текст. Но вставляется текст в самом начале страницы. Удалил закладку - все равно вставляет в начало страницы.
[word_obj.Documents.Application.Selection.GoTo What:=wdGoToBookmark, Name:="a2"
If word_obj.Selection.Bookmarks.Exist("a2") Then
word_obj.Documents.Application.Selection.TypeText Text:="SSSSSSSSS"
End If]
[word_obj.Documents.Application.Selection.GoTo What:=wdGoToBookmark, Name:="a2"
If word_obj.Selection.Bookmarks.Exist("a2") Then
word_obj.Documents.Application.Selection.TypeText Text:="SSSSSSSSS"
End If]
Попробуй так:
Document.Bookmarks("a2").range.Text = Document.Bookmarks("a2").range.Text & NewText
После выполнения закладка удаляется. Чтоб обойти можно сделать так:
Dim r as Range
set r = Document.Bookmarks("a2").range
r.Text = r.Text & NewText
Document.Bookmarks.Add "a2", r
Document.Bookmarks("a2").range.Text = Document.Bookmarks("a2").range.Text & NewText
После выполнения закладка удаляется. Чтоб обойти можно сделать так:
Dim r as Range
set r = Document.Bookmarks("a2").range
r.Text = r.Text & NewText
Document.Bookmarks.Add "a2", r