poi/test-data/document/SimpleMacro.vba

11 lines
172 B
Plaintext

Sub TestMacro()
'
' TestMacro Macro
' This is a test macro
'
'
ActiveDocument.Paragraphs(1).Range.Text = "This is a macro word processing document"
End Sub