[已解决]能否用VBA或其他方法在Word的指定位置填写指定内容？

lsggjie

HYPERLINK()函数链接到一个Word文件，能否用VBA或其他方法自动在其表头的编码处黏贴指定单元格(A3)的内容？

wCHIhYfN.rar (17.31 KB, 下载次数: 115)

2010-9-3 12:44 上传

点击文件名下载附件
能否用VBA在Word的指定位置填写指定内容？

[此贴子已经被作者于2010-9-3 12:44:52编辑过]

最佳答案

月排行榜 / 总排行榜

吕?布

2010-9-25 10:48

Sub MS_Word()
    Dim wd As Object
    Dim doc As Object
    
    Set wd = CreateObject("Word.Application")       ' 建立Word会话
    wd.Visible = False                              ' 设定Word应用程序为不可见状态

    Set doc = wd.Documents.Open(ThisWorkbook.Path & Application.PathSeparator & "001 安全管理程序.Doc")    ' 打开当前目录下指定Word文件
    doc.Tables(1).Cell(1, 2).Range = Cells(3, 1).Value                                                  ' Word文件第一个表的1行2列内容改为当前工作表的A3的内容
    doc.Save    ' 保存Word文件
    doc.Close   ' 关闭文件
    wd.Quit     ' 退出Word会话
    Set doc = Nothing
    Set wd = Nothing
End Sub

跳转到最佳答案楼层

lsggjie

不能实现，还是没人关注啊？

吕?布

当然可以

lsggjie

请教

吕?布

在Excel中建立对Word的引用,便能象在Word中操作文件一样

吕?布

Sub MS_Word()
    Dim wd As Object
    Dim doc As Object
    
    Set wd = CreateObject("Word.Application")       ' 建立Word会话
    wd.Visible = False                              ' 设定Word应用程序为不可见状态

    Set doc = wd.Documents.Open(ThisWorkbook.Path & Application.PathSeparator & "001 安全管理程序.Doc")    ' 打开当前目录下指定Word文件
    doc.Tables(1).Cell(1, 2).Range = Cells(3, 1).Value                                                  ' Word文件第一个表的1行2列内容改为当前工作表的A3的内容
    doc.Save    ' 保存Word文件
    doc.Close   ' 关闭文件
    wd.Quit     ' 退出Word会话
    Set doc = Nothing
    Set wd = Nothing
End Sub

hhzjxss

学习吕布的代码了！

dl810105

好像WORD看的“邮件合并”功能也可以