적용 할 찾기 및 바꾸기 매크로의 텍스트 범위를 선택하십시오.

수백 개의 찾기 및 바꾸기 작업을 수행하는 Word 매크로가 있지만 현재는 전체 문서에 작업을 적용합니다. "Abstract"(굵게, 대소 문자 구분)와 "References"(굵게, 대소 문자 구분) 사이의 텍스트에만 적용해야합니다.

현재 코드는 전체 문서에 변경 사항을 적용한 다음 매크로 끝에서 다음 코드를 사용하여 참조에 대한 변경 사항을 소급하여 거부합니다.

With Selection.Find
 .ClearFormatting
 .Font.Bold = True
 .MatchCase = True
 .Forward = True
 .Execute FindText:="References"
  
    If .Found = True Then
         
        Selection.Find.Execute
        Selection.Collapse wdCollapseStart

        Dim r1 As Range
        Set r1 = Selection.Range
        
        Selection.Find.Text = "DummyText"
   
        Selection.WholeStory
        Selection.Collapse wdCollapseEnd
  
        Dim r2 As Range
        Set r2 = ActiveDocument.Range(r1.start, Selection.start)
        r2.Select
    
        If Selection.Range.Revisions.Count >= 1 Then _
        Selection.Range.Revisions.RejectAll
        
    End If

End With

굵게 표시된 "References"와 "DummyText"사이의 텍스트를 선택합니다.이 텍스트는 찾을 수 없다고 보장되는 일부 텍스트 일 ​​뿐이므로 문서의 끝까지 선택한 다음 해당 선택 항목 내의 모든 변경 사항을 거부합니다.

모든 찾기 및 바꾸기 작업이 다음과 같이 Abstract와 References 사이의 선택에만 적용되도록 이것을 조정하고 매크로의 시작 부분에 두려고 시도했습니다.

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "Abstract"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .Font.Bold = True
        .MatchCase = True
        .MatchWholeWord = True
    End With
    Selection.Find.Execute
    Selection.Collapse wdCollapseStart

    Dim r1 As Range
    Set r1 = Selection.Range

    Selection.Find.Text = "References"
    Dim r2 As Range
    Set r2 = ActiveDocument.Range(r1.start, Selection.start)
    r2.Select

    ' Move cursor to start, turn on tracked changes
    
    Selection.HomeKey Unit:=wdStory
    ActiveDocument.TrackRevisions = True
    With ActiveWindow.View.RevisionsFilter
        .markup = wdRevisionsMarkupSimple
        .View = wdRevisionsViewFinal
    End With
    
    ' start replacements (these go on for ages, two examples here)
        
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Also "
        .Replacement.Text = "Additionally, "
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "Therefore "
        .Replacement.Text = "Therefore, "
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

' and so on...

내가 읽은 다른 스레드는 제안하는 것 같습니다.

.Wrap = wdFindStop

대체 필드에서 내가 원하는 것을 할 수 있지만 작동하지 않습니다.

아무도 도울 수 있습니까? 건배.