Select word by word

[tinfanide]

I wonder how I can replace every word in a document with some texts:

Document:

Apple
Cat

Replace every of them like:

Text
Text

Sub test()

For w = 1 To ActiveDocument.Words.Count
ActiveDocument.Words(w).Select
' fail to exclude the space following the selected word
If Not Selection.Text Like " *" Then
Selection.Text = "Text"
End If
Next w

End Sub

But this code just ends up like

Doc:
Text Text

It moves the second one up to the first paragraph


And I'm stuck at how to get rid of the space following the word

[tinfanide]

Self-solved.

Sub WordCount()

Dim n As Long
n = 0
For Each w In ActiveDocument.Words
    w.Select
    If UCase$(Left$(w, 1)) Like "[A-Z]" Then
    n = n + 1
    Debug.Print n
    End If
Next

End Sub

Codes similar to this.

[macropod]

Hi tinfanide,

Try a wildcard Find/Replace, where:
Find = <?@>
Replace = Text

[tinfanide]

Yes, as expected. I've written up codes for such a simple task. Thanks for that.