创建宏-查找，捕获，删除

Question

我已经研究并尝试了几个小时才能创建一个Macro。对于我的整个文档，我想要：1.搜索“作者：” 2.捕获“作者：”和整个其余段落。 3.删除它。我为每个函数组合了不同的代码，所有变体始终删除“ Author：”，但不会删除其余段落。我的最后尝试：

Sub FindDeleteAuthor()

With Selection.Find

.ClearFormatting

.Text = "Author:"
'
'
    Selection.Extend
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.Delete Unit:=wdCharacter, Count:=1

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

.Execute Replace:=wdReplaceAll

End With

End Sub

我的编码技能充其量只是胚胎初学者。因此，将非常感谢您的任何帮助……特别是如果以最绿色，新手的方式提供帮助。此外，在为Word创建特定的宏时是否有一个不错的一站式网站或资源？我目前正处于从WordPerfect到Word的痛苦，艰难的转变时期。大大叹了口气。

Answer 1

这很简单：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "Author:*^13"
  .Replacement.Text = "^p"
  .Forward = True
  .Format = False
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub