将嵌入文件的内容合并为原始文档

1 回答

• 2

  这对我有用（经过轻微测试......）

  Sub Tester()
  
      Dim cDocs As Collection
      Dim o As InlineShape
  
      Set cDocs = GetEmbeddedDocs(ActiveDocument)
      For Each o In cDocs
          o.OLEFormat.Open
          With ActiveDocument
              .Content.Copy
              .Close
          End With
          o.Select
          Selection.Paste
      Next o
  End Sub
  
  
  Function GetEmbeddedDocs(oDoc As Word.Document) As Collection
      Dim o As InlineShape
      Dim c As New Collection
  
      For Each o In oDoc.InlineShapes
          If o.Type = wdInlineShapeEmbeddedOLEObject Then
              If o.OLEFormat.ProgID Like "Word.Document.*" Then
                  c.Add o
              End If
          End If
      Next o
      Set GetEmbeddedDocs = c
  End Function
  

  回复于 2024-05-15T02:07:27+08:00