[justincrywolf]

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

[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

[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

[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