提取word中嵌入对象内容(嵌入对象也是word)

诡天翼1988

一个word文件中，嵌入了好多word文档，如下图：

我希望能够批量的把这些嵌入的word文档转为正常的内容写在一个word中
测试文档.rar (22.89 KB, 下载次数: 7)

2024-5-1 12:55 上传

点击文件名下载附件

诡天翼1988

我尝试着写了一段代码，有个问题没有解决：涉及到剪切板的操作，运行时会报错，调试没有问题。

在论坛里，有人说需要加一个sleep函数，但是我加了之后还是报错，还有人说加Application.CutCopyMode = False，我这提示方法和成员为找到，我该如何更改代码？

1. Sub 插入对象转普通排版()
   
2. 
   
3. 
   
4. For n = ActiveDocument.InlineShapes.Count To 1 Step -1
   
5. 
   
6.     If ActiveDocument.InlineShapes(n).Type = 1 Then
   
7.         If ActiveDocument.InlineShapes(n).OLEFormat.ProgID = "Word.Document.12" Then
   
8.            ActiveDocument.InlineShapes(n).OLEFormat.Activate
   
9.            Selection.WholeStory
   
10.             Selection.Copy
    
11.             ActiveDocument.Close (wdDoNotSaveChanges)
    
12.              ActiveDocument.InlineShapes(n).Delete
    
13.             Selection.PasteAndFormat (wdFormatOriginalFormatting)
    
14.              'Application.CutCopyMode = False
    
15.              'sleep 3000
    
16.         End If
    
17.       
    
18.     End If
    
19. Next
    
20. 
    
21. End Sub
    

复制代码

vbee

2021版测试正常完成任务。

要加也是加在Selection.Copy前面

batmanbbs

诡天翼1988

感谢@vbee与@batmanbbs的分享，我用的是2019版本的word，sleep函数放在哪都报错。  @@batmanbbs给出的代码可以运行，问题已经解决。

再次感谢两位