[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 EditReplace 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" wrote in message
...

I have about 120 documents that are full of quotes about customer's
experiences with different companies. I've managed to use different
macros to snag the customer information and delete it, adjust the
spacing between the paragraphs, etc. The one thing that I can't figure
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 through
and add them by hand is wholly unacceptable. Haha

Any help is greatly appreciated!

Justin




--
justincrywolf