不打开WORD文档批量替换文档内容
摘要：
Sub 批量替换WORD内容()Dim wd As New Word.Applicationpa = ThisWorkbook.Path & "\111.docx"With wd.Documents.Open pa.Visible = False For i = 2 To Cells(65535, 阅读全文
posted @ 2018-05-27 11:31 lizicheng 阅读(1509) 评论(0) 推荐(0) 编辑
