• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 356
  • Last Modified:

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

0
Or_A
Asked:
Or_A
1 Solution
 
Guy Hengel [angelIII / a3]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

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now