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 Всего записей: 3300 | Зарегистр. 27-09-2001 | Отправлено: 03:05 01-06-2005 | Исправлено: ALeXkRU, 17:10 03-08-2021

oshizelly Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору grbdv 12:34 04-08-2012 Цитата: Вот, окончательный код самостоятельного модуля по-уму. С предыдущим несовместим, заменить полностью. Подробнее... [?] Спасибо, всё работает! Как, впрочем, и предыдущий "упрощённый" вариант этого макроса. Всего записей: 6524 | Зарегистр. 18-09-2004 | Отправлено: 01:36 19-08-2012

zippun BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ol7ca Я попросил объяснить суть проблемы. Макрос не пишется? Редактор кода не вызывается, код непонятен или работает не так, как задумано? Где не работает мой совет?   Добавлено: Оторвал задницу от стула, проверил. Заняло 10 минут. УМВР Код: Sub sb_ol7ca     With Selection         .Range.ListFormat.ApplyListTemplate _             ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), _             ContinuePreviousList:=False, _             ApplyTo:=wdListApplyToWholeList, _             DefaultListBehavior:=wdWord10ListBehavior         .Cut         .EndKey (wdStory)         .PasteAndFormat (wdPasteDefault)     End With End Sub Всего записей: 41 | Зарегистр. 20-09-2012 | Отправлено: 08:12 27-09-2012 | Исправлено: zippun, 08:29 27-09-2012

Gena1971 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zippun Что то мне подсказывает, что под словом "выделенный" ol7ca подразумевал текст жирный или другим цветом. Наверное из-за этого Цитата: Как найтивыделенный текст Просто в VBA искать выделенное как то глупо звучит ---------- Фашисты будущего будут называть себя антифашистами - Черчилль Кому я должен, я всем прощаю... Всего записей: 2567 | Зарегистр. 25-01-2005 | Отправлено: 12:50 27-09-2012

zippun BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Gena1971 Вообще-то, под "жирный или другим цветом" понимается отформатированный Почему глупо? Можно и форматированное хоть жирным, хоть курсивом искать хоть в VBA, хоть в интерфейсе. Но эта задача у него решена - "найтивыделенный текст и сделать копи - я разобрался ". Осталось найденное ВЫДЕЛИТЬ и запустить мой код.     Всего записей: 41 | Зарегистр. 20-09-2012 | Отправлено: 13:24 27-09-2012

Gena1971 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zippun Я имел ввиду правильное понимание "выделенный". Его искать не надо. Это Selection. И оно просто копируется. А  форматированный - это да. Его надо найти прежде чем что то с ним делать. Тут цикл нужен по всем "выделенным/форматированным". Мне так показалось, что с этим проблема. Вообще если б посмотреть что уже сделано, то и легко сказать чего надо доделать или исправить. ---------- Фашисты будущего будут называть себя антифашистами - Черчилль Кому я должен, я всем прощаю... Всего записей: 2567 | Зарегистр. 25-01-2005 | Отправлено: 14:29 27-09-2012

zippun BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ol7ca Цитата: Спасибо за скрипт - такой не получится если просто записать макро.   Не за что. Я ведь писал: Цитата: Запиши все действия в макрос и редактируй его   Цитата: - не вырезать а копировать.   Замени .Cut на .Copy Цитата: в конце добавить слово список и после него уже вставить сам список Вот модифициорванный код: Код: Sub sb_ol7ca()     With Selection         .Range.ListFormat.ApplyListTemplate _             ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1), _             ContinuePreviousList:=False, _             ApplyTo:=wdListApplyToWholeList, _             DefaultListBehavior:=wdWord10ListBehavior         .Copy         .EndKey (wdStory)         .Text = "Список:" & vbCr         .EndKey (wdStory)         .PasteAndFormat (wdPasteDefault)     End With End Sub Всего записей: 41 | Зарегистр. 20-09-2012 | Отправлено: 19:47 27-09-2012

zippun BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ol7ca Добавь переменные:   Dim sHeader$ Dim iLen%   Инициализируй их (сразу после 'Set doc = ...'):   sHdr = "Список:" iLen = Len(sHdr)   Сразу же после 'For...' добавь строку:   If Left(s.Text, iLen = sHdr Then Exit For   И, на будущее, если хочешь, чтобы с твоим документом квалифицированно разбирались - выкладывай на ргхост документ с тренировочными данными и кодом. В лом как-то набивать абракадабру и форматировать ее под твои условия Всего записей: 41 | Зарегистр. 20-09-2012 | Отправлено: 23:10 27-09-2012

Страницы: 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование