Looking for Macro

vivka · #16 02-08-2024, 08:45 AM

Hi, RRB! The following will do the job:

Code:

Sub Replace_Double_Quotes()

    With selection.range.Find
        .text = "([A-z])" & Chr(34) & "([A-z])"
        .Replacement.text = "\1/" & Chr(34) & "\2"
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=wdReplaceAll
    End With
End Sub

If the quotes in the code are not what is needed, find out the ASCII decimal code of the needed quotes and replace '34' with it.

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
Macro to Remove Paras with Line Spac 6; Macro to Convert Paragraphs to Outline Numbered	venganewt	Word VBA	0	01-25-2022 06:28 PM
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM