Greetings,

Please help me with the following: I have an excel sheet with data
pertaining to telcomm switch. I have a command button on the sheet. When I
click the command button it asks me for a string. I then want to open a WORD
file and search for the same string in the Word file. I want the option to
find the next possible occurance of the string within the Word file. At the
end of it all I want to close the Word file.

Thanks in advance for your help.

Farooq Sheri

Hi Farooq,

The code below will find the first occurrence, then shut down Word. Just
change sText and sDoc to your own ones.

Private Sub CommandButton1_Click()
Dim sText As String, sDoc as String
Dim wordApp As Object

sText = "Find this"
sDoc="C:\Temp\A Document.doc"
Set wordApp = CreateObject("Word.Application")
With wordApp
.Visible = True
.Documents.Open (sDoc)
With .Selection.Find
.Text = sString
.Execute Forward:=True
End With
.Quit
End With
Set wordApp = Nothing
End Sub

--
Work performed in the spirit of service is worship...Baha'i Writings


"Farooq Sheri" wrote:

Greetings,

Please help me with the following: I have an excel sheet with data
pertaining to telcomm switch. I have a command button on the sheet. When I
click the command button it asks me for a string. I then want to open a WORD
file and search for the same string in the Word file. I want the option to
find the next possible occurance of the string within the Word file. At the
end of it all I want to close the Word file.

Thanks in advance for your help.

Farooq Sheri

Hi Ian,

Thanks for your help. The word document opens but it also closes in a blink
of an eye. Perhaps if we can have a sequence built in where the user
interaction is required to find the next value in the word document and to
finally close the word document (I do not know if it is possible or not but
perhaps after once the Word doc opens, a macro within should Word take over.
After the user has finished finding the required string the word macro should
close and the excel macro should then take over; just a thought).

Thanks again.

"Ian Digby" wrote:

Hi Farooq,

The code below will find the first occurrence, then shut down Word. Just
change sText and sDoc to your own ones.

Private Sub CommandButton1_Click()
Dim sText As String, sDoc as String
Dim wordApp As Object

sText = "Find this"
sDoc="C:\Temp\A Document.doc"
Set wordApp = CreateObject("Word.Application")
With wordApp
.Visible = True
.Documents.Open (sDoc)
With .Selection.Find
.Text = sString
.Execute Forward:=True
End With
.Quit
End With
Set wordApp = Nothing
End Sub

--
Work performed in the spirit of service is worship...Baha'i Writings


"Farooq Sheri" wrote:

Greetings,

Please help me with the following: I have an excel sheet with data
pertaining to telcomm switch. I have a command button on the sheet. When I
click the command button it asks me for a string. I then want to open a WORD
file and search for the same string in the Word file. I want the option to
find the next possible occurance of the string within the Word file. At the
end of it all I want to close the Word file.

Thanks in advance for your help.

Farooq Sheri