Word 2003 - 매크로를 사용하여 스타일을 변경하는 방법?

Question

문서의 특정 부분의 글꼴 스타일을 변경하기 위해 Word 2003 매크로를 만들 수 있습니까?

예를 들어, 텍스트의 상당 부분이 굵게 기울임 꼴이고 12 포인트 글꼴 인 문서가 있다고 가정 해보십시오. 모든 텍스트를 밑줄이 그어진 14 포인트 글꼴로 이러한 특성으로 대체하고 싶습니다.

나는 이미 Google, StackOverflow 및 Microsoft's website에서 검색을 수행했지만 이것이 가능한지 논의하는 항목을 찾을 수 없었습니다.

어떤 도움이 필요합니까? 언제나처럼

Answer 1

그래, .Find 개체 및 해당 콘텐츠의 하위 콘텐츠는 .Replacement입니다. Selection (제한적 실행), Range (단락, 기사 등) 또는 전체 문서에서이 작업을 수행 할 수 있습니다. 아래 샘플은 전체 문서 (ActiveDocument.Content)에 대한 것입니다.

Sub FindReplaceStyle() 
    With ActiveDocument.Content.Find 
     .ClearFormatting 

     With .Font 
      .Bold = True 
      .Size = 14 
      .Italic = True 
     End With 

     .Format = True 

     With .Replacement 
      .ClearFormatting 
      With .Font 
       .Bold = False 
       .Italic = False 
       .Underline = wdUnderlineSingle 
       .Size = 12 
      End With 
     End With 

     .Execute Forward:=True, Replace:=wdReplaceAll, _ 
      FindText:="", ReplaceWith:="" 
    End With 
End Sub 

Answer 2

, Word의 매크로 레코더는 큰 도움이 될 수 있습니다

Selection.Find.ClearFormatting 
With Selection.Find.Font 
    .Size = 12 
    .Bold = True 
    .Italic = True 
End With 
Selection.Find.Replacement.ClearFormatting 
With Selection.Find.Replacement.Font 
    .Size = 14 
    .Bold = False 
    .Italic = False 
    .Underline = wdUnderlineSingle 
End With 
With Selection.Find 
    .Text = "" 
    .Replacement.Text = "" 
    .Forward = True 
    .Wrap = wdFindContinue 
    .Format = True 
    .MatchCase = False 
    .MatchWholeWord = False 
    .MatchWildcards = False 
    .MatchSoundsLike = False 
    .MatchAllWordForms = False 
End With 
Selection.Find.Execute Replace:=wdReplaceAll 

(Ctrl 키 + H 바꾸기 &를 찾아 엽니 다 매크로 레코더를 시작 매크로를 생성 한 다음 적절한 찾기 형식을 지정하고 대체 형식)