Stuck With Visual Basic 6.0

[goesseog]

I am a newbie, what I want to do is open a word document and do some find actions from Text1, but when I click the commandButton in second time, there is no action with the commandButton
here is my code :

Dim doc As Word.Application 
Dim val As Boolean 

Private Sub Command1_Click() 
    If val <> True Then 
        Set doc = New Word.Application 
        doc.Visible = True 
        
        doc.Documents.Open "\..\myDoc.doc" 
        
        doc.Selection.Find.Execute Text1.Text 
        val = True 
    ElseIf val = True Then 
        doc.Selection.Find.Execute Text1.Text 
    End If 
End Sub

Could you give me the solutions please ?

[DataMiser]

No idea about working with Word from VB but I do see that you are using a reserved word for a variable name which should be changed.

Val is used in VB to get the numeric value of a variable as in Val(MyString)

You also do not need the ElseIF a simple Else will do as there are only 2 possible values for a boolean eithe rit is true or it is not no need to test it twice.

[goesseog]

@DataMiser : Thanks for your reply, I know what the function of val() and I have changed the variable name and if else statement. But that doesn't solve my problem.

[Cube8]

Put a breakpoint at the beginning of the Comman1_Click event and step through the code. That should give you a hint of what is actually happening...

[bpd]

There doesn't appear to be anything wrong with the code. But if the search value was not found, it would appear as though no action was taken.

[Cube8]

The Execute function returns a boolean value. If the search string is not found, it will return False, so it is up to you to check it.

[goesseog]

@Cube8 : I'm not really understand what you say, the search value that I type is found in my word document, so what do I have to do ?

[firoz.raj]

Hi in build function Execute returns true if something is found .and it returns false if does not found .
so try the following way .and you will get the idea . hope it might be a great help .

Option Explicit
Dim doc As Word.Application
Dim val As Boolean

Private Sub Command1_Click()
         Set doc = New Word.Application
         doc.Visible = True
         doc.Documents.Open "C:\TestProject\myDoc.doc"
         doc.Selection.Find.Execute Text1.Text
         If doc.Selection.Find.Execute = True Then
             MsgBox ("text box data is available in word doc")
         Else
            MsgBox ("text box data is not availble in word doc")
        End If
    End Sub

[goesseog]

@firoz.raj : everytime I click the button, new word application and the document will open, what I want is open new word application and the document once and do some actions without reopen new word application and the document.

[Max187Boucher]

Simple fix from firoz

Option Explicit
Dim doc As Word.Application



Private Sub Command1_Click()
         doc.Selection.Find.Execute Text1.Text
         If doc.Selection.Find.Execute = True Then
             MsgBox ("text box data is available in word doc")
         Else
            MsgBox ("text box data is not availble in word doc")
        End If
    End Sub 

Private Sub Form_Load()
Set doc = New Word.Application
doc.Visible = True
doc.Documents.Open "C:\TestProject\myDoc.doc"
End Sub

[firoz.raj]

everytime I click the button, new word application and the document will open, what I want is open new word application and the document once and do some actions without reopen new word application and the document.

Try the following way .

Option Explicit
Dim doc As Word.Application
Dim x As String

Private Sub Command1_Click()
            doc.Selection.Find.Execute Text1.Text
         If doc.Selection.Find.Execute = True Then
            x = MsgBox("text box data is available in word doc" & "    Do you want to search again", vbYesNo)
           If x = vbYes Then
             doc.ActiveDocument.Close
             Set doc = New Word.Application
             doc.Visible = True
             doc.Documents.Open "C:\TestProject\myDoc.doc"
             doc.Selection.Find.Execute Text1.Text
           ElseIf x = vbNo Then
             Unload Me
         Else
            MsgBox ("text box data is not availble in word doc")
          End If
        End If
    End Sub

Private Sub Form_Load()
         Set doc = New Word.Application
         doc.Visible = True
         doc.Documents.Open "C:\TestProject\myDoc.doc"
End Sub