Копирование таблицы из экселя в ворд - VBA

Формулировка задачи:

Добрый день, помогите реализовать. такую фишку. Созданную таблицу в экселе нужно скопировать в ворд. пробовал написать код не вышло.

                    Листинг программы
                
 
                        
                          
                    
Sub ЭкспортВВОРД()
 
Dim adr As String
Dim copyTABL As Object
    
    adr = ActiveWorkbook.Path
 
ActiveWindow.SmallScroll Down:=27 
Range("A1:C39").Select
ActiveWindow.SmallScroll Down:=-39
Selection.Copy
 
Set oWord = CreateObject("Word.Application") 
    oWord.Visible = True
Set oDoc = oWord.Documents.Add()
    oDoc.Activate
    
    Selection.Paste 
    MyRange.Collapse Direction:=wdCollapseStart
    MyRange.Paste
 
End Sub

Решение задачи: «Копирование таблицы из экселя в ворд»

textual
                            Листинг программы 
                        
With .Tables(1)
     .Range.Font.Name = "Times New Roman"

Оцени полезность:

9 голосов , оценка 3.444 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы