Question

所以我有一个用户表单，用于在某些书签中填充带有文本的模板。为了便于查看插入的文本，我希望用黄色突出显示。是否有一种方便的方法为每个插入的文本执行此操作而不键入，选择它然后突出显示它？作为一个例子，这是我的代码的一部分看起来像atm：

With ActiveDocument
   Options.DefaultHighlightColorIndex = wdYellow
   '[highlight=yellow].Bookmarks("Modtager").Range.Text = TxtModtager.Value[/highlight]
  .Bookmarks("Modtager").Range.Text = TxtModtager.Value
  .Bookmarks("KSnr1").Range.Text = txtKSnr.Value
  .Bookmarks("KSnr2").Range.Text = txtKSnr.Value

第一行似乎没有做任何事情 - 即使没有打开选项，新文本仍然没有突出显示。

第二行是我在其他网站上找到的内容，但由于它不起作用而必须进行评论。

最后三行插入实际文本，我猜你可以选择先选择书签，然后选择Selection.TypeText Text：=“我需要什么值”，然后再选择一个新短语（怎么做？）并选择.HighlightColorIndex = wdYellow。

应该有更好的方法，任何建议？：）

Answer 1

这对我有用：

SetBkmkText "Modtager", TxtModtager.Value
SetBkmkText "KSnr1", txtKSnr.Value
SetBkmkText "KSnr2", txtKSnr.Value


Sub SetBkmkText(bkmk as String, NewText as String)
    With ActiveDocument.Bookmarks(bkmk).Range
        .Text = NewText 
        .HighlightColorIndex = wdYellow
    End With
End Sub

在MS Word中的书签处插入突出显示的句子？

1 个答案: