1 2 3 4 5 6 7 8 9 10
Sub TestMacro() ' ' TestMacro Macro ' This is a test macro ' ' ActiveDocument.Paragraphs(1).Range.Text = "This is a macro word processing document" End Sub