Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Format a Range

Sub ChangeFormat()     Dim wdApp As Word.Application     Dim wdRng As Word.Range     Dim count As Integer          Set wdApp = GetObject(, "Word.Application")          With wdApp.ActiveDocument         For count = 1 To .Paragraphs.count             Set wdRng = .Paragraphs(count).Range             With wdRng                 .Words(1).Font.Bold = True             End With         Next count     End With          Set wdApp = Nothing     Set wdRng = Nothing End Sub