我已经把这个代码,我从一个旧的职位,在我的脚本中。代码遍历word文档中的每个表格,并将其插入到excel文件中。这些表格被放在同一个工作表中,一个在另一个的下面。问题是word表格中的单元格包含项目符号和编号,当移动到excel中时,它们完全丢失了。有没有什么简单的修改,我可以做,以便项目符号转移过来?谢谢。
对于tableStart = tableNo对于tableTot使用.tables(tableStart)
For iRow = 1 To .Rows.Count
For iCol = 1 To .Columns.Count
Cells(resultRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
Next iCol
resultRow = resultRow + 1
Next iRow
End With
resultRow = resultRow + 1
Next tableStart
1条答案
按热度按时间tf7tbtn21#
您可以使用如下代码:
将所有自动编号等转换为实际文本。或者,您可以将其限制为特定表格,如:
完成后放弃更改。