Database Search

TechHome

• Append Multiple Word Documents Together
• Change font in Word Document
• Change Font of Entire Doc File
• Change Margin and Fonts in Word DOC
• Changing Word Page Header
• Convert an RTF File to Plain Text file using Word
• Count bookmarks in Word
• Create a Word-document with table
• Create Hyperlinks in Word
• Extract Data from a Table in Word
• Extract Image from Word document
• Find and Replace Text in Word Document
• Find the Links in a Word Doc
• Get File Path to Word
• Get total number of pages
• Insert Text and CRLFs into a Word Doc
• Insert Wave File into a Word Document
• Inserting Pictures Into Table Cells in Word
• Mail Merge Warning in Word
• OLE and Word Basic Macro Language
• OLE and Word Example
• OLE Word File Append
• Print a MS Word document to to a PostScript printer
• Print an Envelope from Word
• Read Word Doc Line by Line
• Recordset to MS Word Table
• Run a Word Macro
• Setting Password in Word
• Spell Checker
• Template Info in Word
• Wait for Document to Load Completely
• Word - Constants
• Word Fields
• Word File Append
• WORD Find and Replace
• Word Mail Merge
• Word SaveAs HTML
• Word SaveAs

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Find and Replace Text in Word Document

 Keywords: search replace .doc 

wdReplaceAll    = 2
wdReplaceNone   = 0
wdReplaceOne    = 1


file      = StrCat(dirget(),"test.doc")
if !FileExist(file)
	message("Error","File not found")
	exit
endif
oWORD     = ObjectOpen("Word.Application")
oDOCS     = oWORD.Documents
oDOC      = oDOCS.Open(file)
Content   = oDOC.Content
Find      = Content.Find

oldtext   = "duh"
newtext   = "No Duh!"
Find.Execute(:: FindText = oldtext, ReplaceWith = newtext, Replace = wdReplaceAll)

oDOC.SaveAs( StrCat(dirget(),"revisedtest.doc") )
oDOC.Close()
oWORD.Quit()

ObjectClose(Find)
ObjectClose(Content)
ObjectClose(oDOC)
ObjectClose(oDOCS)
ObjectClose(oWORD)
Message("Operation Complete","See the revisedtest.doc file for changes.")
Exit

Article ID:   W15663

File Created: 2003:05:13:11:29:24

Last Updated: 2003:05:13:11:29:24