Sub ScareQuoteAdd()
' Paul Beverley - Version 29.05.21
' Add single quotes round a word

useGermanQuotes = False

Selection.Expand wdWord
If Right(Selection, 1) = " " Then Selection.MoveEnd , -1
If useGermanQuotes = True Then
  Selection.InsertAfter Text:=ChrW(8216)
  Selection.InsertBefore ChrW(8218)
Else
  Selection.InsertBefore Text:=ChrW(8216)
  Selection.InsertAfter Text:=ChrW(8217)
End If
Selection.Collapse wdCollapseEnd
End Sub