Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

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.

WORD Find and replace

Keywords:   WORD Find and replace

---

Here is VB code that will do a find and replace -- someone might want to convert it to Winbatch. Probably the only problem you will have is with the Execute method as it uses positional parameters.

For reference, see the list of OLE constants in the DB.

---

Option Explicit

Sub ExecuteReplace()
' This procedure demonstrates using the Execute 
' method to replace text.

' Open the file.
Documents.Open FileName:="c:\odept1dc.doc"
Documents("odept1dc.doc").Activate

' Loop until no more items are found.
Do
Selection.Find.ClearFormatting
With Selection.Find
.Text = "display"
.Execute ReplaceWith:="show", _
Replace:=wdReplaceAll, Forward:=True
End With
' Exit the loop when the search is unsuccessful.
If Selection.Find.Execute = False Then Exit Do
Loop

End Sub

---

Article ID:   W15665

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

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