vba - Word 到 Excel 宏 - 无法转置

Question

我正在构建一个宏，该宏从 Word 中获取信息并在新的 Excel 文档中打开它。这是一个以 Word 开头的 Word 宏。

Sub Exportwordtoexcel()
Dim wordDoc As Object
Dim oXL As Excel.Application
Dim DocTarget As Word.Document
Dim Target As Excel.Workbook
Dim tSheet As Excel.Worksheet

Set wordDoc = GetObject(, "word.application")
wordDoc.Selection.WholeStory
Selection.Copy

On Error Resume Next
Set oXL = GetObject(, "Excel.Application")

If Err Then
ExcelWasNotRunning = True
Set oXL = New Excel.Application
End If

oXL.Visible = True

Set Target = oXL.Workbooks.Add
Set tSheet = Target.Sheets(1)
tSheet.Paste

End Sub

当我运行这个宏时，它会将我的标题放在我想要的 A1 中。然后它将我的第一段放在 A2 中，这也是我想要的。不幸的是，当我想将下一段粘贴到 B2 中时，它会将下一段放在 A3 中。正确的流程如下：

• 标题 - A1
• 第 1 段 - A2
• 第 2 段 - B2
• 第 3 段 - A3
• 第 4 段 - B3

依此类推，就像我正在使用的段落一样......

我不确定我做错了什么。任何帮助将不胜感激，

标签： vbams-word