Можно ли использовать редактор 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.
Теперь разместите кнопки этих макросов на созданной вами панели инструментов. В результате у вас должна быть создана панель инструментов с кнопками для часто используемых вами тегов.