'получаем ссылку на шаблон
Set oWordDoc = GetObject("c:\miss\eibtemp\eibdoc.dot")
'присваиваем некий текст закладкам
With oWordDoc.Bookmarks
.Item("myFirstBookmark").Range.text = "ЦКБ ГА " & " " & Now()
''''''''''
'делаем приложение видимым
oWordDoc.Parent.Visible = True
End With
Word и Excel, перенос данных
Вопрос опять про перенос и сохранение. Но на это раз немного видоизменился. Есть файл Экселя, там считаются всякие суммы коэффициенты и.д. И есть в ворде договор, в котором указываются все эти суммы и проценты. Хочется сделать так, чтобы по нажатию на кнопку в Экселе (спросили имя файла для нового договора) и потом по шаблону ( лежит в какой-то папке скажем "мои документы") сделался новый договор (с указанным именем) и уже с данными из экселя.Т.е. получается данные должны вставится в заранее подготовленные для них места ( или как? я не знаю) В итоге чтобы "отправляй на печать и радуйся :-)" Заранее спасибо.
Тебе проще шаблон состряпать в самом Excel-е - и сохранять и печатать ведь тоже можно.
Я бы сделал именно так !
Я бы сделал именно так !
Цитата:
Originally posted by Meh&VB
Тебе проще шаблон состряпать в самом Excel-е - и сохранять и печатать ведь тоже можно.
Я бы сделал именно так !
Тебе проще шаблон состряпать в самом Excel-е - и сохранять и печатать ведь тоже можно.
Я бы сделал именно так !
Ну это самый простой способ конечно, только вот форматирование документа организовать довольно сложно. Например по ширине :-).
Цитата:
Originally posted by crazytrain
Ну это самый простой способ конечно, только вот форматирование документа организовать довольно сложно. Например по ширине :-).
Ну это самый простой способ конечно, только вот форматирование документа организовать довольно сложно. Например по ширине :-).
рекомендую создать шаблон Word (*.dot), и обозначить в нем места будущей вставки данных, например закладками (bookmarks) -> меню вставка-закладка, вставляя затем (из Excel) необходимые значения в указанные координаты
Цитата:
Originally posted by likhobory
рекомендую создать шаблон Word (*.dot), и обозначить в нем места будущей вставки данных, например закладками (bookmarks) -> меню вставка-закладка, вставляя затем (из Excel) необходимые значения в указанные координаты
рекомендую создать шаблон Word (*.dot), и обозначить в нем места будущей вставки данных, например закладками (bookmarks) -> меню вставка-закладка, вставляя затем (из Excel) необходимые значения в указанные координаты
А можно чуть-чуть по конкретнее? как в макросе Экселя обращаться к этим закладкам? как открыть перед этим документ ворд?
Цитата:
Originally posted by crazytrain
А можно чуть-чуть по конкретнее? как в макросе Экселя обращаться к этим закладкам? как открыть перед этим документ ворд?
А можно чуть-чуть по конкретнее? как в макросе Экселя обращаться к этим закладкам? как открыть перед этим документ ворд?
допустим, шаблон создан по указанному пути со всеми необх. закладками
Код:
Цитата:
Originally posted by likhobory
допустим, шаблон создан по указанному пути со всеми необх. закладками
допустим, шаблон создан по указанному пути со всеми необх. закладками
Код:
'получаем ссылку на шаблон
Set oWordDoc = GetObject("c:\miss\eibtemp\eibdoc.dot")
'присваиваем некий текст закладкам
With oWordDoc.Bookmarks
.Item("myFirstBookmark").Range.text = "ЦКБ ГА " & " " & Now()
''''''''''
'делаем приложение видимым
oWordDoc.Parent.Visible = True
End With
Set oWordDoc = GetObject("c:\miss\eibtemp\eibdoc.dot")
'присваиваем некий текст закладкам
With oWordDoc.Bookmarks
.Item("myFirstBookmark").Range.text = "ЦКБ ГА " & " " & Now()
''''''''''
'делаем приложение видимым
oWordDoc.Parent.Visible = True
End With
А подскажите чайнику, как присвоить закладке не текст, а некое значение из таблицы TTT лист LLL ячейка A1?
Заранее премного благодарен.