text = 
(
""В русских текстах используются "ёлочки" или "лапки"."

o"жидать, "предполагать", "пароль: a"a"a", "планировать" 'gh'

""Вложенные "пары" "пары" "пары"  кавычек"  "Вложенные "пары" кавычек!" "пары" "пары" "пары" "Вложенные "пары" "пары" "пары" кавычек"
"Вложенные "пары 
"кавычек" кавычек?""
——
"Вложенные "пары 
"кавычек" кавычек!"
<p>Так вот: девушка с нормальной "психикой и не извращённым"" характером будет позитивно реагировать на рассказ об увлечениях знакомящегося с нею "пасса'''жира"; в случае же характера идиотского она будет за всё подряд его критиковать, противопоставляя ему свой собственный светлый, достойный всяческого внимания, образ. Нужно лишь навостриться выискивать в женской речи часто встречающиеся фразы типа:  "ну уж нет... ""  "А я 'э'того' не люблю", "Вот странно! А я... ", "Вот уж никогда не стала бы... ", "А вот я... ", "А ------- я... " "ну уж нет..."  "ну уж нет... "" - или что-то в этом роде, чтобы научиться ставить диагноз такой дамочке. Мой телефонный знакомый любил говаривать: "А баба - это уже диагноз". Этот критерий выглядит несколько изощрённым, но он самый точный и самый лучший. Проверено многократно.</ACRONYM></p>

"пары" "пары" ""Вложенные "пары" "пары," "пары" "пары" "пары" "пары." кавычек" <B class="hhh">jkkk</B> "Вложенные "пары" кавычек!" "пары:" "пары—" "пары"
"Вло1женные "пары кавычек кавычек!""
"Вло2женные "пары "кавычек" кавычек!""
<span title="Gh" class="Gh">n</span> "Nafa" 'Al7 Ya&#63 Min<span title="Ma" class="MS"> "пары:" "пары—" "пары"`r`n<B class="hhh">jkkk</B>"Слышат ли они<th class="22">
<span title="Gnh" class="h">n</span> Naf 'A Yakn&#363 Muin<span title="Mn" class="MS">"пары:" "пары—" "пары"`r`n<B class="hhh">jkkk</B>"Слышат ли они<th class="22">

"пары:" "пары—" "пары"`r`n<B class="hhh">
"пары:" "пары—" "пары"<B class="hhh">
"пары:" "пары—" "пары""<B class="hhh">
"пары:" "пары—" "пары"
)

loop, 10
{
      text := RegExReplace(text, "«([^«»]*)«([^«»]*)»", "«$1«$2»")
      text := RegExReplace(text, " ""([\s?\)\]\}\,\.\:\;\!\?…""'])", "n~b~s~p""$1")
      text := RegExReplace(text, "((^|[\s]|&nbsp;)([\(\[\{""]|\d+)*)([""])(\S([^""]*?|.*?\x20[""]\x20.*?)\S|[^""\s])[""]((\d+|[\)\]\}\,\.\:\;\!\?…""])*($|[\s]|&nbsp;))", "$1«$5»$7")
      text := RegExReplace(text, "n~b~s~p", " ")
      text := RegExReplace(text, "«([^«»]*)«([^«»]*)»", "«$1„$2“")

}

msgbox % text

text = 
(
"Нача"ло", тут "некий текст!"  """ "" "  "конец."
Демонстрация "кавычек "в кавычках"
с переносом строки" конец.
)
MsgBox, % RegExReplace(text, "(*UCP)(?<=\s|^)""(.*?)""(?=\W|$)", "«$1»") ; Malcev
MsgBox, % ReplaceQuotesToElki(text)

ReplaceQuotesToElki(text) {
	text := RegExReplace(text, "m)(*UCP)(?<=\s|^)""(?=\w)", "«")
	text := RegExReplace(text, "m)(*UCP)(?<=[^\s""])""(?=\W|$)", "»")
	Return text
}

text = o"жидать, "предполагать", "пароль: a"a"a", "планировать"
MsgBox, % RegExReplace(text, "(*UCP)(?<=\s|^)""(.*?)""(?=\W|$)", "«$1»")

text = "ожидать", "предполагать", "намереваться", "планировать"
MsgBox, % RegExReplace(text, """(.*?)""", "«$1»")

text = "ожидать", "предполагать", "намереваться", "планировать"

MsgBox, % ReplaceQuotesToElki(text)

ReplaceQuotesToElki(text) {
	Static EXPR := ["(?<=\s)""(?=\w)", "«", "m)^""(?=\w)", "«", "(?<=[^\s""])""(?=\W)", "»", "m)(?<=[^\s""])""$", "»"]
	loop % EXPR.MaxIndex()/2
		text := RegExReplace(text, EXPR[2*A_Index-1], EXPR[2*A_Index])
	Return text
}

string = 
(
"BOL", this is "Text here!" """ "" " "EOL"
I can do "those "things"
too, btw." end.
)
msgbox % string := RegExReplace(string, "(?<=\s|^)""(?=\w|[А-я])", "«")
msgbox % string := RegExReplace(string, "(?<=[^\s""])""(?=\W|$)", "»")

ReplaceQuotesToElki(text) {
	text := RegExReplace(text, "m)(*UCP)(?<=\s|^)""(?=\w)", "«")
	text := RegExReplace(text, "m)(*UCP)(?<=[^\s""])""(?=\W|$)", "»")
	Return text
}