» Word VBA

товарисчи выручайте.

Application.PrintOut
Application.quit(0)

вот кратко код. Так вот не успевает отправить на печать подскажите как проверку сделать отправил ли он на печать илил хотябы как сделать таймер на 2-3 секунды перед закрытием.

Добавлено:
извиняйте что побеспокоил, методом научного тыка выяснил что если поставить background:=false у printout тогда quit срабатывает только после отправки на печать )

День добрый

В макросах не разбираюсь, но знаю что вещь нужная и полезная, плиз очень надо...
Итак нужен макрос который находит в огромном тексте (да в любом тексте) интервалы между строками и удаляет их(интервалы) сдвигая весь оставшийся текст вверх...

Пример:
до макроса:
В макросах не разбираюсь, но знаю что вещь нужная и полезная, плиз очень надо...

Итак нужен макрос который находит в огромном тексте (да в любом тексте) интервалы


между строками и удаляет их(интервалы) сдвигая весь оставшийся текст вверх...

после макроса:
В макросах не разбираюсь, но знаю что вещь нужная и полезная, плиз очень надо...
Итак нужен макрос который находит в огромном тексте (да в любом тексте) интервалы между строками и удаляет их(интервалы) сдвигая весь оставшийся текст вверх...

GOGACL

Цитата:

огромном тексте (да в любом тексте) интервалы между строками

это можно сделать банальным поиском/заменой (используя постановочные знаки)

SERGE_BLIZNUK
Если это поможет, можно поподробней с этого места

GOGACL
ответил Вам там, где положено в Microsoft WORD

SERGE_BLIZNUK
Спасибо работает, буду пользоваться

народ есть в двух местах в документе, две одинаковые цифры, приведите пример как их увеличивать запуская макрос....

Количество Распечаток: 600

есть макрос который делает прибавляет 1 к 600 и получаем там 601....
Как это оформить, не сталкивался с программированием в worde нет базиса.....

Написал сам
[more=Вот что получилось]ThisDocument.TextBox1.Value = Int(ThisDocument.TextBox1.Value) + 1
ThisDocument.TextBox11.Value = Int(ThisDocument.TextBox11.Value) + 1
ActiveDocument.PrintOut[/more]

bornbill

Цитата:

есть макрос который делает прибавляет 1 к 600 и получаем там 601....

так уже есть? или вы собираетесь его писать?

Цитата:

Как это оформить

самый главный вопрос - по какому событию Вы хотите выполнять ваш макрос?
(самые распространнёные варианты - вызывать из меню Макросы - выполнить..,
назначить макрос на кнопку/на сочетание клавиш,
повесить макрос на событие, связанное с открытием/сохранением документа...)

и ещё,

Цитата:

есть в двух местах в документе, две одинаковые цифры, приведите пример как их увеличивать запуская макрос

а как Вы видите себе алгоритм? Вы вообще программист? Найти ВСЕ цифры в документе и сравнить их на одинаковость - задачка ещё та... (особенно по вычислительным затратам!) Имхо, конечно.

Задача: нужно изменять размер страницы с А4 на А5.
Написал макрос с условием:

Код:
If ActiveDocument.PageSetup.PaperSize = wdPaperA5 Then
ActiveDocument.PageSetup.PaperSize = wdPaperA4
Else
ActiveDocument.PageSetup.PaperSize = wdPaperA5
End If
Application.ScreenRefresh

немогу к кнопке присвоить макрос


Код: Private Sub CommandButton1_Click()
Run Module1.Jump
End Sub

Попробуй полный путь т.е. к примеру project.Module1.Jump и run по-мойму это лишнее

спасибо Run лишнее

Привет, делаю первые шаги в VBA а результат хочется сразу.
Подскажите, как сделать следующее.
В документ или шаблон, в определенное место нужно вставить данные из формы, состоящей из простых полей (textbox).
Как это сделать?

И еще подскажите как вставить рисунок в текст на форуме.

Как удалить через VBA переводы строк в строке таблицы? Спасибо.

Решение по удалению переводов строк нашел.

Кто подскажет как в активном документе собрать (вывести в начале файла например) список используемых стилей абзаца? только используемых!

Цитата:

Кто подскажет как в активном документе собрать (вывести в начале файла например) список используемых стилей абзаца? только используемых!

Если нужно список стилей внедренных в документ, то можно использовать свойство стиля InUse, свойство Type (тип стиля) можно использовать, если нужно выбрать только определенные стили абзацев или символов.

Если стили нужно отыскать в документе, то по-мойму только перебирать все абзацы и делать коллекцию, хотя наверно должен быть более простой способ.

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

Есть вордовский документ
и есть список ключевых слов
Нужно обработать этот документ так, чтобы каждое ключевое слово имело список (номера) страниц, где оно содержиться.

Цитата:

Нужно обработать этот документ так, чтобы каждое ключевое слово имело список (номера) страниц, где оно содержиться.

