Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Обрамление текста HTML тегами
Всем добрый день.

Подскажите, как написать макрос для обрамления выделенного текста тегами ссылки, наподобие <a href="/service/design/project.php"> и </a>. Постоянно выдает ошибку...

И еще, может подскажете, как сделать макрос для вставки тега IMG типа <IMG src="/articles/img/001.jpg"WIDTH="100"HEIGHT="100"HSPA CE="10"ALIGN="left"> в указанное место текста.

1 | Автор: ekvador | 2010-12-08, 21:17   |  Репутация: [ + 0 ]
Что понимается под макросом? И зачем? Или все-таки речь идет о скриптах? Требуются уточнения...
2 | Автор: admin | 2010-12-08, 21:39   |  Репутация: [ + 22 ]
Не сказал сразу... нужно сделать панель управления для ворда с кнопками для вставки или обрамления текста тегами. Теги по типу <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 должен не обрамлять текст, а просто вставляться в нужном месте при нажатии соответствующей кнопки на панели управления.

Принцип обрамления тегами должен быть такой: выделяется слово в тексте, после нажатия на соответствующую кнопку панели управления оно обрамляется тегами.

3 | Автор: ekvador | 2010-12-08, 21:45   |  Репутация: [ + 0 ]
  • Страница 1 из 1
  • 1
Поиск: