Kategoria: VBA

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Open("E:\test.doc")

pos = InStrRev(strValue, " ")
posesja_test = Mid(strValue, pos + 1) 

Dim objRegEx As Object
Set objRegEx = CreateObject("VBScript.RegExp")

objRegEx.Global = True
objRegEx.IgnoreCase = True
objRegEx.Pattern = "\d"

valid = objRegEx.test(posesja_test)
Debug.Print valid