Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Uppercase the first three words at the start of a document
Sub upper()
    Dim InitialCaps As Range
     Set InitialCaps = ActiveDocument.Range(Start:=ActiveDocument.Words(1).Start, _
        End:=ActiveDocument.Words(3).End)
    InitialCaps.Case = wdUpperCase
End Sub