diff --git a/test-data/diagram/SimpleMacro.vba b/test-data/diagram/SimpleMacro.vba
new file mode 100644
index 000000000..7fcf1fdb4
--- /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
new file mode 100644
index 000000000..df3f427ae
Binary files /dev/null and b/test-data/diagram/SimpleMacro.vsd differ
diff --git a/test-data/document/SimpleMacro.doc b/test-data/document/SimpleMacro.doc
new file mode 100644
index 000000000..a6311b3c9
Binary files /dev/null and b/test-data/document/SimpleMacro.doc differ
diff --git a/test-data/document/SimpleMacro.docm b/test-data/document/SimpleMacro.docm
new file mode 100644
index 000000000..123b8157f
Binary files /dev/null and b/test-data/document/SimpleMacro.docm differ
diff --git a/test-data/document/SimpleMacro.vba b/test-data/document/SimpleMacro.vba
new file mode 100644
index 000000000..684420c27
--- /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
new file mode 100644
index 000000000..228ebe968
Binary files /dev/null and b/test-data/slideshow/SimpleMacro.ppt differ
diff --git a/test-data/slideshow/SimpleMacro.pptm b/test-data/slideshow/SimpleMacro.pptm
new file mode 100644
index 000000000..d39de5c80
Binary files /dev/null and b/test-data/slideshow/SimpleMacro.pptm differ
diff --git a/test-data/slideshow/SimpleMacro.vba b/test-data/slideshow/SimpleMacro.vba
new file mode 100644
index 000000000..2f26227e1
--- /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