Word bookmarks.

[Gogic]

Доброго времени.
Вопрос такой: как вставить подчеркнутое слово через коллекцию Bookmarks в Word VBA?

Код: Выделить всё

objWord.ActiveDocument.Bookmarks("bk019").Range.Text = "blabla"
objWord.ActiveDocument.Bookmarks("bk019").Range.Font.Underline = wdUnderlineWords

Не хочет подчеркивать ((.

[viter.alex]

Вы где-то ошибаетесь. А именно:

1. Текст закладки нужно задавать не так. То, что вы делаете — это замена всей закладки на новый текст, а затем обращение к уже несуществующей закладке
2. Поскольку вы обращаетесь к Word из другого приложения, то вместо wdUnderlineWords нужно писать ее числовой эквивалент — 2

Текст закладки нужно изменять так:

Код: Выделить всё

'процедура для обновления закладок. Требует для своей работы указать закладку и новый текст
Public Sub UpdateBookmarks(ByVal oBm As Bookmark, ByVal sNewBmText As String)
  Dim oRng As Range
  Dim oParent As Object
  Dim sBmName As String
  With oBm
    Set oParent = .Parent
    Set oRng = .Range
    sBmName = .Name
  End With
  oRng.Text = sNewBmText
  oParent.Bookmarks.Add sBmName, oRng
End Sub
Sub ПримерОбновленияСодержимогоЗакладки()
  UpdateBookmarks ActiveDocument.Bookmarks("dffdf"), "Новое содержимое закладки"
  ActiveDocument.Bookmarks("dffdf").Range.Font.Underline = 2
End Sub

[Gogic]

Спасибо.