宏将数据范围从表格复制到外边缘 [英] Macro to copy excel range of data as table to word goes outside margins

问题描述

我想把宏从excel写成复制表。它应该保持格式化，并且必须自动适应单词。表不应超出范围粘贴到单词。

I want to write macro to copy table from excel to word. It should maintain formatting and must auto-fit to word. Table should not go out of range when pasted to word.

Dim wdApp As Object
Dim wd As Object

On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
    Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0

Set wd = wdApp.Documents.Add

wdApp.Visible = True

Sheets("Sheet1").Select
Range("A1:E36").Select
Selection.Copy

wdApp.Selection.PasteExcelTable False, False, False

以上代码变差。它将excel数据范围复制成表格。然而，表格在word文档的边缘之外。
Excel中的数据 - 复制后Word中的数据 -

Above code wors. It copies excel range of data as table to word. However table goes outside margins of word document. Data in Excel - Data in Word after Copy -

推荐答案

添加到最后

wd.Tables(1).AutoFitBehavior wdAutoFitWindow

这篇关于宏将数据范围从表格复制到外边缘的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！