Ms word file search in my computer

[azhaguraju]

Private Sub CommandButton1_Click()
 Dim fd As FileDialog
 
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
 
    fd.InitialFileName = ActiveWorkbook.Path
    fd.Show
 
    On Error Resume Next
 
    jdcfwLogFilePath = fd.SelectedItems(1)
 
    If Err.Number <> 0 Then
        Exit Sub
    End If
 
    If jdcfwLogFilePath = "False" Then Exit Sub
        DriveTextBox.Text = jdcfwLogFilePath
 
End Sub
 
Private Sub CommandButton2_Click()
Dim i As Integer
Dim myFile As String
Dim endTerm As String
     endTerm = FileNameTextBox.Text
 Const wdFindContinue As Integer = 1
 'checking textbox is empty
 
If FileNameTextBox.Text = "" Then
MsgBox "Please Enter Keyword"
Else
 
'Search criteria
With Application.FileSearch
    .LookIn = DriveTextBox.Text 'path to look in
    .FileType = msoFileTypeAllFiles
    .SearchSubFolders = True
    .TextOrProperty = "*" & endTerm & "*" 'Word to find in this line
    .Execute 'start search
 
'This loop will bring up a message box with the name of
'each file that meets the search criteria
 
Dim n As Integer
n = 0
    For i = 1 To .FoundFiles.Count
 
        ListBox1.AddItem (.FoundFiles(i))
        n = n + 1
    Next i
 
End With
End If
If n = 0 And FileNameTextBox.Text <> "" Then
MsgBox ("Keyword Not found")
End If
 
End Sub
 
Private Sub TextBox2_Change()
 
End Sub
 
Private Sub ListBox1_Click()
 
End Sub
 
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim endTerm As String
     endTerm = FileNameTextBox.Text
Const wdFindContinue As Integer = 1
'MsgBox (ListBox1.Text)
 Set wordApp = CreateObject("word.Application")
 
   wordApp.Documents.Open ListBox1.Text
 
    wordApp.Visible = True
 
    If Not IsMissing(endTerm) Then
       With wordApp.Application.Selection.Find
          .Text = endTerm
          '<i>.HighlightColorIndex = wdYellow</i>
          .Forward = True
          .Wrap = wdFindContinue
            .Format = False
           .MatchCase = False
           .MatchWholeWord = False
           .MatchWildcards = False
           .MatchSoundsLike = False
          .MatchAllWordForms = False
           .Execute
 
        End With
   End If
 
End Sub

[azhaguraju]

I am having two text box. first text box i am entering the file name(d:\search)using the browse button.second text box i am entering the keyword(appication).it will automatically find the document files and list the listbox.if i am double clicking the list inside the search document means it will automatically open the word file and notify the keyword.
Now my doubt is fist text box i am giving the document file directly cant used for browser.How can i do.... If anybody known means plz help me

[Rabbit]

I don't understand what your question is. Please try explaining again with a clearer and more concise statement.

[Killer42]

I've been trying really hard to understand the question. What I've worked out is that this is not VB6 code, but VBA. Presumably a Word macro.

If so, please post your question in the VBA forum, as you'll find much more expertise there.

Also, I'm afraid the question as originally posed is quite difficult to interpret. I gather it's something to do with the file/folder dialogue shown at line 7, and some sort of problem with either setting the starting folder or file name, or making use of the value that it returns. Can you please try to clarify? (Note: the word is "question", not "doubt").

[azhaguraju]

Actually my project is to search a particular keyword from a file, under that key word few lines has to be retrieved "

steps:
Give a filename(ex.raja.doc)
Give a Keyword(ex.string)
Search the filename in whole computer(c:,d:...)
match the keyword.
if the keyword is found, retrieve few lines under the keyword from that file.
Actually i have done upto this

But the problem is table,
if the table presents under the keyword, then how can i retrieve that table.

Thanks
by
azhaguraju

im waiting for your reply

[azhaguraju]

i have finished to search ms word files in folder only i want to search ms word files in directory(my computer)if anyone known means plz update

[Rabbit]

Folder and directory are the same thing. I still don't know what you are trying to ask.

[azhaguraju]

Actually my project is to search a particular keyword from a file, under that key word few lines has to be retrieved "

steps:
Give a filename(ex.raja.doc)
Give a Keyword(ex.string)
Search the filename in whole computer(c:,d:...)
match the keyword.
if the keyword is found, retrieve few lines under the keyword from that file.
Actually i have done upto this

But the problem is table,
if the table presents under the keyword, then how can i retrieve that table.
Rabbit Sir If you know means plz update soon

[Rabbit]

You've already said all that. You have added no new information. I didn't understand what you were trying to ask the first time and I'm not going to understand it if you just keep repeating what you said.

Please rethink and rephrase your question in a different way.

[azhaguraju]

my project is to search a particular keyword from a document file, under that key word few lines has to be retrieved "
if the keyword is found, retrieve few lines under the keyword from that file.i have done upto this

But if the table presents under the keyword, then how can i retrieve that table.
Can you give your mail id i will send screen shot .you can understand my question

[azhaguraju]

[IMG]D:\azhaguraju\ht.bmp[/IMG]

we want to give a file name in file name text box(for example one.doc)
And we want enter the search keyword in keyword textbox.

if we press search button the function should search in all the directory(like C,D,E including sub folders)for the document have a name mention in the textbox.

if that document found. we have to find that document which contain that particular keyword.

if both condition are true. we have to add that file name with path in the listbox.
in vb 6.0

pls some one help me...thanks in advance....

[Rabbit]

You keep saying the same stuff over and over. You keep mentioning a table and I have no idea what table you're talking about.

You can't attach an image from your computer like that. We won't be able to see it. You need to upload it first.

Also, please stop bumping your thread. It is against site policy.