使用 VBA 在 Word 中转置表格

Question

我正在尝试编写一种使用 Visual Basic 和 Excel 对象模型在 Word 中转置表格的方法。但是，我在对复制的 Word 对象使用特殊粘贴时遇到问题，因为它不仅仅是纯文本。

是否可以通过转置强制纯文本粘贴？有更好的方法吗？

我当前的代码如下：

Public Sub transposeTable()

Selection.Copy
Dim oXlApp As New Excel.Application
Dim oXlBook As Excel.Workbook
Set oXlApp = CreateObject(Class:="Excel.Application")
Set oXlBook = oXlApp.Workbooks.Add
oXlBook.Sheets(1).Range("A1").Select
oXlApp.ActiveCell.PasteSpecial Transpose:=True
oXlBook.Sheets(1).Cells.SpecialCells(xlCellTypeConstants).Select
oXlApp.Selection.Copy
Selection.Paste
End Sub

我收到的错误是：

Run-time error '1004':
PasteSpecial method of Range class failed

Answer 1

您是否尝试过在不格式化的情况下粘贴？

oXlApp.ActiveCell.PasteSpecial Paste:=xlPasteValues, Transpose:=True

Answer 2

我现在已经成功地使用中间粘贴步骤使其工作。

Public Sub transposeTable()

Selection.Cut
Dim oXlApp As New Excel.Application
Dim oXlBook As Excel.Workbook
Set oXlApp = CreateObject(Class:="Excel.Application")
Set oXlBook = oXlApp.Workbooks.Add
oXlBook.Sheets(1).Range("A1").Select
oXlApp.ActiveSheet.Paste
oXlBook.Sheets(1).Cells.SpecialCells(xlCellTypeConstants).Select
oXlApp.Selection.Copy
oXlBook.Sheets(2).Select
oXlBook.Sheets(2).Range("A1").Select
oXlApp.ActiveCell.PasteSpecial Transpose:=True
oXlBook.Sheets(2).Cells.SpecialCells(xlCellTypeConstants).Select
oXlApp.Selection.Copy
Selection.Paste
oXlBook.Close (False)
oXlApp.Quit
End Sub