exMIB Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору     Обсуждаем вопросы только по Word VBA (программирование макросов, скриптов, пользовательских функций и т.п.). Приветствуются ссылки на ресурсы и справочную литературу по теме.   Вопросы по работе с MS Word, не относящиеся к программированию, задаем в теме Microsoft Word   Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются. Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)   Рекомендации: Если у Вас есть проблема, не решаемая стандартными средствами Word (об этом можно уточнить здесь) или требующая автоматизации, попробуйте для начала записать макрос самим Word (на вкладке Разработчик - Запись Макросов). Подробнее здесь. В большинстве случаев получившийся код (Разработчик-Макросы-Макрос-Изменить или Разработчик-Visual Basic) Вас не удовлетворит, но подскажет, какие объекты-методы-свойства использовать.   Другой Ваш помощник - Просмотр объектов (Object Browser). Ну и встроенная помощь (F1), естественно.   Если Вы в тупике, покажите Ваш код (или часть кода) здесь.  Если вылезает ошибка, цитируйте ее полностью. Если код слишком большой, используйте тeг [more]. Используйте отладчик - Breakpoints (F9), Watches (Shift-F9), Steps (F8 и др.) Сильно облегчает поиск ошибок.   Рекомендуется к прочтению: Начало работы с VBA в Word 2010 Microsoft Visual Basic for Application. Осетрова И.С., Осипов Н. А. Учебное пособие (руководство по программированию на VBA в MS Office)   Введение в VBA для приложений MS OFFICE Word и его объекты. Лекция из курса «Основы офисного программирования и документы Word» WinApi. Лекция из курса "Основы офисного программирования и язык VBA" (для продвинутых) Справка по VBA Microsoft Word Visual Basic Reference - руководство по VBA (eng.) Справочник по Word VBA Блог Александра Гуревича  - тематический блог: советы по работе с Word и Excel и прочие материалы Форум по VBA, Excel и Word Макросы в Word -тематический форум, готовые решения Список полезной литературы по Word и программированию на VBA Подборка решений на VBA для Word       Excel VBA все вопросы по Excel VBA туда Access все вопросы по программированию в Access туда Книжульки по VBA - книги по программированию с использованием VBA   Конкретные вопросы/готовые решения: функция возвращает список закладок в документ   Перечень основных ColorIndex'ов из MSDN   - стартовый вопрос топика... Смежные темы: Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003 Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver Программы » Word FAQ | Excel FAQ | Access FAQ Прикладное программирование » Excel VBA | Access VBA   Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003 Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007 Всего записей: 3329 | Зарегистр. 27-09-2001 | Отправлено: 03:05 01-06-2005 | Исправлено: ALeXkRU, 17:10 03-08-2021

msmih Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alex_Piggy Цитата: Не понял...   теперь я не понял))) вроде все тоже самое было, но первую букву в моем варианте отделял. Ваш вариант идеально работает.  Большое спасибо! Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 14:39 02-02-2014

msmih Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору еще с одной заморочкой зашел. Задача: удалить параграф содержащий определенный текст. Пока додумался до такого кода Код:   For Each Paragraph In ActiveDocument.Paragraphs     Selection.Find.ClearFormatting     Selection.Find.Replacement.ClearFormatting     With Selection.Find         .Text = "то что я ищу"         .Forward = True         .Wrap = wdFindContinue         .Format = False         .MatchCase = False         .MatchWholeWord = False         .MatchWildcards = False         .MatchSoundsLike = False         .MatchAllWordForms = False     End With     Selection.Find.Execute           If Selection.Find.Found = True Then Paragraph.Range.Delete Next   находит. но удаляет не текущий абзац, а текущий и все перед ним стоящие. Буду признателен за подсказку Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 16:39 02-02-2014 | Исправлено: msmih, 16:42 02-02-2014

msmih Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Alex_Piggy   Цитата: А что если зайти с другой стороны?   Отработало все отлично! Еще раз благодарю! и преклоняю голову за ваш труд! Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 18:17 02-02-2014

agevelenko Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Помогите, пожалуйста, с другой проблемой .   Есть необходимость получить в Ворде адрес последней строки таблицы, существующей в Экселе. Почему не работает следующий способ: (?)   Dim Ex as Object   Set Ex = GetObject(путь на файл Эксель) Addr$=Ex.Application.Range("VAR1").End(xlDown).Address( , , xlR1C1)   В этом коде, расположенном на листе Ворда, ВБА не распознает метод .End(xlDown). Пишет ошибку 1004. Ячейка Range("VAR1") располагается не на первом листе, если вдруг это важно. Всего записей: 9 | Зарегистр. 12-03-2014 | Отправлено: 18:21 19-03-2014

msmih Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Доброго времени суток. Буду признателен за подсказку. С помощью VBA меняю один знак на кавычки. условно замена "-" на chr(34). Но результат всегда непредсказуем: могут появиться парные кавычки " или << и >>. Совсем худо когда идет сочетание "текс>>. Как жестко зафиксировать результат? чтобы была однозначная замена. Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 21:48 19-03-2014

mrdime Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Господа,   Чтобы любой открываемый мною в Ворде документ открывался в удобном для меня виде (по ширине страницы) "воткнул" вот такой код в модули шаблона Normal.dotm Цитата: Public Sub AutoOpen()     ThisDocument.Application.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit End Sub и все вроде бы хорошо, но есть одно НО. Если открываю документ, скачанный из Интернета, в нем по-умолчанию отключаются все макросы (и вверху появляется: Protected view. Файл скачан из Интернета и может быть небезопасен.) Соотвественно в такой ситуации из-за наявности вышеприведенного кода Ворд выдает мне ошибку (Run-time error '4248'. This command is not available because the document is open.). Вопрос: как избежать появления этой ошибки? Т.е. как проверять, что если документ открывается в режиме Protected view, то не выполнять данный макрос? Добавлено Разобрался сам. Добавил условие и все заработало: Цитата: If ThisDocument.Application.ActiveProtectedViewWindow Is Nothing Then         ThisDocument.Application.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit End If но документ на всю ширину страницы почему-то не разворачивается (несмотря на команду : ThisDocument.Application.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit Так что вопрос: как из vba рзвернуть окно документа на всю ширину страницы?   Всего записей: 2975 | Зарегистр. 04-01-2005 | Отправлено: 13:30 10-04-2014 | Исправлено: mrdime, 16:03 10-04-2014

YuriyRR Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mrdime Запиши макрос и посмотри команды - самый простой метод изучения. Всего записей: 518 | Зарегистр. 07-06-2007 | Отправлено: 00:32 11-04-2014

mrdime Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YuriyRR Цитата: Запиши макрос и посмотри команды - самый простой метод изучения. Так и сделал. Только по непонятным мне причинам он НЕ РАБОТАЕТ. При разворачивании открытого документа на всю ширину окна, запись макроса мне выдала вот такую строчку: ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit Что эта команда, что та,  что я использовал раньше: ThisDocument.Application.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit   Не дают желаемого результата. Если я "руками" меняю масштаб отображения документа допустим до 50%. То после закрытия Ворда, и запуске вновь, новый документ открывается почему-то не по всей ширине экрана, а в последнем масштабе, в данном случае - 50% например. Мне пока неясно почему так происходит. Всего записей: 2975 | Зарегистр. 04-01-2005 | Отправлено: 01:35 12-04-2014

msmih Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору del. вопрос снят Всего записей: 1195 | Зарегистр. 29-01-2006 | Отправлено: 19:03 29-07-2014 | Исправлено: msmih, 20:44 21-08-2014

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Word VBA

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование