Hi Pasquale,

I don't think this one can be done with a single Find and Replace

But this:

Find what: \{(*)' (*)\}
Replace with: {\1'\2}
Use wildcards: checked

Will replace a single occurrence of (apostrophe space) with (apostrophe).

You could manually do Replace All until you get a message telling you that zero replacements were made - or you could record doing it once and make a loop by changing the Execute to something like:

[VBA]While Selection.Find.Execute(Replace:=wdReplaceAll):Wend[/VBA]