#1
|
|||
|
|||
Code works only in isolation not within a larger set
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 |