Леша его немного подновил, благодарю.
Заметка про макрос для вставки HTML-тегов. Столетней давности приблуда, еще Дима на ЛЖР делал, а до сих пор пользуемся.
Сделал ему репозиторий на GitHub, ибо Леша в свой GitHub почему-то не может меня добавить.
Tag Archives: microsoft office
Виндоофисные мелочи.
Заметка от склероза.
Команда shutdown.
Завершение работы:
C:\Windows\System32\shutdown.exe /s /t 10 /c "I am shutdown"
Перезагрузка:
C:\Windows\System32\shutdown.exe /r /t 10 /c "I am reboot"
Отмена:
C:\Windows\System32\shutdown.exe /a
Архив с готовыми ярлыками, чтоб кидать сразу на рабочий стол
Справка по команде
Где-нибудь в PATH должен лежать exiftool.exe
Батник из одной строки:
exiftool -all= -overwrite_original %1Использовать:
killexif.bat *.jpgСсылка на SFX-архив с exiftool и батником
1. Идем в Сервис —> Настройка
2. Жмем кнопку Клавиатура в появившемся окне:
3. В Категории выбираем Макросы
4. В соседнем списке выбираем нужный макрос
5. Жамкаем на поле Новое сочетание клавиш
6. Нажимаем что нужно
7. Все сохраняем
Макрос замены форматированного текста на HTML.
Доделал макрос редактору для Word. Теперь умеет по Alt+I заменять выделенный текст типа [http://example.com/image.jpg] на тег IMG, по Alt+L выделенный текст с URL-адресом в [] на тег A HREF.
Адрез из скобок будет в HREF а текст между тегами сслыки. Типа как выше.
Код макроса:
Вставить IMG
Вставить A HREF
Весь макрос
Готовый файл Word
L.S.
Поиск текста с заданным начертанием (жирный, курсив и т.д.), выделенного определенным шрифтом. VBA.
И вставка в текст HTML-тегов.
Так вот. Написал я в 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
Прокомментировать заметку можно по ссылке выше.