форматирование текста в ворде

[vavilas]

Большое спасибо, ваша ссылка помогла. Разобрал свой пример. Все предельно ясно. Не нашел только как служебный символ " использовать в замене, то есть на какой код заменяется кавычка?
Мне, например, необходимо вставить заменяющий текст <p align="justify">
только вот макрос не дает это сделать. Кавычка служебный символ

[viter.alex]

Сообщение от vavilas

Большое спасибо, ваша ссылка помогла. Разобрал свой пример. Все предельно ясно. Не нашел только как служебный символ " использовать в замене, то есть на какой код заменяется кавычка?
Мне, например, необходимо вставить заменяющий текст <p align="justify">
только вот макрос не дает это сделать. Кавычка служебный символ

Чтобы ввести служебный символ как текст, можно либо использовать код этого символа, который можно узнать из «Таблицы символов», которая есть в любой (почти) системе Windows; либо вставив перед этим символом «\» (backslash)

P.S. На том ресурсе все это написано.

P.P.S. Кавычка вводится как ^0022, либо «\"»

[vavilas]

К сожалению, оба варианта не подходят.
код кавычки

"

она мне и заменяется в тексте как 5 символов
а обратный слеш останавливает макрос
пробовал и так
"<p class=\"text\">"
и так
"<p class=\"\text\"\>"


html даже не дает записать этот код, он понимает этот код, состоящий из 5 знаков как кавычку
^0022 отображает как квадрат, блин...

[viter.alex]

Я забыл, что ты макросом меняешь . Перед каждой кавычкой поставь еще одну. Т.е. <p align="justify"> в код нужно записать так: "<p align=""justify"">". Это правила синтаксиса в VBA

А то, что я раньше писал, это для интерактивного поиска, при помощи диалога.

P.S. Попробовал макрорекордером записать эту строку, так и записало, как я сказал: "<p align=""justify"">"

[vavilas]

да теперь все меняется, но кавычки боковые, а не верхние. Не знаю, как html будет ли их различать или ему все равно

[viter.alex]

Сообщение от vavilas

да теперь все меняется, но кавычки боковые, а не верхние. Не знаю, как html будет ли их различать или ему все равно

Ему не все равно, ведь коды у этих знаков разные. У прямой, или дюймовой, кавычки код 0022, а у левой угловой — 0171, у правой — 0187
Отмени автозамену прямых кавычек "" на угловые «»

[vavilas]

Блин, лошара (я в смысле).
Такая мысля проскакивала, что в автозамене стоит "заменять прямые кавычки парными", но я не придал ей значение, чем лишний раз вас потревожил.
Еще раз спасибо, тема закрыта.

[viter.alex]

Сообщение от vavilas

Блин, лошара (я в смысле).
Такая мысля проскакивала, что в автозамене стоит "заменять прямые кавычки парными", но я не придал ей значение, чем лишний раз вас потревожил.
Еще раз спасибо, тема закрыта.

К сожалению, закрыть эту тему (форматирования) невозможно. Она вечна

[Deler85]

Сообщение от viter.alex

К сожалению, закрыть эту тему (форматирования) невозможно. Она вечна

Ну если не возможно) давай те продолжим.
У меня тоже подобные вопросы есть.

Очень помог первый макрос спасибо. НО хочеться его доработать, он не совсем коректно обрабатывает списки. Например

"<p>однажды в студеную зимнюю пору</p>
1 <p> из лесу вышел </p>
2 <p> вечерело </p>"

то есть не включает нумерацию списка, как включить 1 и 2 в абзац?

[viter.alex]

Вот так это можно сделать. Ищет только целые абзацы. Если абзац является списком, то номер учитывается. Пробуйте. А что, других средств конвертить в html нет? Вообще-то, для списков нужно делать <ol> или <ul>

Sub ReplaceIncludingListNumbers()
  Application.ScreenUpdating = False
  Dim rs As String
  rs = "<h2>\1</h2>\2"
  Selection.HomeKey wdStory
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "(<[A-Za-zА-яЁё]@*)(^0013)"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = True
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    While .Execute
      .Execute replacewith:=Replace(rs, "\1", .Parent.Range.ListFormat.ListString & " " & "\1"), Replace:=wdReplaceOne
      Selection.Collapse wdCollapseEnd
    Wend
  End With
  Application.ScreenUpdating = True: Application.ScreenRefresh
End Sub