Excel-vba打开word文件读取内容处理并保存至word中

最新推荐文章于 2024-10-07 19:02:59 发布

IT技术猿猴

最新推荐文章于 2024-10-07 19:02:59 发布

阅读量6.1k

点赞数

分类专栏： VBA

本文链接：https://blog.csdn.net/baobingji/article/details/122889976

版权

VBA Excel Word 内容处理自动化

关键词由CSDN通过智能技术生成

VBA 专栏收录该内容

6 篇文章

订阅专栏

此篇博客介绍了如何使用VBA在Excel中打开Word文档，读取其内容并进行处理，如修改文字，最后保存并关闭文档。展示了基础的Word文档操作技巧。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Excel-vba打开word文件读取内容处理并保存至word中

Sub 按钮1()


Dim myPath As String

Set wdapp = CreateObject("Word.Application")

wdapp.Visible = True
Application.ScreenUpdating = False '关闭屏幕刷新'
On Error Resume Next '捕捉错误
myPath = ThisWorkbook.Path & "\投资工具不必多 - 副本.docx"   '定义word文件路径，自己修改
Set wdDoc = wdapp.Documents.Open(myPath) '打开
wordwdDoc.Activate
sr = wdDoc.Content '将word的文档内容赋予变量sr

' ...对文档内容进行处理
wdDoc.Content = "flsjlkfj"
wdDoc.Save ' 保存
wdDoc.Close '关闭word
wdapp.Quit
Set wdapp = Nothing
Set wdDoc = Nothing
Application.ScreenUpdating = True '开启屏幕刷新
End Sub