Добрых всем суток! У меня такой код, из excel мне нужно скопировать разные таблицы в word, чтобы они не вылетали из диапазона вордовского листа,т.е как-нибудь их масштабировать типа "разместить на 1 листе", вот как в worde это сделать пока не нашел. Заранее спасибо!

Sub Кнопка4_Щелчок()

ThisWorkbook.Sheets("обложка").Range("A1:A35").Copy
On Error Resume Next

Set Word = GetObject("", "Word.Application")

Word.Visible = True

ThisWorkbook.Sheets("содерж").Range("A2:c25").Copy
Call Word.Selection.PasteSpecial(link:=True, DataType:=wdPasteOLEObject, Placement:=wdInline, DisplayAsIcon:=False)
Word.Selection.typeParagraph

Call Word.activeDocument.Save

End Sub

roma126,
маленькая поправка
Sub Кнопка4_Щелчок()

ThisWorkbook.Sheets("обложка").Range("A1:A35").Copy
On Error Resume Next

Set Word = GetObject("", "Word.Application")

Word.documents.Add
Word.Visible = True

ThisWorkbook.Sheets("содерж").Range("A2:c25").Copy
Call Word.Selection.PasteSpecial(link:=True, DataType:=wdPasteOLEObject, Placement:=wdInline, DisplayAsIcon:=False)
Word.Selection.typeParagraph

Call Word.activeDocument.Save


End Sub