Word VBA表格-复制格式化的单元格内容,但不复制表格



我试图复制Word表格单元格的内容(格式化文本,项目符号,表格,图像)并将它们粘贴到输出docx文件中。不幸的是,下面的代码复制了整个单元格,因此在输出文件中创建了一个不需要的表。

With outputApp.Selection
    dbDoc.Tables(1).Cell(tableRow, 3).Range.Copy
    .Paste
End With

我找到了一种解决方法,可以将输出文档中的表转换为其格式化的内容,同时保留嵌套表。之后,我删除了内容和先前嵌套表的缩进,因为在删除主表后不再需要它了。

仍然希望找到一个更干净更有效的解决方案。

For Each table In outputDoc.Tables        
    table.ConvertToText Separator:=wdSeparateByParagraphs, NestedTables:=False
Next table
With outputDoc.Content.ParagraphFormat
    .LeftIndent = CentimetersToPoints(0)
    .FirstLineIndent = CentimetersToPoints(0)
End With
For Each table In outputDoc.Tables
    table.Rows.LeftIndent = CentimetersToPoints(0)
Next table

相关内容

最新更新