Sub RomaniseAllQuotes()
' Paul Beverley - Version 13.03.24
' Finds all quoted speech in double quotes and romanises them

myFind = ChrW(8220) & "[!^13]@" & ChrW(8221)
Set rng = ActiveDocument.Content
With rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = myFind
  .Wrap = wdFindStop
  .MatchWildcards = True
  .Execute
End With

myCount = 0
Do While rng.Find.Found = True
  rng.Font.Italic = False
  myCount = myCount + 1
  If myCount Mod 20 = 0 Then rng.Select
  rng.Collapse wdCollapseEnd
  rng.Find.Execute
  DoEvents
Loop
MsgBox "Changed: " & myCount
End Sub