Question

我复制并粘贴到单词中的单元格范围变为表格。我想知道如何引用单词表并调整行高和列宽以适合给定的大小。

Sub RangeImporter()
Dim wrdApp As Word.Application

Dim rng As Range

Set wrdApp = New Word.Application
wrdApp.documents.Add
wrdApp.Visible = True
Set rng = Range("A27", Range("A27").End(xlDown))
rng.Copy

With wrdApp.Selection
    .Paste
End With


wrdApp.Quit

Set wrdApp = Nothing

End Sub

我对此非常陌生，除了我在这里所提到的内容之外，我的背景很少。任何帮助/提示/评论将非常感激。

谢谢，

Answer 1

我在microsoft开发中心网站上找到了答案here。我改变了：

With wrdApp.Selection
.Paste
End With

要 *

With wrdApp.Selection
    .Paste
    .Tables(1).Rows.SetHeight RowHeight:=InchesToPoints(0.2), HeightRule:=wdRowHeightExactly
End With

* 我确信我可以将此概念应用于列，字体大小等。

Answer 2

我想知道如何引用单词表并调整行高和列宽以适合给定的大小。

Sub Table4SlowRandy()
    Dim aTbl As Word.Table

    ' paste a table from Excel
    Selection.Range.Paste

    ' Assign pasted table to variable
    Set aTbl = Selection.Range.Tables(1)

    ' Modify aTbl as you like
    aTbl.Rows.SetHeight RowHeight:=InchesToPoints(0.2), HeightRule:=wdRowHeightExactly

    ' Deallocate aTbl
    Set aTbl = Nothing

End Sub

从电子表格范围Excel VBA调整Word表格的行/列高度/宽度

2 个答案: