[VBscript] Find string in Word document

[Voxie2]

Hi,

Ik vroeg me af hoe ik in VBscript in een worddocument een string kan zoeken. Heeft iemand hier een voorbeeld van? Ik heb het hele internet en GoT al afgezocht, maar kan niets vind. Alvast bedankt.

[faabman]

niet op vbscript zoeken, maar op vba en dat gebruiken in je vbscript...

Visual Basic for Applications...


[google=what is vba]

of http://wikipedia.org

[ Voor 41% gewijzigd door faabman op 27-08-2004 14:21 ]

[Voxie2]

vba?...

Ik bedoel echt in vbscript he? Het moet geintergreerd worden in een al bestaand vbscript namelijk, dus niet met een macrootje ofzo...

[ Voor 88% gewijzigd door Voxie2 op 27-08-2004 14:21 ]

[faabman]

Voxie2 schreef op 27 augustus 2004 @ 14:19:
vba?...

Ik bedoel echt in vbscript he? Het moet geintergreerd worden in een al bestaand vbscript namelijk, dus niet met een macrootje ofzo...

Zoals ik al zei, je kunt de meeste vba eigenlijk gewoon gebruiken in asp / vbscript zonder het gebruik van macro's e.d....

[Verwijderd]

Onderstaand VBScriptje zoekt in een Word document naar een ingegeven string.

Het is een VBS bestandje dat draait onder Windows Script Host.

code:

on error resume next

gezochte_string = inputbox("Geef te zoeken string op ...")

if gezochte_string = "" then
msgbox "Geen input ontvangen. De bewerking wordt geannuleerd."
WScript.Quit
end if

bestand = "C:\document.doc"

set word = createobject("Word.Application")

if err.number then
msgbox "Geen toegang tot Word gekregen. De bewerking wordt geannuleerd."
Wscript.Quit
end if

word.Documents.Add bestand

if err.number then
msgbox "Bestand niet gevonden. De bewerking wordt geannuleerd."
word.Quit
set word = nothing
Wscript.Quit
end if

if instr(word.ActiveDocument.Range, gezochte_string) <> 0 then
msgbox "String """ & gezochte_string & """ gevonden."
else 
msgbox "String """ & gezochte_string & """ niet gevonden."
end if

word.Quit
set word = nothing

[Voxie2]

Thnx! Dit is precies wat ik zoek.