VB макрос

[xt3]

помогите бистренько макрос простенький написать

в документе есть таблица (3 колонки, неизвестное количество строк)
она первая в документе (я так понимаю ActiveDocument.Tables(1))

надо по очереди, сверху вниз
брать из ячейки первой колонки текст (я так понимаю ActiveDocument.Tables(1).Cell(i, 1))
использовать этот текст как имя элемента автотекста
а значение этого элемента брать из ячейки третьей колонки тойже строки

остановится когда кончиться таблица 1


пожалуйста помогите
я этот бейсика визуальный в глаза не видел, а интуитивно пытаюсь - что-то еррор один лезет и все

[xt3]

блин
ну хоть обясните че тут не правильно =(

(к моему ТЗ)

NormalTemplate.AutoTextEntries.Add Name:=ActiveDocument.Tables(1).Cell(2, 1).Range.Text, Range:=ActiveDocument.Tables(1).Cell(2, 3).Range

[Pan]

ты чтоль выложил б табличку.. хотябс заменеными данными..

попробуй одну вещч: там у экселя есть возможность записать макрос. кнопка типа как на магнитофоне - рекорд (запись). жми ее поделай чо нить - походи по табличке.. повыделяй ячейки.. потом глянь этот автоматический макрос - может чо понятней станет...

у меня такое ощущение что вместо ActiveDocument.Tables(1).Cell(2, 1).Range.Text, Range нужно писать ActiveDocument.Sheet(1).Cell(2, 1).Range.Text например.

млин сам уже них непомню.. хотя у меня даже была книженка вба для эксель... и писал я курсовую чтоль как то на нем..

[xt3]

спасибо Пан

тока это Word =))

так что shit not happens


я уже другую конструкцию придумал


For entry = 2 To ActiveDocument.Tables(1).Rows.Count
NormalTemplate.AutoTextEntries(ActiveDocument.Tables(1).Cell(entry, 1).Range.Text).Value = ActiveDocument.Tables(1).Cell(entry, 3).Range.Text
Next entry

она работает если я в ручную пишу имя автотеста
например ......AutoTextEntries("месяц").Value = ....

а если как выше написано, ошибку выдает "Запрашиваемый номер семейства не существует"

блин. над такой херней бьюсь =)))

[Dot]

Мне кажется причина в том что в тексте ячейки служебный символ содержится в конце строкового значения, поэтому и непроходит как параметр для NormalTemplate.AutoTextEntries.Add Name

[Leps]

вы такие умные ОФИГЕТЬ!!

[xt3]

все! сделал!

все ламошники кроме DOt )

спасибо Dot. я только, что сделал и все заработало. лезу на форум написать что все ламошники, а тут твой пост.

ты в точку попала. именно этот гребанный символ вмешивался.

[Dot]

[Tag]

хтз, а ты так и не узнал про мой вопрос?

[xt3]

а ты поточнее напиши что тебе надо!
вообще! тз свое