如何在 Microsoft Word 中将文本添加到每行末尾（仅当该行包含特定字符时）

Question

如果 Microsoft Word 中每行仅包含特定字符，如何将特定字符添加到行尾？出于某种原因，它们有时会出现在错误的位置。

在尝试之前

预期结果

尝试过但失败了

我想要所有包含字母的行A有一个星号添加到相关行的末尾

Answer 1

尝试以下宏：

Sub addAsterisk()

Dim currentParagraph As Paragraph

For Each currentParagraph In ActiveDocument.Paragraphs
  currentParagraph.Range.Select
  
  If Selection.Range.Find.Execute("a") Then
    Selection.MoveRight (wdCharacter)
    Selection.MoveLeft (wdCharacter)
    
    Selection.InsertAfter ("*")
  End If
  
Next

End Sub