VBA将Word表格复制到Excel,并带有项目符号

xtfmy6hx  于 2022-12-14  发布在  其他
关注(0)|答案(1)|浏览(217)

我已经把这个代码,我从一个旧的职位,在我的脚本中。代码遍历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
tf7tbtn2

tf7tbtn21#

您可以使用如下代码:

ActiveDocument.Range.ListFormat.ConvertNumbersToText

将所有自动编号等转换为实际文本。或者,您可以将其限制为特定表格,如:

ActiveDocument.Tables(1).Range.ListFormat.ConvertNumbersToText

完成后放弃更改。

相关问题