复制表格里的内容粘贴到另一个文档里替换标题和内容还有文档名称,怎么...答:Application.ScreenUpdating = False Dim wdapp As Word.Application, wdoc As Document, r&, myp$, myf$, i&, a$, b$, c Set wdapp = New Word.Application myp = ThisWorkbook.Path & "\"myf = Dir(myp & "*.docx")Do While myf <> ""i = i + 1 a = Cells(i + 1, 3)...