高級查找格式，複製和粘貼

Question

我有一個包含一堆項目的文檔。我經歷了一些項目，如果它們是高優先級的，那麼它們是紅色的。

我想製作一個宏，以便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 

當我嘗試運行宏，它說，因爲沒有複製

Answer 1

你沒有點擊，同時錄製宏發現有與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