Code works only in isolation not within a larger set

RobiNew · #1 11-30-2023, 09:52 AM

I have two code versions to obtain the same result. They both work perfectly in isolation. When inserted in a larger set of commands they do not work at all on the same document. No error occurs. Can someone help? Thanks!

Code:

Sub Replace1()
Dim aRng As Range
Set aRng = ActiveDocument.StoryRanges(1)
    With aRng.Find
        .Text = "(^0146)" & "(^0171)" '« (146=’)
        .Replacement.Text = "\1" & "^0187" '»
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

Code:

Sub Replace2()
Dim aRng As Range
Set aRng = ActiveDocument.StoryRanges(1)
    With aRng.Find
      .MatchWildcards = False
      .Text = Chr(146) & Chr(171) '« (146=’)
      .Replacement.Text = Chr(146) & Chr(187) '»
      .Execute Replace:=wdReplaceAll
    End With
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Perfect macro not working when its code is inserted in larger macro	RobiNew	Word VBA	3	10-18-2023 03:19 AM
VBA code looks ugly, but works ok, needs a going over to neaten it up.	trevorc	Outlook	0	04-21-2022 07:51 PM
Biz Case for Larger Monitors	Karen615	Misc	0	12-14-2021 01:41 PM
larger ribbon	Herm61	Outlook	0	05-27-2013 12:46 PM
.OnAction only works in document with the code	donbexcel	Word VBA	1	11-02-2011 05:25 AM