[justincrywolf]

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

Justin

Originally Posted by 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