Использование Word в качестве HTML-редактора

Один из читателей сайта WordExpert.ru задал вопрос:

На мой взгляд, Word можно использовать как HTML-редактор, но вот просмотреть получающийся код в нем не удастся. Все-таки это текстовый редактор.

Тем не менее, я расскажу об одном способе (для Word 2003), который может заинтересовать тех пользователей, которые сначала печатают текст в редакторе, а затем выделяют и вставляют его, например, в свои блоги. И уже в админпанели блога они форматируют текст, вставляя в нужные места соответствующие теги HTML.

Я предлагаю создать собственную панель инструментов с кнопками для часто используемых HTML-тегов, таких как <B> или <STRONG>, <BR>, <UL> и других. После того, как эти кнопки будут готовы, пользователю достаточно будет выделить нужный текст (ранее введенный), и применить к нему тот или иной тег. В результате перед началом выделенного текста и в его конце будут вставлены соответствующие HTML-теги.

Если ничего выделено, то в место нахождения курсора ввода просто будет вставлен тег. Удобство такого способа в том, что не нужно одновременно печатать текст и форматировать его - форматирование можно отложить на потом.

Итак, для начала я рекомендую вам создать пустой документ и сохранить его как шаблон, на основе которого впоследствии вы будете создавать свои тексты с HTML-кодами. После этого создадим собственную панель инструментов. Как это сделать, описано в заметке Как создать собственную панель инструментов.

• Откройте редактор Visual Basic («Alt»+«F11»), найдите в окне проектов ваш проект (с именем вашего шаблона) и добавьте к нему модуль для макросов. Добавить модуль можно так: щелкните правой кнопкой мыши на имени проекта и в раскрывшемся меню наведите указатель мыши на пункт Insert, а уже в подменю выберите команду Module. В итоге будет создан новый модуль Module1.
• Перейдите в окно кода и введите следующий код:

  Sub htmlStrong()
  'Вставка тега жирного шрифта
  Dim str1 As String
  Dim str2 As String
  Dim selText As String
  str1 = "<STRONG>" 'Открывающий тег
  str2 = "</STRONG>"   'Закрывающий тег
  selText = Selection.Text   'Выделенный текст
  If selText <> "" Then
     With Selection
        .TypeText (str1)
        .TypeText (selText)
        .TypeText (str2)
     End With
  Else
     Selection.TypeText (str1 & str2)
  End If
  End Sub

• Повторите вставку этого кода для других тегов, которые вам нужны, изменив соответственно значения переменных str1 и str2.

Теперь разместите кнопки этих макросов на созданной вами панели инструментов. Как это сделать, описано в заметке Как настроить Word под себя.

В результате у вас должна быть создана панель инструментов с кнопками для часто используемых вами тегов.

На создание этой заметки вдохновила статья Introduction to VBA for MS Word.

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Автоматическая запись макроса

Создание макроса из готового кода