Поиск текста с заданным начертанием (жирный, курсив и т.д.), выделенного определенным шрифтом. VBA.

И вставка в текст HTML-тегов.

Преамбула
Да, мне нравится 2003 MS Word, и на мой взгляд, текстового редактора лучше пока еще никто не написал. Я делал все нижеследующее для себя, но возможно, материал будет полезен изучающим VBA. Особенно если у них возникают вопросы, как найти текст, выделенный жирным, курсивом, или там определенным шрифтом.
Так вот. Написал я в Word’е заметку про какой-нибудь скрипт, красиво оформил, код выделен Курьером, заголовки отцентрованы, важные места выделены жирным, пункты меню указаны курсивом, ну и так далее. Теперь нужно текст переложить в уютненький бложег, да так, чтобы сохранить форматирование вставить куда надо нужные теги.
Встроенное сохранение в формате HTML вставляет много лишних тегов, добавлять нужные теги руками – лишняя работа, а я ленивый. Что же делать? У нас есть VBA, который все сам за нас сделает.
Read more…
Макрос целиком на pastebin

Это перепост заметки из моего блога на LJ.ROSSIA.ORG
Оригинал находится здесь: http://lj.rossia.org/users/hex_laden/294478.html
Прокомментировать заметку можно по ссылке выше.

Скрытые и персональные данные в документах MS Office

Настоящие параноики, конечно, не пользуются продукцией Майкрософт совсем, но мало ли что…
MS, собственно, особо и не скрывает наличие нежелательных для распространения в публичном пространстве данных, которые Office может внести в документ:
При распространении в электронном виде документа Office в нем могут содержаться сведения, которые желательно не делать общедоступными, — к примеру, данные, обозначенные пользователем как «скрытые», или информация, позволяющая работать над документом вместе с другими пользователями.
Вот инструмент для их удаления. От MS. Уж не проверял, насколько кошерно он все удаляет, но если публиковать Word’овские документы, то не грех этим инструментом предварительно воспользоваться.
UPD. Фиговина не удаляет некоторые сведения, которые можно принять за персональные, из макросов. Точнее — после обработки ею документа, все равно можно найти сведения типа Макрос записан 32 мартабря в хернадцать часов юзером MeGaUsWer
ЗЫ Тулза для 2003-го офиса.

Это перепост заметки из моего блога на LJ.ROSSIA.ORG
Оригинал находится здесь: http://lj.rossia.org/users/hex_laden/294177.html
Прокомментировать заметку можно по ссылке выше.

Переключение шрифтов в Microsoft Word с помощью VBA

Бывает так, что в документе постоянно используются, например, два шрифта, и через некоторое время надоедает переключать их мышью. Это можно исправить с помощью VBA.
Предположим, что постоянно надо переключаться между Courier New и умолчальным Times New Roman, я это часто делаю, когда пишу про что-нибудь околоайтишное (Courier’ом выделяю код), а наши девочки – когда вставляют код в отчеты.
Итак:
1. Включаем запись макроса, называем его, например SetCourier, в окошке записи нажимаем кнопку, и далее назначаем удобное сочетание клавиш, например Alt+C
2. Выполняем любое действие (да хоть любой символ введите) и останавливаем запись.
3. Идем в меню Сервис – Макрос – Макросы, в появившемся окошке находим наш макрос, нажимаем Изменить, откроется редактор VBA, где и будем работать дальше.
4. Удаляем все, что между Sub SetCourier() и End Sub
5. Вставляем туда следующий код:
Selection.Font.Name = "Courier New"

Аналогично делаем и для Times New Roman, только называем макрос по-другому (например, SetTimes) назначаем другое сочетание клавиш, и вставляем следующий код:
Selection.Font.Name = "Times New Roman"
Теперь нажав соответствующие комбинации клавиш, можно переключить шрифт, а если предварительно выделить текст, то он также изменит свой шрифт.
Макросы на pastebin

Это перепост заметки из моего блога на LJ.ROSSIA.ORG
Оригинал находится здесь: http://lj.rossia.org/users/hex_laden/294002.html
Прокомментировать заметку можно по ссылке выше.