Excel VBA 按钮将工作表复制到新的 Word 文档

Question

下面的代码复制了一个 table 我的作品 sheet 并将其粘贴到一个新的 Microsoft Word 文档中。唯一的问题是它在粘贴到 word 文档中时会截掉一半 table。有什么建议么？谢谢

Sub btnExport()
Dim objWord As Word.Application
Range("C2:D60").Copy

Set objWord = CreateObject("Word.Application.14")
With objWord
    .Documents.Add
    .Visible = True
    .Selection.Paste
End With
End Sub

Sheet I'm using

Answer 1

您可以使用 Word AutoFit 命令使 table 适合文档。我也包含了将方向切换为横向的代码，但这可能不是必需的。

Sub btnExport()
    Dim objWord As Word.Application
    Range("C2:D60").Copy ' you should name the worksheet as well here really

    Set objWord = CreateObject("Word.Application.14")
    With objWord
        .Documents.Add
        .ActiveDocument.PageSetup.Orientation = 1 'wdOrientLandscape
        .Visible = True
        .Selection.Paste
        .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow
    End With
End Sub

Excel VBA 按钮将工作表复制到新的 Word 文档

Excel VBA Button Copy WorkSheet to New Word Doc

excel

vba

ms-word

worksheet