Что нового

Как адаптировать макрос VBA для вставки таблицы в документ Word

alex2887

Новичок
Сообщения
57
Репутация
0
Всем привет, не откажите пожалуйста в помощи, как адаптировать макрос VBA, который добавляет простенькую таблицу в документ Word. Как его вставить и как адаптировать, чтобы Autoit его понял. Не пинайте сильно ногами, очень прошу :'(
Не могу никак сообразить, а тема интересная и вдруг пригодится (а она может мне пригодиться). Темы в поиске читал, но там слишком сложные примеры для меня, мне бы попроще, чтобы вникнуть, так я лучше понимаю. Просто если тот же самый макрос просто вставить в скрипт, то он не отрабатывает, его нужно как-то подготовить для работы. Заранее спасибо.

Вот сам макрос vba:
Код:
Sub Таблица()
'
' Таблица Макрос
'
'
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        3, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Сетка таблицы" Then
            .Style = "Сетка таблицы"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With
End Sub
 

pvnn

Осваивающий
Сообщения
305
Репутация
32
Код:
#include <Word.au3>
 #include <Array.au3>

 $oWord = _Word_Create()	; Создать Новый экземпляр Word
 $oDoc=_Word_DocAdd($oWord)	; Создать пустой Word документ

 $oRange = _Word_DocRangeSet($oDoc, -2) 	; Устанавить курсор в Конец Word файла
 $oDoc.Tables.Add($oRange,3,2)				; Создать таблицу 3 строки, 2 столбца
 $oDoc.Tables(1).Style = "Сетка таблицы"	; Нарисовать сетку таблицы

 $oRange = _Word_DocRangeSet($oDoc, -2)		; Устанавить курсор в Конец Word файла
 $oRange.InsertBreak($wdLineBreak) 			; Enter
 
Автор
A

alex2887

Новичок
Сообщения
57
Репутация
0
Благодарю за помощь, все заработало, теперь буду разбираться. А скажите пожалуйста, русская справка по функциям Word в природе существует?
 
Верх