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