创建用于从 Word 复制到 Excel 的表格

Question

因此，我需要获取一些在 MS Word 表格中完成的数据，并在 Excel 中进行操作。 我决定通过 VBA 子例程将其从 Word 转换为 Excel 以“节省时间”。 我的源Word文档包含大约二十多张表格。

我获取了源文档的表格，提取了数据并制作了一个新文档，其中包含一个新表格，只需将其复制并粘贴到 Excel 中即可。

然而，虽然副本之前的最终表格在文字上看起来不错。 当我将其复制到 Excel 时，它将包含整个段落的单元格分解为单独的单元格。

大多数 Excel 爱好者都知道，尽管解决方案看起来像 Excel 中的那样，但执行合并和居中操作 - 只会保留所选内容中最上面单元格中的内容！

因此，任何关于更好的合并和中心，或者更好的“节省时间”的建议都会很棒。

这是迄今为止的代码示例：

Sub First()

Dim tableLength, tableIndex
tableLength = ThisDocument.Tables.Count

Dim tblReport As Table
Dim docReport As Document

Set docReport = Documents.Add
Set tblReport = docReport.Tables.Add(Selection.Range, 1, 2)

With tblReport

Dim fieldOne, subvalueAription, subvalueA, subvalueB, subvalueC

For tableIndex = 1 To tableLength

    fieldOne = ThisDocument.Tables(tableIndex).Rows(2).Cells(2).Range.Text
    subvalueA = Trim(ThisDocument.Tables(tableIndex).Rows(4).Cells(2).Range.Text)
    subvalueB = "A: " & Trim(ThisDocument.Tables(tableIndex).Rows(5).Cells(2).Range.Text)
    subvalueC = "B: " & Trim(ThisDocument.Tables(tableIndex).Rows(6).Cells(2).Range.Text)
    subvalueAription = subvalueA & subvalueB & subvalueC & "C: "

    Dim rowNext As row
    Set rowNext = .Rows.Add
    rowNext.Cells(1).Range.Text = fieldOne
    rowNext.Cells(2).Range.Text = subvalueA & subvalueB & subvalueC


Next

End With


End Sub

Answer 1

Excel 使用与 Word 不同的行终止符。 为了避免 Word 表格中的文本被拆分到多个 Excel 单元格中的问题，您需要自行处理行终止符转换。

'Word > Excel
 newText = Replace(wordText, vbCrLf, vbLf)

我凭记忆发布此内容，但这就是问题的根源。