Как скопировать лист из excel в word , но на формат страницы А3?

Есть код,который копирует таблицы из excel в word. Но эти таблицы очень большие. как сделать так,чтобы в ворд копировалось сразу на формат А3?

Sub Word()
Dim WrdApp As Object
On Error Resume Next
If WrdApp Is Nothing Then
Set WrdApp = CreateObject("Word.Application")
Set WrdDoc = WrdApp.Documents.Add
WrdApp.Visible = True
End If
WrdDoc.SaveAs Filename:="D:\1.doc", FileFormat:=6
Range("A1:CC141").Copy
WrdDoc.Range(0).Paste
Selection.PasteAndFormat (wdFormatPlainText)

End Sub