Vba 高级查找格式、复制和粘贴

我有一份文件，里面有很多项目。我已经完成了一些项目，如果它们是高优先级的，那么它们将以红色字体显示

我想制作一个宏，以便Word找到红色字体的所有实例，保存这些项目名称，然后将它们粘贴到文档顶部的列表中

当我试着做宏录制时，我得到的就是这个

Sub HotTopics()
'
' HotTopics Macro
'
'

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed

     With Selection.Find
        .Text = ""
        .Font.Color = wdColorRed
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

    Selection.Copy
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

---

当我尝试运行宏时，它说Selection.copy出现错误，因为没有要复制的内容

录制宏时您没有单击“查找”。注意最后一行

    Selection.Find.ClearFormatting
    With Selection.Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchKashida = False
            .MatchDiacritics = False
            .MatchAlefHamza = False
            .MatchControl = False
            .MatchByte = False
            .CorrectHangulEndings = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = False
            .MatchFuzzy = False
    End With
    Selection.Find.Execute
    Selection.Copy