1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Protected _wordDoc As Word.Document
Protected _wordApp As Word.ApplicationClass
Protected _missing As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim template As String = "C:\\Inetpub\\wwwroot\\WebTestVB\\export\\model.dot"
Dim target As String = "C:\\Inetpub\\wwwroot\\WebTestVB\\export\\model.html"
Dim oFalse As Object = False
_missing = System.Reflection.Missing.Value
_wordApp = New Word.ApplicationClass
_wordApp.Visible = False
_missing = System.Reflection.Missing.Value
_wordDoc = _wordApp.Documents.Add(template, _missing, _missing, oFalse)
_wordDoc.Activate()
'_wordDoc.PrintOut(oFalse, oFalse, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing, _missing)
' Macro Word
'Application.PrintOut(FileName:="", Range:=wdPrintAllDocument, Item:= _
' wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
' Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
' PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0)
'
' Dim o0 As Object = 0, o1 As Object = 0, oChaineVide As Object = "", oTrue As Object = True
' _wordDoc.PrintOut(oTrue, _missing, Word.WdPrintOutRange.wdPrintAllDocument, oChaineVide, _missing, _missing, Word.WdPrintOutItem.wdPrintDocumentContent, o1, oChaineVide, Word.WdPrintOutPages.wdPrintAllPages, oFalse, oTrue, _missing, _missing, _missing, _missing, o0, o0)
_wordDoc.SaveAs(target, Word.WdSaveFormat.wdFormatHTML, oFalse, _missing, oFalse, _missing, oFalse, oFalse, oFalse, oFalse, oFalse)
_wordDoc.Close(oFalse, _missing, _missing)
_wordApp.Quit(oFalse, _missing, _missing)
_wordApp = Nothing
End Sub |
Partager