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
Quote:
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
|