如何批量将excel中的数据填到word指定控件里

wzway

我司最近要交易数十个房产单元，按房管局要求要填标准合同，不能改动格式。一份合同有90多个数据要填，都是在控件里填。请问如何用excel中的VBA，给word中的指定控件赋值，恳求赐教！！

约定的童话

直接字符替换试下呢

mmwwdd

用按键精灵不行吗

mmwwdd

mmwwdd

另外你还需要引用

mmwwdd

大致是这个意思,不太熟悉word vba

mmwwdd

https://club.excelhome.net/forum ... amp;_dsign=8d4d9eb4
看看这个帖子吧,excel操作word我主要是很少用到,所以没太弄这个

mmwwdd

https://club.excelhome.net/forum ... amp;_dsign=8d84f05c

wzway

mmwwdd 发表于 2023-2-19 08:07
大致是这个意思,不太熟悉word vba

出现了这要的报错，不知道要怎么处理？和我的引用的控件字典有关吗，我的是12.0的，不是16.0的。office2007

闻启学

wzway 发表于 2023-2-19 09:58
出现了这要的报错，不知道要怎么处理？和我的引用的控件字典有关吗，我的是12.0的，不是16.0的。office20 ...

Private Sub CommandButton1_Click()
    Dim a As String
    Dim mydoc
    a = "要填的信息"
    Dim docApp, path As String
    path = "D:\上善\范例合同.doc"
    Set docApp = CreateObject("Word.Application")
    '// ThisDocument.DefaultOcxName.Value = "shfidhfi"
    Set mydoc = docApp.Documents.Open(path)
    mydoc.DefaultOcxName.Value = "测试2"
    mydoc.Save
    mydoc.Close
    docApp.Activate
    Set docApp = Nothing
End Sub

完成任务