Экспорт из Excel в Word. Обратиться к Таблице и изменить её

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Экспорт из Excel в Word. Обратиться к Таблице и изменить её (Макросы/Sub)

alex3111

Дата: Воскресенье, 10.05.2015, 14:18 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 3 ±

Замечаний: 0% ±

Excel 2007

Подскажите как обратиться к Таблице после экспорта, изменить её свойства.
Перепробовал и через WordApp и через WRRR, поправьте плиз:
[vba]

Код

For Each SH_ocenki_1 In Worksheets

Set WRRR = WordApp.ActiveDocument.Range
Set SH_ocenki_1 = ActiveSheet.Range("A1", Cells(posl_STR_Tabl_1, 8))

     If Not WRRR.Find.Execute("ttt_TABLICA", True, True) Then Exit For

     SH_ocenki_1.Copy

     WRRR.PasteExcelTable False, False, False

     'ТАБЛИЦА ПО ВЫСОТЕ
     With WordApp.ActiveDocument.Tables(1)
     .Rows.HeightRule = wdRowHeightAtLeast
     .Rows.Height = WordApp.CentimetersToPoints(0.04)
     End With

     'РАЗМЕР ШРИФТА 12
     WRRR.Font.Size = 12

     'ТАБЛИЦА ПО ШИРИНЕ
     With WordApp.ActiveDocument.Tables(1)
     .AutoFitBehavior (wdAutoFitWindow)
     End With

     'ОТСТУП
     With WordApp.ActiveDocument.Tables(1).ParagraphFormat
         .SpaceBeforeAuto = False
         .SpaceAfterAuto = False
         .FirstLineIndent = CentimetersToPoints(0)
         .CharacterUnitFirstLineIndent = 0
     End With


     Application.CutCopyMode = False

Next

[/vba]