VPF::вставка данных из excel в word (office 2003)

Shooroop

Дата 18.1.2009, 04:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 75
Регистрация: 28.4.2008
Где: Красноярск

Репутация: нет
Всего: 2

Господа и дамы помогите с макросом.
Задание: в excel'e создать макрос который открывает шаблон word'a переходит на первую таблицу и вставляет данные, сохраняет и выходит из word.

с запуском word более менее разобрался но наверно что то сделал не так т.к. не могу передвигаться по документу (MoveDown, MoveStart, Wrd.Tables(1).Select)
все на что меня хватило привожу в листинге:

Код


Sub macros1()
    Interactive = False
    
    'Application.ActivateMicrosoftApp xlMicrosoftWord
    'Dim Wrd As New Word.Application
    Dim Wrd
    Set Wrd = GetObject(, "Word.Application")
    Wrd.Documents.Open Filename:="test.dot", ReadOnly:=False
    Wrd.Visible = True
    'Wrd.Documents.Add.ActiveWindow.Activate
    'Wrd.Application.Selection.MoveDown Unit:=wdCharacter, Count:=1 ' не работает
    'Wrd.ActiveWindow.Selection.MoveDown wdLine, 1 ' не работает
    'Wrd.Tables(1).Select ' не работает
    'Wrd.ActiveWindow.Selection.MoveStart (1) ' не работает
    'Wrd.ActiveWindow.Selection.MoveStart Unit:=wdTable, Count:=1 ' не работает

    'Wrd.ActiveWindow.Selection.TypeText (Range("C4"))
    Wrd.ActiveWindow.Selection.TypeText "yyyyyyyyy"
    
    Interactive = True
    
End Sub

Всем спасибо, разобрался сам.

Код


Interactive = False
'ReferenceStyle = xlR1C1
Dim myWord As Word.Application, myDoc As Document 'объявление переменных
Set myWord = New Word.Application 'инициализация
Set myDoc = myWord.Documents.Add("Уведомление.dot")
myWord.Visible = True

myWord.Selection.MoveStart wdTable, 3   'переход на 3ю таблицу в документе
myWord.Selection.MoveRight wdCell, 5 * 2    'пробегаем по шапке таблицы

Это сообщение отредактировал(а) Shooroop - 18.1.2009, 10:09

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »