Question

在文件MS WORD中，我希望选择一个“ /”并将所有字符加粗，直到以下^ p。以下代码仅适用于首次出现。在文件中，我有很多次出现，因此无法在整个文件中应用。不幸的是，我与“ for ... next”等游戏尝试了几次，但没有成功。

非常感谢您的帮助！詹卢卡

Sub bold_title()

Set myRange = ActiveDocument.Content

Selection.Find.ClearFormatting
With Selection.Find
 .Text = "/"
  .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Extend
Selection.Find.ClearFormatting
With Selection.Find
    .Text = "^p"
    .Forward = True
    .Wrap = wdFindAsk
    .Format = False

End With
Selection.Find.Execute
Selection.Font.Bold = True

End Sub

Answer 1

诀窍是“折叠” Selection-就像按右箭头键一样-以便下一个搜索在“找到的”文本之后开始：

Selection.Collapse wdCollapseEnd

通常，使用Do While...Loop构造来重复Find直到文档末尾。如果您在此处和Internet上的其他位置进行搜索，则会发现很多示例。

为使此方法成功运行，请确保将Wrap设置为wdFindStop（而不是如所示代码中当前设置的wdFindContinue）。

在整个文档中进行选择

1 个答案: