Подскажите как обратиться к Таблице после экспорта, изменить её свойства.
Перепробовал и через 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]