adding quotes around paragraphs

[justincrywolf]

I have about 120 documents that are full of quotes about customer'
experiences with different companies. I've managed to use differen
macros to snag the customer information and delete it, adjust th
spacing between the paragraphs, etc. The one thing that I can't figur
out is some way to automate (via macro or find/replace or whatever
putting quote marks around all these paragraphs.

I've already told my boss that even considering asking me to go throug
and add them by hand is wholly unacceptable. Haha

Any help is greatly appreciated!

Justi

 

[Doug Robbins - Word MVP]

Use a macro containing the following code:

Dim i As Long
Dim prange As Range
With ActiveDocument
For i = 1 To .Paragraphs.Count
Set prange = .Paragraphs(i).Range
With prange
.End = .End - 1
.InsertBefore Chr(34)
.InsertAfter Chr(34)
End With
Next i
End With

Or, using Edit>Replace with ^p in the Find what control and "^p" in the
replace with control will do almost everything that you want.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[justincrywolf]

I had already tried the find and replace and for some reason that wasn'
working. It might have something to do with the other macros I ru
before I get to this point. The macro you gave me did work though! No
to just iron out the last few formatting wrinkles and I'll be set
Thanks a ton Doug!

Justin