如何在VB中使用office模板?

Question

rt

Answer 1

dim Wrd As Word.Application
    On Error Resume Next 
    Set Wrd = GetObject(, "Word.Application") 
    If Err.Number <> 0 Then 
    Set Wrd = CreateObject("Word.Application") 
    End If
    Err.Clear 
    On Error GoTo 0 
    
    Dim dot As String
    Dim doc As String
    
    dot = "c:\temp.dot"
    doc = "c:\temp.doc"        Documents.Open FileName:=dot, _
            ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                0
        Wrd.Visible = False
        Wrd.ActiveDocument.Close
        Wrd.Documents.Add Template:=dot, NewTemplate:=False

Answer 2

On Error Resume Next '忽略错误
    Set Wrd = GetObject(, "Word.Application") '查找一个正在运行的Word拷贝
    If Err.Number <> 0 Then '如果 Word 没有运行则
    Set Wrd = CreateObject("Word.Application") '运行它
    End If
    Err.Clear '清除发生错误的 Err 对象
    On Error GoTo 0 '保留普通错误进程
    
    Dim dot As String
    Dim doc As String
    Wrd.Visible =true
    dot = "C:\temp.dot"
    doc = "c:\temp.doc"
    Documents.Open FileName:=dot, _
            ConfirmConversions:=False, ReadOnly:=True, AddToRecentFiles:=False, _
                PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
                WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
                0
    Wrd.ActiveDocument.Close
    Wrd.Documents.Add Template:=dot, NewTemplate:=False    '结果系列操作
    ActiveDocument.SaveAs FileName:=doc, FileFormat:=wdFormatDocument, _
            LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
            :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
            SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
            False
        '打印出来
        ActiveDocument.PrintOut FileName:=doc, Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        Wrd.ActiveDocument.Close