bug 52949: add Word, Powerpoint, and Visio (HDGF) files with macros to test macro extraction

git-svn-id: https://svn.apache.org/repos/asf/poi/trunk@1738502 13f79535-47bb-0310-9956-ffa450edef68
This commit is contained in:
Javen O'Neal 2016-04-11 03:02:18 +00:00
parent 100e079cc8
commit e3ad497b79
8 changed files with 36 additions and 0 deletions

View File

@ -0,0 +1,12 @@
Sub TestMacro()
'
' TestMacro Macro
' This is a test macro
'
'
With ActiveDocument.Pages(1).Shapes(1)
.Text = "This is a macro vector graphics drawing"
End With
End Sub

Binary file not shown.

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,10 @@
Sub TestMacro()
'
' TestMacro Macro
' This is a test macro
'
'
ActiveDocument.Paragraphs(1).Range.Text = "This is a macro word processing document"
End Sub

Binary file not shown.

Binary file not shown.

View File

@ -0,0 +1,14 @@
Sub TestMacro()
'
' TestMacro Macro
' This is a test macro
'
'
With ActivePresentation.Slides(1).Shapes(1)
.Title.TextFrame.TextRange.Text = "This is a macro slideshow"
End With
With ActivePresentation.Slides(1).Shapes(2)
.Title.TextFrame.TextRange.Text = "subtitle"
EndWith
End Sub