Word VBA: While 循环直到什么都没找到

Question

我在 ms word 中有一个执行查找操作的 vba 代码。

它找到了一条具有特定颜色的线。转到该行的开头从剪贴板粘贴到行尾。

Selection.Find.ClearFormatting
Selection.Find.Font.Color = wdColorDarkRed
With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchKashida = False
    .MatchDiacritics = False
    .MatchAlefHamza = False
    .MatchControl = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.HomeKey Unit:=wdLine
Selection.PasteAndFormat (wdFormatOriginalFormatting)

我不太懂编码。只想执行此查找操作，直到找到所有行并且什么都没有为止。也许是 if 或 while 循环？

Answer 1

复制任何你想复制的内容到剪贴板，然后使用普通的Find/Replace，其中：

Find = your font colour
Replace = ^c^&

并选择“全部替换”。

无需代码，但您可以将其录制为宏。也不需要循环。

Word VBA: While 循环直到什么都没找到

Word VBA: While loop to do until Found nothing

vba

ms-word