To create component, use following constructions
- JScript:
var obj = WScript.CreateObject("Miraplacid.TextDriver");
- VBScript:
set obj = WScript.CreateObject("Miraplacid.TextDriver")
- Visual Basic:
Set obj = CreateObject("Miraplacid.TextDriver")
To enable early binding, you have to check
"mtd_core 3.0 Class Library" in "Project References" dialog and insert the following code:
Dim obj As Miraplacid.TextDriver
Set obj = CreateObject("Miraplacid.TextDriver")
'
' Miraplacid Text Driver 3.0 :: Printing from MS Word Example (VBScript)
'
set word = WScript.CreateObject("Word.Application")
word.Visible=1
word.Documents.Open("hello.doc")
word.Documents("hello.doc").Activate()
' Get active printer name
'WScript.Echo("Printer: '"+word.ActivePrinter+"'");
word.ActivePrinter="Miraplacid Text Driver on MTD"
set prn = WScript.CreateObject("Miraplacid.TextDriver")
prn.filename="c:\\worddoc.txt" ' Set Plugin Name
prn.plugin_id=2
prn.writemode=1 ' Append
prn.charset=5 ' Unicode
prn=0
' Print Word document:
word.ActiveDocument.PrintOut
' Close Word document
word.ActiveDocument.Close
word.Quit
//
// Miraplacid Text Driver :: Printing from MS Word Example (JScript)
//
word = WScript.CreateObject("Word.Application");
word.Visible=1;
word.Documents.Open("hello.doc");
word.Documents("hello.doc").Activate();
// Get active printer name
//WScript.Echo("Printer: '"+word.ActivePrinter+"'");
word.ActivePrinter="Miraplacid Text Driver on MTD";
prn = WScript.CreateObject("Miraplacid.TextDriver");
prn.filename="c:\\worddoc.txt"; // Set Plugin Name
prn.plugin_id=2; //
prn.writemode=1; // Append
prn.charset=5;// Unicode
prn=null;
// Print Word document:
word.ActiveDocument.PrintOut();
// Close Word document
word.ActiveDocument.Close();
word.Quit();