Excel-vba打开word文件读取内容处理并保存至word中
Sub 按钮1()Dim myPath As StringSet wdapp = CreateObject("Word.Application")wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新'On Error Resume Next '捕捉错误myPath = ThisWorkbook.Path & "\投资工具不必多 - 副本.docx" '定义word文件路径，自己修改Set wdDoc = wdapp.Documents.Open(myPath) '打开wordwdDoc.Activatesr = wdDoc.Content '将word的文档内容赋予变量sr' ...对文档内容进行处理wdDoc.Content = "flsjlkfj"wdDoc.Save ' 保存wdDoc.Close '关闭wordwdapp.QuitSet wdapp = NothingSet wdDoc = NothingApplication.ScreenUpdating = True '开启屏幕刷新End Sub
