Не сказал сразу... нужно сделать панель управления для ворда с кнопками для вставки или обрамления текста тегами. Теги по типу <p>, <h2>, <ul>, и подобные вставляются без проблем таким макросом:
Code
Sub H2()
'
' H2 Макрос
' Макрос создан 08.12.2010 Админ
'
Dim str1 As String
Dim str2 As String
Dim selText As String
str1 = "<H2>" 'Открывающий тег
str2 = "</H2>" 'Закрывающий тег
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
А вот теги <a href="/">, <IMG src="/articles/img/001.jpg"WIDTH="320"HEIGHT="250"HSPACE="10"ALIGN="left"> не получается прописать. макрос постоянно выдает ошибку...
Тег IMG должен не обрамлять текст, а просто вставляться в нужном месте при нажатии соответствующей кнопки на панели управления.
Принцип обрамления тегами должен быть такой: выделяется слово в тексте, после нажатия на соответствующую кнопку панели управления оно обрамляется тегами.
