mirror of https://github.com/apache/poi.git
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
100e079cc8
commit
e3ad497b79
|
@ -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.
|
@ -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.
|
@ -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