고급 형식, 복사 및 붙여 넣기 찾기

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