vb left function not working

hi,
i have vb sub under Excel, which returns this error: "Object doesnt support this property or method".
the code succesfully openes a word doc file, and cycles through each word in the doc.
i want to write a line saying: "if a word starts with the letters FLD then..."
but i keep getting this error message.
i tried using left and left$ (i dont know the difference but i saw the use of both), but both didnt work.
the code attached. can anyone tell me what i'm doing wrong?
thanks!
Private Sub OK_Click()
'hide form
findProposal.Hide
Dim path$
'gets the path for the word file
path$ = findProposal.Label1
GetWordDoc (path$)
End Sub
 
Function GetWordDoc(strPath As String) As Boolean
   Dim objDoc As Object, objRange As Object, objAppWord As Object
   Dim strNewPath As String
   Dim wks As Worksheet
   Dim n As Long
   Dim varLookup
   On Error GoTo err_handle
   GetWordDoc = True
   Set wks = ActiveWorkbook.Sheets("MergeSheet")
   Set objDoc = GetObject(strPath, "Word.Document")
   Set objAppWord = objDoc.Application
      
   For n = 1 To objDoc.Words.Count
'this is the problematic line:
       If Left(objDoc.Words.Text, 3) = "FLD" Then
       End If
nextn:
    Next n
     
clean_up:
    objDoc.Close
   Exit Function
err_handle:
   MsgBox Err.Description
   GetWordDoc = False
   Resume clean_up
End Function

Open in new window

Or_AAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Guy Hengel [angelIII / a3]Connect With a Mentor Billing EngineerCommented:
change:
For n = 1 To objDoc.Words.Count
'this is the problematic line:
       If Left(objDoc.Words.Text, 3) = "FLD" Then
       End If
nextn:
    Next n

into:

For n = 1 To objDoc.Words.Count
'this is the problematic line:
       If Left(objDoc.Words(n).Text, 3) = "FLD" Then
       End If
nextn:
    Next n
0
 
Or_AAuthor Commented:
i'm dumb
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.