Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
30.08.2004, 18:14
|
|||
|---|---|---|---|
|
|||
VFP и Word |
|||
|
#18+
Создаю объект Word, в нём колонтитул, добавляю номер страницы oWord.ActiveDocument.Sections(1).Footers(1).PageNumbers.Add А какой метод добавляет общее число страниц? Никак не могу найти ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
30.08.2004, 19:46
|
|||
|---|---|---|---|
|
|||
VFP и Word |
|||
|
#18+
Если попробовать написать макрос, в коде получим Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldPage (добавляет номер страницы) Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldNumPages(добавляет число страниц) через oWord.ActiveDocument.Sections(1).Footers(1). тоже не нашел. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
01.09.2004, 17:23
|
|||
|---|---|---|---|
|
|||
VFP и Word |
|||
|
#18+
ActiveDocument.Sections(1).Footers(1).Range.Fields.Add ActiveDocument.Sections(1).Footers(1).Range, wdFieldNumPages ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
02.09.2004, 11:51
|
|||
|---|---|---|---|
|
|||
VFP и Word |
|||
|
#18+
есть вопрос :) открываем файл oleApp = CreateObject("Word.basic") oleApp.AppShow oleApp.FileOpen("C:\mejdelo\urs.rtf") ищем переменную t1 и заменяем ее на t2 FOR i=1 TO 2 oleapp.editfind(t1) oleapp.insert(t2) ENDFOR внимание вопрос ! :) вместо for надо использовать do while или что то похожее , но как? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
03.09.2004, 13:52
|
|||
|---|---|---|---|
|
|||
VFP и Word |
|||
|
#18+
ffffx0есть вопрос :) открываем файл oleApp = CreateObject("Word.basic") oleApp.AppShow oleApp.FileOpen("C:\mejdelo\urs.rtf") ищем переменную t1 и заменяем ее на t2 FOR i=1 TO 2 oleapp.editfind(t1) oleapp.insert(t2) ENDFOR внимание вопрос ! :) вместо for надо использовать do while или что то похожее , но как? Посмотри на форуме Office ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=41&tablet=1&tid=1595878]: |
0ms |
get settings: |
9ms |
get forum list: |
18ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
40ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
41ms |
get tp. blocked users: |
1ms |
| others: | 218ms |
| total: | 345ms |
| 0 / 0 |
