Word 2010 VBA 宏：循環到文檔結尾

Question

我已經錄制了一個簡單的宏來查找單詞“Quantity”，轉到該行的末尾並插入一個回車符。 我需要將它重復到文檔的末尾並退出，否則我將陷入無限循環。

編碼：

     Selection.Find.ClearFormatting
     With Selection.Find
    .Text = "Quantity:"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph  

Answer 1

將您的代碼更改為此，請注意 wdFindStop 的使用。

Selection.Find.ClearFormatting
     With Selection.Find
    .Text = "Quantity:"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With

do while Selection.Find.Execute = true
   Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph  
loop

如果您有可能失敗的文檔類型，您可以使用 Selection.Start 替換循環，如下所示：

Dim lastPos As Long
lastPos = -1
Do While Selection.Find.Execute = True
    If lastPos > Selection.Start Then Exit Do
    Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
Loop

Answer 2

在 End with 之后添加Selection.Find.Execute Replace:=wdReplaceAll