Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Экспорт в Word, Экспорт в bookmark 
V
    Опции темы
avlzll
Дата 1.11.2010, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
День добрый вам smile

Выгружаю данные в документ Word через закладки. Вроде ничего сложного, но загвоздка такая. В один и тот же документ нужно вставлять несколько раз одни и те же данные. Возьмем для примера какой-либо договор, ИНН нужно воткнуть в несколько мест сразу. Понятное дело внутри документа нельзя создавать закладки с одинаковыми именами, поэтому приходится плодить их ИНН, ИНН_1, ИНН_2. Есть ли возможность этого избежать?

Код

            If .Bookmarks.Exists("ИНН") Then
                .Bookmarks.Item("ИНН").Range.Text = Nz(ИНН, "")
            End If
            If .Bookmarks.Exists("ИНН_1") Then
                .Bookmarks.Item("ИНН_1").Range.Text = Nz(ИНН, "")
            End If
            If .Bookmarks.Exists("ИНН_2") Then
                .Bookmarks.Item("ИНН_2").Range.Text = Nz(ИНН, "")
            End If
PM MAIL   Вверх
Akina
Дата 1.11.2010, 22:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454
Код

i=0
do while .Bookmarks.Exists("ИНН" & cstr(i))
  i=i+1
loop 
.Bookmarks.Item("ИНН" & cstr(i)).Range.Text = Nz(ИНН, "")



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
bopoha
Дата 1.11.2010, 23:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21
Я вставляю в документ свои метки, например [$T_UNN]. В момент обработки шаблона ищу текст [$T_UNN] и заменяю его на нужный (см. метод Find и опцию Replace). Так оказалось проще. При этом bookmarks не видны в тексте документа, что создает дополнительные неудобства.


--------------------
Как создавать приложения на MS Access
PM MAIL WWW ICQ Skype GTalk   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0990 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.