Работа со словами

[Maxs]

Мне нужно как-то сделать программу, которая ищет в тексте словосочетания выделенные красным цветом (слова в них не разделяются пробелом) и поставить пробелы. Например: Я пишунафорум программистов, чтобымне помогли впрограммировании. Чтобы разделять слова прога берет слова из базы данных русских слов. Сделать это надо на языках, которые я знаю (C++,Delphi,VB или как макрос VBA в Word). Я не знаю как узнавать выделено ли слово каким-нибудь цветом. Возможно как HTML код парсить? Или в макросе можно как-то более цивильно узнавать цвет слова. Чтобы пробелы ставило в словосочетаниях я догадаюсь как сделать. Файл в формате docx . И еще хотелось бы спросить про БД слов: Можно как то мелкософтовскую использовать или надо лучше в инете поискать?

[Sasha_Smirnov]

Вот буквально минут за 100 набросал «скелетик». Пока без базы.

Sub ToWorkWithColouredWords()

w = ActiveDocument.Words.Count
MsgBox "В " & ActiveDocument & " Word нашёл " & w & " «слов»."


With Selection
.HomeKey wdStory

        For n = 1 To w - 1 'число "слов" - подобрал наобум'
            
            .GoTo what:=wdWord, which:=wdGoToNext  ', Count:=1
            
            .MoveRight unit:=wdWord, Extend:=wdExtend
            
            ww = .Text
            
            If .Font.Color <> wdAuto Then 'вот тут проверяется цвет'
            ask = "Это слипшиеся слова?"
            Else: ask = ""
            End If
            
            a = InputBox("Вставьте пробелы, если нужно.", ask, ww)
            If a = vbNullChar Then .MoveRight Else .TypeText a
        
        Next
End With
End Sub

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

<Word>...говорит что слово неправильно написано всегда. в чем тут ошибка?

Очевидно, Word открыт как английский. Попробуйте Формат→Язык→Русский или (в новых вордах):
кнопка Office → Параметры Word → Основные → Языковые параметры… → Языки редактирования → Основной язык редактирования → русский

Идеальным было бы использовать русский словарь ворда, он (иногда) сам предлагает: как «колбасу» из букв разбить на нормальные слова!

Советую также снять (навсегда) галку чекбокса по адресу:
кнопка Office → Параметры Word → Правописание → Автоматически проверять грамматику (это то, что включает такие зелёные волнистые линии и даёт по правой кнопке кучу советов).

[Maxs]

Спасибо большое! Многое я тут не понял, но так почему-то он спрашивает про каждое слово. Немного изменил и теперь выделяет то, что надо. По базе данных проходить очень долго каждый раз. У меня есть идея: например слово идуна . он сначала преобразует в: и дуна, проверяет... - что-то не то (в ворде бы подчеркноло волнистой чертой), далее ид уна - не то, иду на - вот это правильно=> применить изменения. Вот так примерно сделал, но он почему то говорит что слово неправильно написано всегда. в чем тут ошибка?

Sub ToWorkWithColouredWords()
w = ActiveDocument.Words.count
MsgBox " " & ActiveDocument & " Word íàø¸ë " & w & " «ñëîâ»."

With Selection
.HomeKey wdStory

        For n = 1 To w - 1 '÷èñëî "ñëîâ" - ïîäîáðàë íàîáóì'
            
            .GoTo what:=wdWord, which:=wdGoToNext  ', Count:=1
            
            .MoveRight unit:=wdWord, Extend:=wdExtend
            
            ww = .Text
            wws = .Text
            
            If .Font.Color = wdColorRed Then 'âîò òóò ïðîâåðÿåòñÿ öâåò'
            ask = "Ýòî ñëèïøèåñÿ ñëîâà?"
            i = 1
            Do
            wws = ww
            wws = Mid(wws, 1, i) + " " + Mid(wws, i + 1, Len(wws))
            i = i + 1
            MsgBox (wws)
            Loop Until (CheckSpelling(ww)) Or (i = Len(ww))
            .TypeText wws
  Rem          A = InputBox("Âñòàâüòå ïðîáåëû, åñëè íóæíî.", ask, ww)
  Rem          If A = vbNullChar Then Else .TypeText A
            Else:
            ask = ""
            .MoveRight
            End If

            
        
        Next
End With
End Sub

[Sasha_Smirnov]

Если нужно, есть ещё заготовка.

[Maxs]

Все, проблема решилась!