0

我需要创建一个表单,数据必须从该表单传输到 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 文档,但字段为空。寻求建议。

4

1 回答 1

0

让您的代码正常工作

  • 您需要索引 Fields 集合

  • 要索引 Fields COllection,您必须使用数字(长整型),而不是文本值

  • 但要做到这一点,你必须知道要使用什么号码。

但是您要替换什么类型的字段?是 REF 字段吗?如果这是您的选择并且您需要使用字段,则最好使用 { DOCVARIABLE } 字段并设置相应变量的值。或者,如果您只需要支持 Windows Word 2007 及更高版本,最好使用链接到自定义 XML 的内容控件。

于 2013-08-10T15:35:35.660 回答