Вроде, в Word есть такая фича, как вставка Указателя. Это то, что тебе нужно - добавь только автоматическую пометку нужных слов как ключевые. С этим надо разбираться. Начни со Вставка::Оглавление и указатели - там есть все кнопки. Запиши макрос, затем разбирайся, как всё автоматизировать. Удачи!

popkov
Это не то.
Мне нужно как минимум оператор на VBA который выводит номер страницы документа.
остально я уж сам додумаю
Кто подскажет как он пишеться?

Учебный курс "Программирование в Microsoft Office для пользователей"
Книга по этому курсу

Народ, нужна книга по созданию макросов в Word. Подскажите - где взять.

Serg1212
Глянь ту, что постом выше. И еще здесь - http://forum.ru-board.com/topic.cgi?forum=93&bm=1&topic=0407#1

DavenL0StuS

Цитата:

Как дети чес слово, пароль VBA - когда ж это проблемой было?

А всё-таки, как разблокировать заблокированный проект VBA ("Project is unviewable")? Насколько я понимаю, пароль нетрудно подобрать с помощью
Office Password Recovery Мастер http://www.rixler.com/office_password_recovery_master.htm,
но некоторые проекты, если ему верить, вообще не защищены паролем, а та же ситуация - открыть не удаётся... Что делать дальше?

popkov
Цитата:

А всё-таки, как разблокировать заблокированный проект VBA ("Project is unviewable")?
...
но некоторые проекты, если ему верить, вообще не защищены паролем, а та же ситуация - открыть не удаётся... Что делать дальше?

а скажите, запаковать и выложить пример такого файла можно?
я не специалист, но программ много - потыкаю, может какая и поможет...

SERGE_BLIZNUK
Вот, например, надстройка EndNote для Word:
http://ifolder.ru/3657514
Office Password Recovery Мастер утверждает, что пароля там нет. НО как просмотреть проект?

popkov

Цитата:

Вот, например, надстройка EndNote для Word
<...>
НО как просмотреть проект?

а что ты ожидаешь в нем увидеть? основная функциональность все равно обеспечивается библиотекой EndNote Cwyw.dll
Вот, к примеру, задекларированные функции
Код: Public Declare Sub ENFindCitations Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENGoToEndNote Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENFormatBibliographyDlg Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENInsertSelectedCitations Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENEditCitations Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENInsertNote Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENEditLibraryReferences Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENUnformatCitations Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENRemoveFieldCodes Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENExportTravelingLibrary Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENInsertFigure Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENFormatFigures Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENPreferences Lib "EndNote Cwyw.dll" ()
Public Declare Sub ENHelp Lib "EndNote Cwyw.dll" ()

Troitsky

Цитата:

а что ты ожидаешь в нем увидеть?

Я надеялся, что можно найти причину, по которой в 2003 офисе обновление полей цитат в тексте документа (если документ открыт в режиме "Разметка страницы") приводит к полной переразбивке документа на страницы после обновления каждого поля цитаты. Причём на первых порах у меня это в 2003 офисе не происходило, потом началось, и не прекращается. Думаю, что это свойство именно 2003 офиса, потому что в нём (но не в XP) наблюдается такое же поведение при печати в PDF с помощью плагина Adobe PDF for Word (Acrobat 7 или 8 - одно и то же). Результатом последнего, кстати, являются неправильные перекрёстные ссылки внутри документа (на сноски внизу страницы, которые оказыватся ошибочно пронумерованы сквозным образом через весь документ, а не на каждой странице начиная с 1). Переустановка офиса не помогла (2 раза переставлял с тех пор).

Дело в том, что в написанном мной ранее макросе, выполняющем просто обновление всех полей внутри документа (и/или удаление кодов полей) такой глюк сейчас не наблюдается вовсе (а раньше наблюдался, только если прокрутить документ к середине в режиме "Разметка документа").

Хотел выяснить, каким образом разработчики EndNote и Acrobat реализовали соответствующие функции и исправить по мере возможности, а то тормоза при вставке ссылки EndNote ужасно напрягают (они связаны с повторяющейся 1000 раз переразбивкой документа на страницы), а глюки плагина Acrobat для Word делают его бесполезным.


Цитата:

основная функциональность все равно обеспечивается библиотекой EndNote Cwyw.dll

Но всё-таки хотелось бы иметь возможность посмотреть коды этих всех надстроек. Интересно ещё, например, на MathType глянуть изнутри.

Оказалось, проблема решается до отвращения просто. Видимо, именно поэтому об этом нигде не пишут.
Вначале надо отключить соответствующую надстройку (лучше путём физического перемещения файла на диске), а затем просто открыть файл надстройки в Word. - и "Project is unviewable" не возникает, вместо этого сообщения запрос пароля (если он есть).
Спасибо Troitsky.

popkov

Цитата:

Оказалось, проблема решается до отвращения просто.

Однако, не стоит обольщаться. Как я уже говорил, функциональность надстроек, идущих в комплекте с какими либо программами, сводится только к использованию функций этих программ, сокрытых обычно в динамических библиотеках (dll)
Примерами тому - надстройки от Lingvo, FineReader, ВААЛ и т.д.