diff options
| author | Javen O'Neal <onealj@apache.org> | 2016-04-11 03:02:18 +0000 |
|---|---|---|
| committer | Javen O'Neal <onealj@apache.org> | 2016-04-11 03:02:18 +0000 |
| commit | e3ad497b79b0135659c6b6d1c011e3fbabb91a14 (patch) | |
| tree | dbb769ba086a4852bf56dc0eb79f17eee05c4cd0 | |
| parent | 100e079cc89caf834bfadc6ff75a462bf4f84ce6 (diff) | |
| download | poi-e3ad497b79b0135659c6b6d1c011e3fbabb91a14.tar.gz poi-e3ad497b79b0135659c6b6d1c011e3fbabb91a14.zip | |
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
| -rw-r--r-- | test-data/diagram/SimpleMacro.vba | 12 | ||||
| -rw-r--r-- | test-data/diagram/SimpleMacro.vsd | bin | 0 -> 19456 bytes | |||
| -rw-r--r-- | test-data/document/SimpleMacro.doc | bin | 0 -> 36864 bytes | |||
| -rw-r--r-- | test-data/document/SimpleMacro.docm | bin | 0 -> 15517 bytes | |||
| -rw-r--r-- | test-data/document/SimpleMacro.vba | 10 | ||||
| -rw-r--r-- | test-data/slideshow/SimpleMacro.ppt | bin | 0 -> 104960 bytes | |||
| -rw-r--r-- | test-data/slideshow/SimpleMacro.pptm | bin | 0 -> 41578 bytes | |||
| -rw-r--r-- | test-data/slideshow/SimpleMacro.vba | 14 |
8 files changed, 36 insertions, 0 deletions
diff --git a/test-data/diagram/SimpleMacro.vba b/test-data/diagram/SimpleMacro.vba new file mode 100644 index 0000000000..7fcf1fdb4f --- /dev/null +++ b/test-data/diagram/SimpleMacro.vba @@ -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
+
diff --git a/test-data/diagram/SimpleMacro.vsd b/test-data/diagram/SimpleMacro.vsd Binary files differnew file mode 100644 index 0000000000..df3f427ae3 --- /dev/null +++ b/test-data/diagram/SimpleMacro.vsd diff --git a/test-data/document/SimpleMacro.doc b/test-data/document/SimpleMacro.doc Binary files differnew file mode 100644 index 0000000000..a6311b3c9d --- /dev/null +++ b/test-data/document/SimpleMacro.doc diff --git a/test-data/document/SimpleMacro.docm b/test-data/document/SimpleMacro.docm Binary files differnew file mode 100644 index 0000000000..123b8157f3 --- /dev/null +++ b/test-data/document/SimpleMacro.docm diff --git a/test-data/document/SimpleMacro.vba b/test-data/document/SimpleMacro.vba new file mode 100644 index 0000000000..684420c27e --- /dev/null +++ b/test-data/document/SimpleMacro.vba @@ -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
+
diff --git a/test-data/slideshow/SimpleMacro.ppt b/test-data/slideshow/SimpleMacro.ppt Binary files differnew file mode 100644 index 0000000000..228ebe968b --- /dev/null +++ b/test-data/slideshow/SimpleMacro.ppt diff --git a/test-data/slideshow/SimpleMacro.pptm b/test-data/slideshow/SimpleMacro.pptm Binary files differnew file mode 100644 index 0000000000..d39de5c801 --- /dev/null +++ b/test-data/slideshow/SimpleMacro.pptm diff --git a/test-data/slideshow/SimpleMacro.vba b/test-data/slideshow/SimpleMacro.vba new file mode 100644 index 0000000000..2f26227e18 --- /dev/null +++ b/test-data/slideshow/SimpleMacro.vba @@ -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
|