Using a macro to add a semicolon

Gimboid13 · 07-03-2008, 06:58 PM

I'm using Word in Office XP. I need to find each word in a document with title case and add a semicolon after the previous word. To find the mixed case words I've used:

For Each myText In myDoc.Words
If myText.Case = wdTitleWord Then

...but I can't work out how to add the semicolon. Appreciate your help.

David M58 · 07-03-2008, 11:11 PM

You could write a routine such as:

Code:

Sub casecheck()
    Dim idx As Long
    idx = 2
    Do While idx < ThisDocument.Words.Count
        If ThisDocument.Words(idx).Case = wdTitleWord Then
            ThisDocument.Words(idx - 1).Text = Trim(ThisDocument.Words(idx - 1).Text) & "; "
            idx = idx + 1
        End If
        idx = idx + 1
    Loop
End Sub

If your document contained this text:

Cat owner Dog owner Bird owner

After running the above code, it would be changed to:

Cat owner; Dog owner; Bird owner

Modify as necessary.

Gimboid13 · 07-04-2008, 01:10 AM

That's great! Thanks David.

07-03-2008, 06:58 PM	#1 (permalink)
Gimboid13 Registered User Join Date: Jul 2008 Posts: 2 OS: Vista	Using a macro to add a semicolon I'm using Word in Office XP. I need to find each word in a document with title case and add a semicolon after the previous word. To find the mixed case words I've used: For Each myText In myDoc.Words If myText.Case = wdTitleWord Then ...but I can't work out how to add the semicolon. Appreciate your help.

07-03-2008, 11:11 PM	#2 (permalink)
David M58 Registered User Join Date: May 2008 Location: Baltimore, Maryland Posts: 160 OS: Windows XP SP3	Re: Using a macro to add a semicolon You could write a routine such as: Code: Sub casecheck() Dim idx As Long idx = 2 Do While idx < ThisDocument.Words.Count If ThisDocument.Words(idx).Case = wdTitleWord Then ThisDocument.Words(idx - 1).Text = Trim(ThisDocument.Words(idx - 1).Text) & "; " idx = idx + 1 End If idx = idx + 1 Loop End Sub If your document contained this text: Cat owner Dog owner Bird owner After running the above code, it would be changed to: Cat owner; Dog owner; Bird owner Modify as necessary. Last edited by David M58; 07-03-2008 at 11:13 PM.

07-04-2008, 01:10 AM	#3 (permalink)
Gimboid13 Registered User Join Date: Jul 2008 Posts: 2 OS: Vista	Re: Using a macro to add a semicolon That's great! Thanks David.