Переменные и циклы в ворде

[Demetros]

Форумчане, подскажите как присвоить переменной выделенное слово?
Цикл перебора (с поочередным выделение всех слов) в тексте?

[Demetros]

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

Форумчане, подскажите как присвоить переменной выделенное слово?
Цикл перебора (с поочередным выделение всех слов) в тексте?

На 1 вопрос нашел ответ:
sss=Selection.Words.First.Text: msgbox sss

[Казанский]

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

Цикл перебора (с поочередным выделение всех слов) в тексте?

В простейшем случае так

Sub Demetros()
Dim w As Range
For Each w In ActiveDocument.Words
  If LCase$(Trim$(w.Text)) Like "[a-zа-яё]*" Then
    w.Select
    MsgBox "очередное слово"
  End If
Next
End Sub

[Sasha_Smirnov]

    ЧтоИщем = "<[!^32]@>"       'шаблон поиска слов в тексте документа (не самый аккуратный)

Пример использования:

[Demetros]

Сообщение от Казанский

В простейшем случае так

Sub Demetros()
Dim w As Range
For Each w In ActiveDocument.Words
  If LCase$(Trim$(w.Text)) Like "[a-zа-яё]*" Then
    w.Select
    MsgBox "очередное слово"
  End If
Next
End Sub

спасибо, то что нужно.

[Demetros]

Сообщение от Казанский

В простейшем случае так

Sub Demetros()
Dim w As Range
For Each w In ActiveDocument.Words
  If LCase$(Trim$(w.Text)) Like "[a-zа-яё]*" Then
    w.Select
    MsgBox "очередное слово"
  End If
Next
End Sub

глюк какой-то, страниц 6-7 проходит и виснет.

[Sasha_Smirnov]

Demetros, скакать по словам лучше без макросов: стрелки вправо/влево с зажатой клавишей Control.

Вы б рассказали форуму о перспективах — а то неясно, к чему всё это.

[Demetros]

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

Demetros, скакать по словам лучше без макросов: стрелки вправо/влево с зажатой клавишей Control.

Вы б рассказали форуму о перспективах — а то неясно, к чему всё это.

Почти закончил писать макрос для антиплагиата

[Demetros]

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

Demetros, скакать по словам лучше без макросов: стрелки вправо/влево с зажатой клавишей Control.

Вы б рассказали форуму о перспективах — а то неясно, к чему всё это.

Этот способ не работает с текстом в таблице.

[Sasha_Smirnov]

Shift — с выделением. Как не работает? Переход по ячейкам, а там так же.