Dim wd As Range, CurrentWord As String
'перебираем все слова (wd) в документе
For Each wd In ActiveDocument.Words
CurrentWord = wd.Text
'''''''''''''''''''
Next
А как с помощью макроса сделать это?
В макросах я пока мало чего понимаю, но интересно узнать, как в макросе сделать так чтобы каждое слово, написанное в документе им читалось? Т.е. скажем аналог Find. В моем понимании это должно происходить так: последовательно читаются слова и для каждого проверяется ряд условий.
Цитата:
Originally posted by sys33
В макросах я пока мало чего понимаю, но интересно узнать, как в макросе сделать так чтобы каждое слово, написанное в документе им читалось? Т.е. скажем аналог Find. В моем понимании это должно происходить так: последовательно читаются слова и для каждого проверяется ряд условий.
В макросах я пока мало чего понимаю, но интересно узнать, как в макросе сделать так чтобы каждое слово, написанное в документе им читалось? Т.е. скажем аналог Find. В моем понимании это должно происходить так: последовательно читаются слова и для каждого проверяется ряд условий.
Код: