當表格到單詞超出邊距時，用於復制Excel數據范圍的宏

Question

我想編寫宏以將表格從Excel復制到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。 但是表超出了Word文檔的邊距。 Excel中的數據- 復制后Word中的數據-

Answer 1

添加到最后

wd.Tables(1).AutoFitBehavior wdAutoFitWindow

Answer 2

嘗試這個：

wdApp.Selection.PasteExcelTable False, True, False   'causing losing excel formatting

附：

'change fileformat and filename as per your need

wdApp.Selection.PasteExcelTable False, False, False
wd.SaveAs Filename:="demo.docm", FileFormat:=wdformatdocm
wd.Tables(1).AutoFitBehavior wdAutoFitContent 'you may try wdAutoFitWindow as well

Answer 3

嘗試

wd.Tables(1).Range.ParagraphFormat.SpaceAfter = 0

Answer 4

將括號放在wdAutoFitWindow周圍