我需要创建一个表单,从中将数据传输到MS Word文档文本字段
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim MyApp1 As Object
Dim MyDoc1 As Object
MyApp1 = CreateObject("Word.Application")
MyDoc1 = MyApp1.Documents.Open(C:\DSU.docx")
MyDoc1.Field("w_VardasPavarde").Range = VardasPavarde.Text
MyDoc1.Fields.Update()
MyDoc1.Fields.Unlink()
MyApp1.Visible = True
End Sub
上面打开word文档的代码,但是字段为空。寻求建议。
答案 0 :(得分:0)
让您的代码正常工作
您需要索引Fields集合
要索引字段COllection,您必须使用数字(长),而不是文本值
但要做到这一点,你必须知道要使用的号码。
但是你想要替换什么类型的领域?它是REF领域吗?如果您选择并且需要使用字段,则最好使用{DOCVARIABLE}字段并设置相应变量的值。或者,如果您只需要支持Windows Word 2007及更高版本,则最好使用链接到自定义XML的内容控件。