I am trying to move quotes before punctuation with a Word macro, but apart from an error in the code here below, I cannot find a way to swap characters without using 'Selection.' Can someone help? Thanks! Here's the code:

Hi, if I correctly understand your objective, try this (move quotes to be just before the punctuations):
For Each myChr In myRng.Characters
If myChr Like "[,;.:?]" _
And myChr.Next Like "[«‹›»" & Chr(39) & Chr(34) & Chr(146) & Chr(148) & "]" Then
myChr.InsertBefore myChr.Next
myChr.Next.Delete
End If


Note that the code is quite slow because it checks each char in the range.

Thanks a lot for your help! Now the macro does its job correctly, but before closing it shows a message of the type "Object variable or variable of the With block not defined" and highlights the following lines of the code:

I didn't check this on footnotes, but it's much faster:

For Each myRng In ActiveDocument.StoryRanges
Do
With myRng
Do
With .Find
.MatchWildcards = True
.text = "[,;.:?]" & "[«‹›»" & Chr(39) & Chr(34) & Chr(146) & Chr(148) & "]"
.Replacement.text = ""
.Wrap = wdFindStop
.Execute
End With
If .Find.found Then
myRng.InsertBefore myRng.Characters.Last
myRng.Characters.Last.Delete
Else: Exit Do
End If
myRng.Collapse 0
Loop
End With
Set myRng = myRng.NextStoryRange
Loop Until myRng Is Nothing
Next myRng

It is indeed much faster. And it works also in the footnotes. I think it's perfect. Many, many thanks!

I am glad I managed to help you!