【可付费】Word 宏 合并问题

朴树新人

各位老师好，

     我有一WORD需要运用宏，要在附件主模板中写入宏代码，运行后，可使各基表WORD的内容，按主模板的顺序，自动合并进去。

主模板中的标题文字等都不动。

xyxcc177

最近的“有偿”，“付费"字样的贴子不少，都是为吸引眼球的，真想付费做，私信联系做就好了。

zpy2

xyxcc177 发表于 2019-5-10 07:46
最近的“有偿”，“付费"字样的贴子不少，都是为吸引眼球的，真想付费做，私信联系做就好了。

好啊，说明学习除了好玩，还可以挣钱，一箭双雕

小花鹿

在模板中进行粘贴的时候，要进行定位，而定位需要用到文件名，你现在的文件名和模板中的定位内容相差较大，需要进行处理才能判断，不知道实际的文件名是什么样的
写了一部分，其它的自己修改吧：
Sub test()
Dim reg, t
'这里添加打开文件和复制的代码
With ActiveDocument.Content.Find
    Do While .Execute("A部门*月总结^13", , , 1)
        With .Parent
            .Start = .End
            .Text = vbCrLf
            .PasteAndFormat (wdListDontMerge)
        End With
    Loop
End With
End Sub

kimmyyang

付费好啊，哈哈哈

朴树新人

小花鹿 发表于 2019-5-10 09:44
在模板中进行粘贴的时候，要进行定位，而定位需要用到文件名，你现在的文件名和模板中的定位内容相差较大， ...

非常感谢大哥！，我继续再研究下

382273844

最近的“有偿”，“付费"字样的贴子不少，都是为吸引眼球的，真想付费做，私信联系做就好了。

perfect131

啥吸引眼球，解决不了有偿多好，还是自学吧，一年半载就学会了