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:
parent
4e610a4cf2
commit
0d40050e20
12
test-data/diagram/SimpleMacro.vba
Normal file
12
test-data/diagram/SimpleMacro.vba
Normal 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
|
||||
|
BIN
test-data/diagram/SimpleMacro.vsd
Normal file
BIN
test-data/diagram/SimpleMacro.vsd
Normal file
Binary file not shown.
BIN
test-data/document/SimpleMacro.doc
Normal file
BIN
test-data/document/SimpleMacro.doc
Normal file
Binary file not shown.
BIN
test-data/document/SimpleMacro.docm
Normal file
BIN
test-data/document/SimpleMacro.docm
Normal file
Binary file not shown.
10
test-data/document/SimpleMacro.vba
Normal file
10
test-data/document/SimpleMacro.vba
Normal 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
|
||||
|
BIN
test-data/slideshow/SimpleMacro.ppt
Normal file
BIN
test-data/slideshow/SimpleMacro.ppt
Normal file
Binary file not shown.
BIN
test-data/slideshow/SimpleMacro.pptm
Normal file
BIN
test-data/slideshow/SimpleMacro.pptm
Normal file
Binary file not shown.
14
test-data/slideshow/SimpleMacro.vba
Normal file
14
test-data/slideshow/SimpleMacro.vba
Normal 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
|
Loading…
Reference in New Issue
Block a user