文档内容复制问题

hopecode

各位大神，
        请教下有没有满足以下要求的文件复制方法？
        1、纯通过VBA实现；
        2、不能使用复制粘贴或另存为方法，也不能通过插入文档的方法；
        3、将源文档中的文字、表格、图片、形状、字体字号颜色等内容提取一个副本并保存该副本。
        最终目标是尽可能实现文件中所有元素的原样复制。非常感谢！

ming0018

有的呀，你上个附件，并模拟一下结果。

hopecode

ming0018 发表于 2020-4-14 11:11
有的呀，你上个附件，并模拟一下结果。

我把测试案例编辑在原帖中了，麻烦帮忙看下吧，谢谢！

ming0018

hopecode 发表于 2020-4-14 11:40
我把测试案例编辑在原帖中了，麻烦帮忙看下吧，谢谢！

好，下午上班看。

cuanju

新建一份一样的word文档。
========================
Sub d()
    Documents.Add (ActiveDocument.FullName)
End Sub

hopecode

cuanju 发表于 2020-4-14 13:02
新建一份一样的word文档。
========================
Sub d()

感谢支持，不过您这种方法是类似于我前面列举的直接插入文件内容的方法，除了这种方法外，还有其他的办法么？

ming0018

代码在文档内，自己查看。

hopecode

ming0018 发表于 2020-4-14 14:40
代码在文档内，自己查看。

谢谢，这个方法的思路我之前没想到过，不过貌似下面这句话也用到了剪贴板的操作，类似于复制粘贴的实现模式。

1. doc_new.Range(0, 0).FormattedText = doc_act.Content

复制代码

ming0018

hopecode 发表于 2020-4-14 14:59
谢谢，这个方法的思路我之前没想到过，不过貌似下面这句话也用到了剪贴板的操作，类似于复制粘贴的实现模 ...

哪有用到剪切板？

hopecode

ming0018 发表于 2020-4-14 15:57
哪有用到剪切板？

哦哦，不好意思，是我表述不恰当。我测试了下，在我这个项目的环境下，所有新建文件的操作都只能create一个新的word.application才能成功，但是不在一个application下的document好像没办法直接设置formattedtext，但是依然是一个很好的思路，非常感谢！