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

Gena1971 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору crotoff Цитата: коды "больших" лежат в другом диапазоне, впрочем как оно в Wordе я без понятия. Не в том дело. Если действительно случайно, то надо чтоб и в начале предложения случайно выпадала либо большая либо малая. А так там гарантированно остается большая буква. Впрочем все это от исходного текста зависит. Какой он, и что нужно получить в результате. Я сне представляю для чего это все нужно. ---------- Фашисты будущего будут называть себя антифашистами - Черчилль Кому я должен, я всем прощаю... Всего записей: 2567 | Зарегистр. 25-01-2005 | Отправлено: 18:07 14-11-2012

InSe0F Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Цитата: Есть такая задачка.   Есть word в котором допустим есть только заголовки (уровни 1,2 и 3), текст, списки булетами и с нумерацией, и картинки.     Этот ворд надо перегнать в файл с простейшей html версткой (h1,h2,h3,i,b,li,img) и сохраненными картинками в png.     Можно ли как-нибудь решить такую задачку или возможно ее уже кто-то до меня решил? Никто не знает ? Всего записей: 533 | Зарегистр. 13-03-2006 | Отправлено: 00:47 02-12-2012

Gena1971 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору PoziaSergey Как то так Код: Sub Zakladka()   With ActiveWindow.View    If .ShowBookmarks = False Then .ShowBookmarks = True Else .ShowBookmarks = False   End With End Sub Всего записей: 2567 | Зарегистр. 25-01-2005 | Отправлено: 22:12 22-12-2012

Vadim39 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите, пожалуйста, можно ли оптимизировать скрипт? Работает, но так медленно, что проще вручную пересчитать Задача - вывести список всех знаков, встречающихся в документе Word. Код: Sub pr1() Dim sl As String, i As Long With ActiveDocument.Range.Characters     For i = 1 To .Count         If InStr(sl, .Item(i)) = 0 Then sl = sl + .Item(i)     Next End With   Debug.Print sl   End Sub   ЗарСпасБол Всего записей: 1117 | Зарегистр. 11-04-2002 | Отправлено: 15:18 19-05-2013 | Исправлено: Vadim39, 15:21 19-05-2013

XPerformer Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору можно попытаться чуть оптимизировать Код:   Sub pr1()    Dim sl As String, i As Long     dim ch  With ActiveDocument.Range.Characters        For i = 1 To .Count            ch = .Item(i)          If InStr(sl, ch) = 0 Then sl = sl + ch        Next    End With        Debug.Print sl        End Sub чтобы два раза не вычислять элемент коллекции, но это что-то не сильно ускоряет   Добавлено: Вот вариант работает быстро   Код: Sub pr1()  Dim sl As String, i As Long  Dim n, ch, ss As String      ss = ActiveDocument.Range.Text  n = Len(ss)  sl = ""    For i = 1 To n      ch = Mid(ss, i, 1)      If InStr(sl, ch) = 0 Then sl = sl + ch  Next    Debug.Print sl   Всего записей: 2536 | Зарегистр. 20-06-2011 | Отправлено: 16:18 19-05-2013 | Исправлено: XPerformer, 16:29 19-05-2013

Vadim39 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору XPerformer Большое спасибо! Выходит, основное время уходило на то, чтобы каждый раз получать "ActiveDocument.Range.Characters" Всего записей: 1117 | Зарегистр. 11-04-2002 | Отправлено: 21:50 19-05-2013 | Исправлено: Vadim39, 21:56 19-05-2013

XPerformer Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору одно - это коллекция объектов, тяжелая структура второе - это строка, одним массивом передается и обрабатыватеся Всего записей: 2536 | Зарегистр. 20-06-2011 | Отправлено: 22:04 19-05-2013

Vadim39 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Нужно запустить из макроса диалог поиска и замены, причем курсор должен оказаться в начале поля замены. Если вызвать Dialogs(wdDialogEditReplace).Show, то после выполнения замены появляется сообщени об ошибке. Кроме того, я не знаю как перемещать курсор внутри диалогового окна. Если же вызывать диалог с помощью SendKeys "^h", все отлично, и следующие за ним    SendKeys "{TAB}"   SendKeys "{HOME}"   ставят курсор в нужное место, но возникает другая проблема: все это работает только, в том случае, если в момент вызова раскладка клавиатуры английская, если же русская - вместо вызова диалога в документ впечатываются "h" и знак табулятора. Если принципиального решения не существует, то может кто-нибудь подскажет, как написать скрипт для определения и управления раскладкой клавиатуры.   ЗарСпасБол!     Всего записей: 1117 | Зарегистр. 11-04-2002 | Отправлено: 09:19 21-05-2013

Vadim39 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Решил проблему, но совершенно идиотским способом: назначил вызов диалога замены на Ctrl_0. Почему-то SendKeys "^0" запускается из макроса при любой раскладке.   В процессе экспериментов выяснилось, что если назначить на F11, диалог не вызывается при любой раскладке клавиатуры... Полный бред Всего записей: 1117 | Зарегистр. 11-04-2002 | Отправлено: 19:25 21-05-2013

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