diff options
Diffstat (limited to 'testcom')
-rw-r--r-- | testcom | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testcom b/testcom new file mode 100644 index 0000000000..3668424a29 --- /dev/null +++ b/testcom @@ -0,0 +1,9 @@ +<? +$word = new COM("word.application") or die("Unable to instanciate Word"); +print "Loaded Word, version {$word->Version}\n"; +$word->Visible = 1; +$word->Documents->Add(); +$word->Selection->TypeText("This is a test..."); +$word->Documents[1]->SaveAs("Useless test.doc"); +$word->Quit(); +?>
\ No newline at end of file |