Word macro...help

JackHack · October 5th, 2008, 04:54 AM

Hi,

I got to format the document before uploading it to the client...formating the whole doc is very time consuming... Here is the sample of the docu...
------

Operator

[Some Text]

Matt Stand â Investor Relations

[Some Text]

and so on...this type goes on through the end of doc...
--------------

Now what i do with this is i change the formating like this

-------
first the whole document i got to convert it to Arial text and size 12 and of color gray. After this it goes like this

Operator (this whole part i change it to Arial text and size 14, bold and of color dark red)

[Some Text] (no change)

Matt Stand â Investor Relations (this part i got to change it to Arial text and size 14, bold and of color dark red, but only after the hypen the text is italics)

[Some Text]

so this goes on throughout the doc...

---------------

Can someone help me with the VBA coding to make the task simple...hope u guys have understood what i want..thx.

Shasur · October 13th, 2008, 07:27 AM

Hey Jack

Here is a hint

Code:

Sub Change_Font_For_Jack()

Dim oRange As Word.Range

Set oRange = ActiveDocument.Range

oRange.Font.Name = "Arial"
oRange.Font.Size = "12"
oRange.Font.Color = wdColorGray75

oRange.Collapse WdCollapseDirection.wdCollapseEnd

Selection.HomeKey wdStory, wdMove
Selection.Find.Execute "Matt Stand â Investor Relations"
Do While Selection.Find.Found
    With Selection.Range
        .Font.Name = "Arial"
        .Font.Size = "14"
        .Font.Color = vbRed
    End With
    Selection.Find.Execute "Investor Relations"
    Selection.Font.Italic = True
    Selection.Collapse WdCollapseDirection.wdCollapseEnd
    Selection.Find.Execute "Matt Stand â Investor Relations"
Loop

End Sub

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

JackHack · October 13th, 2008, 02:05 PM

Hi Shasur,

Thx for the code, made some changes a bit in that, but really was of help...

Thx again. Happy Coding. :)

JackHack..