get thew word number

[filo666]

Hi, I want to accomplish 2 thinks:

1) something like wordpossition=Activedocument.selection.words.possition
(and the possition of the word in the document is obtained)
of course the command is incorrect.

2) an if structure:

If the selected word is "-" and one word or character before the selected
word is a letter or a number (just letter or number, not "/" or "." or
anything) and one character after the selected word is " " then
...........................
end if

Thanks for your help

 

[Greg Maxey]

Something like this:

Sub Scratchmacro()
Dim oWord As Range
Dim oRng As Range
Set oRng = ActiveDocument.Range
Set oWord = Selection.Words(1)
oRng.End = oWord.End
MsgBox oRng.Words.Count
If oWord.Text = "- " Then
If oWord.Characters.First.Previous Like "[A-Za-z0-9]" Then
MsgBox "Bingo"
End If
End If
End Sub

--
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Greg Maxey - Word MVP

My web site http://gregmaxey.mvps.org
Word MVP web site http://word.mvps.org~~~~~~~~~~~~~~~~~~~~~~~~~~

 

[Klaus Linke]

See also the reply to the message you've posted elsewhere.

Klaus