Is there a way to add quotation marks to highlighted text?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Can you automatically add quotation marks or parenthesis to text that you
highlight?
 
There's no built-in way. However, here's the macro I use:

Sub QuoteIt()
Selection.Copy
Selection.TypeText Text:=Chr$(147) + Chr$(148)
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub

If you want straight quotes and have Smart Quotes turned off in Autoformat
as you type, you can substitute 34 for 147 and 148 in the 3rd line.

I have this macro assigned to Ctrl+Shift+".
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

problem with automatic quotation marks 1
How do I quickly add quotation marks? 2
quotation marks are turning into parenthesis 1
em dash & quotation mark 1
Format of Quotation Marks 3
Why are quotation marks not appearing? 2
Why are my quotation marks not appearing until I double space? 1
How do I fix opening quotation marks overlapping text? 1

Back
Top