![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 02.04.2012
Сообщений: 7
|
![]()
Записал макрос:
Код:
Но при попытке использовать макрос в VB получаю ошибку. Как нужно переделать макрос, чтобы в колонтитулы добавлялись номера страниц? Заранее спасибо. Последний раз редактировалось madster; 18.06.2012 в 17:00. |
![]() |
![]() |
![]() |
#2 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Естественно, если использовать этот макрос в VB совершенно не переделав, то будут ошибки, т.к. макрос подразумевает, что он выполняется из-под Word'a, а ты его выполняешь из-под VB, значит доработать. Лучше всего, подключить соответствующую библиотеку Microsoft Word 11.0 Object Library или другой версии. Тогда код должен выглядеть как-то так:
Код:
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#3 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,165
|
![]()
а смысл создавать wdDoc, если к нему не обращаемся?
|
![]() |
![]() |
![]() |
#4 |
Балуюсь кодами
Участник клуба
Регистрация: 09.01.2009
Сообщений: 1,837
|
![]()
Во-первых, обращаемся к нему: wdSeekMainDocument, во-вторых Selection работает не в вакууме, а в-третьих это только часть кода, вряд ли задача стоит только во вставке поля в колонтитул. И всё же, если переменная для документа не нужна, то её можно не объявлять. Но документ открыть или создать нужно!
Лучше день потерять — потом за пять минут долететь!©
|
![]() |
![]() |
![]() |
#5 |
Регистрация: 02.04.2012
Сообщений: 7
|
![]()
viter.alex, спасибо!
Но на строке "Set wdDoc = wdApp.Documents.New() 'Новый документ" возникает ошибка. Забыл уточнить, эти манипуляции нужно произвести для 2007 офиса. Вот так у меня для 2003 офиса: Код:
Последний раз редактировалось madster; 20.06.2012 в 08:34. |
![]() |
![]() |
![]() |
#6 |
Старожил
Регистрация: 24.01.2011
Сообщений: 3,165
|
![]()
доля правды есть, а как насчёт wdDoc As Word.Document - тип не определён
|
![]() |
![]() |
![]() |
#7 |
Регистрация: 02.04.2012
Сообщений: 7
|
![]()
Неужели такой сложный вопрос, что больше нет ответов?
|
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
![]()
Вот так у меня для 2003 офиса
Попробуйте - работает даже в VBS Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
![]()
Правильнее, конечно, вводить отдельные поля, иначе в другой локали "Стр. <№> из <всего>" не сработает:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
![]() |
![]() |
![]() |
#10 |
Регистрация: 02.04.2012
Сообщений: 7
|
![]() |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
как создать поле с 3 точками | _LEXXX | Общие вопросы Delphi | 8 | 03.06.2014 20:53 |
как програмно создать событие??? | gufon | Общие вопросы Delphi | 7 | 07.06.2011 16:31 |
програмно загруз веб страницу вставить текст и програмно нажать кнопку. | asdn | Общие вопросы .NET | 0 | 05.10.2010 13:40 |
как програмно создать TSpeedButton | Angel86rus | Общие вопросы Delphi | 2 | 14.02.2010 21:33 |