Sub NonCurlyQuote()
' Paul Beverley - Version 01.01.10
' Add non-curly double quote

Options.AutoFormatReplaceQuotes = False
Selection.TypeText Text:=""""
Options.AutoFormatReplaceQuotes = True
End Sub