[求助]：在CAD的VBA中调用word

kfygl

在CAD的VBA中调用word,如何实现多次修改自定义的模板文件，即将不同的几个语句插入到word方档中的不同地方，而文档格式不变。

lsjjm

请参考:
     Dim wdapp As Object
     Dim wddoc As Object
     Dim obj, obj1, obj2, obj3, obj4, obj5 As Object
     On Error Resume Next
     Set wdapp = GetObject(, "word.application")
     If Err <> 0 Then
        Err.Clear
        Set wdapp = CreateObject("word.application")
        If Err <> 0 Then
            MsgBox "could not load Word"
            End
        End If
    End If
    On Error GoTo 0
    wdapp.Visible = True
    Set wddoc = wdapp.Documents.Open("e:\\user\\iecn.doc")
    Set obj1 = wddoc.paragraphs(3).range
    obj1.Text = "IECN No: " & n
     Set obj2 = wddoc.paragraphs(6).range
     obj2.Text = "Date: " & Date
     Set obj3 = wddoc.paragraphs(23).range
     obj3.Text = TextBox2.Text
     Set obj4 = wddoc.paragraphs(39).range
     obj4.Text = TextBox5.Text
     Set obj5 = wddoc.paragraphs(108).range
     obj5.Text = TextBox4.Text
     wddoc.Close
     wdapp.Quit
     Me.hide  
     ...