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

Можно ли использовать редактор Word как HTML-редактор, с возможностью просмотра получаемого кода?

На мой взгляд, 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.

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


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=9632