Adding Quotes to Text

Normally, you add quote marks to your text as you type. There may be times, however, when you want to add the quote marks at a later time. For instance, while editing your document you may select some text and then want quote marks added around the selected text. If you are using Word 6 or Word 95, you can use the following macro, AddQuotes:

Sub MAIN
If SelType() = 2 Then
    T$ = Rtrim$(Selection$())
    If ToolsAutoCorrectSmartQuotes() Then
        BQuote$ = Chr$(147)
        EQuote$ = Chr$(148)
    Else
        BQuote$ = Chr$(34)
        EQuote$ = Chr$(34)
    End If
    EditClear
    Insert BQuote$
    Insert T$
    Insert EQuote$
End If
End Sub

This macro first checks to make sure you have selected some text. If so, then it determines the proper type of quote marks to use, based on whether you have SmartQuotes turned on or note. The selected text is then replaced with the proper quoted text.