如何向word模板中填入我界面上选择的各项内容呢

Question

我的一个模块是判断疾病的，基本上用到的是combo控件和text控件，当医生选择完了时候，想把这些选择项填入已经设定好的word模板中。也看了以前的一些提问，似乎依然不太懂。高手指教，追后给点代码和解释。谢谢大家了

Answer 1

Dim Wdapp As Word.Application
            Dim WdDocument As Word.Document
            Dim UserFile As String
            Set Wdapp = New Word.Application
            Set WdDocument = New Word.Document
           ' Set Wdapp = GetObject("Word.Application")
            '先做一个word模板，然后打开
            UserFile = App.Path & "电子病历模板.doc"
           
            Set WdDocument = Wdapp.Documents.Add("UserFile")
            '填写内容
           If Wdapp.ActiveDocument.Books.Exists("我") = True Then
           Wdapp.ActiveDocument.Books("我").Range.InsertAfter (Trim(comboSytd.Text))
           End If