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

时间:2016-10-12 01:16:39

标签: vba ms-word

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

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

1 个答案:

答案 0 :(得分:0)

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

仍然希望找到更清洁,更有效的解决方案。

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