|
Visual Basic Syntax Scanner1.DocxAddChar 0, "T", 0, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "h", 1, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "i", 2, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "s", 3, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, " ", 4, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "i", 5, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "s", 6, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, " ", 7, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "t", 8, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "e", 9, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "x", 10, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "t", 11, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False Scanner1.DocxAddChar 0, "1", 12, 0, "Arial", 10, 255, 255, 255, 255, 0, 0, False, False, False
bResult = Scanner1.SaveAllPage2Docx("c:\test.docx", true, 1) If bResult Then MsgBox "save c:\test.docx completed" End If
|