Sub QuotesOffBothEndsDoubleAddItalic()
' Paul Beverley - Version 09.01.25
' Removes double quotations marks from both ends of a test

Set rng = Selection.Range.Duplicate
rng.Collapse wdCollapseStart
With rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ChrW(8220)
  .Wrap = wdFindStop
  .Forward = False
  .Replacement.Text = ""
  .MatchWildcards = False
  .Execute Replace:=wdReplaceOne
  DoEvents
End With
myStart = rng.start

Set rng = Selection.Range.Duplicate
rng.Collapse wdCollapseEnd
With rng.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = ChrW(8221)
  .Wrap = wdFindStop
  .Forward = True
  .Replacement.Text = ""
  .MatchWildcards = False
  .Execute Replace:=wdReplaceOne
  DoEvents
End With
rng.start = myStart
rng.Font.Italic = True
rng.Collapse wdCollapseEnd
rng.Select
End Sub