Find/Replace in a word document

ASP Free Forums Sponsor:

May 19th, 2008, 08:18 PM

asinclair

Registered User

Join Date: May 2008

Posts: 1

Time spent in forums: 30 m 34 sec
Reputation Power: 0

Find/Replace in a word document

I am writing a workflow in which a word file has certain markers replaced by predefined values and saved under a different name, but I can't seem to get the syntax right to actually do the find/replace action.

I have tried using document.range.find.execute methods, as well as selection.find.execute methods, and neither work.

The problem seems that i can't get the correct syntax to pass the wdReplaceAll parameter. In VBA documentation the syntax would be Execute(replace:=wdReplaceAll) but that doesn't compile in pure vbscript.

Sample Code:

vb Code:

Original - vb Code
Sub ReplaceText(tWhat, tWith) Set myRange = objDoc.ActiveDocument.Range(0,objDoc.ActiveDocumen t.Characters.Count) Wscript.echo myRange.text ' the above DOES pop-up the expected value. With myRange.Find .Replacement.ClearFormatting .ClearFormatting .Text = tWhat .Replacement.Text = tWith .Forward = True .Wrap = wdFindContinue .Format = False .Execute("wdReplaceAll") End With End sub

Sub ReplaceText(tWhat, tWith) 
    Set myRange = objDoc.ActiveDocument.Range(0,objDoc.ActiveDocumen  t.Characters.Count)
    Wscript.echo myRange.text
    ' the above DOES pop-up the expected value.
    With myRange.Find
        .Replacement.ClearFormatting
        .ClearFormatting
            .Text = tWhat
            .Replacement.Text = tWith
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
        .Execute("wdReplaceAll")
    End With
End sub

Moderator's Note: Syntax highlighting added by Nilpo.

Last edited by Nilpo : June 4th, 2008 at 10:36 PM.

May 20th, 2008, 02:56 AM

Nilpo

Shaolin Scripter!™

ASP Free Intermediate (1500 - 1999 posts)

Join Date: Jun 2006

Location: Salem, OH

Posts: 1,903

Folding Points: 214558 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 1 Week 2 Days 10 h 50 m 9 sec
Reputation Power: 969

First off, you need to define the wdReplaceAll constant. It does not become available when you instantiate the Word object.

vb Code:

Original - vb Code
Const wdReplaceAll = 2

Const wdReplaceAll = 2

You can also simplify the next statement.

vb Code:

Original - vb Code
Set myRange = objDoc.ActiveDocument.Range(0,objDoc.ActiveDocumen t.Characters.Count)

Set myRange = objDoc.ActiveDocument.Range(0,objDoc.ActiveDocumen  t.Characters.Count)

You're using a Range to select the entire contents of the document. This can be achieved by calling the Range method without any parameters.

vb Code:

Original - vb Code
Set myRange = objDoc.ActiveDocument.Range()

Set myRange = objDoc.ActiveDocument.Range()

The problem here seems to be a little syntax issue in the Execute method. Here's a simple Find/Replace example. You can use either a selection or a range at your own discretion.

vb Code:

Original - vb Code

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objDoc = objWord.Documents.Open("mydoc.doc")
 
Sub ReplaceText(tWhat, tWith)
    Const wdFindContinue = 1
    Const wdReplaceAll  = 2
    Set objSelection = objWord.Selection 'or Set objRange = objDoc.ActiveDocument.Range()
    
    With objSelection.Find 'or With objRange.Find
        .Text = tWhat
        .Forward = True
        .MatchWholeWord = True
        .Wrap = wdFindContinue
        .Format = False
    
        .Replacement.Text = tWith
        .Execute ,,,,,,,,,,wdReplaceAll
    End With
End Sub

Be careful using the ClearFormatting methods. They can lead to some unexpected results and your saved document may have some expected formatting removed.

__________________

Don't like me? Click it.

Scripting problems? Windows questions? Ask the Windows Guru!

Stay up to date with all of my latest content. Follow me on Twitter!

Help us help you! Post your exact error message with these easy tips!

Viewing: ASP Free Forums > System Administration > Windows Scripting > Find/Replace in a word document

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

How to Present Effectively Online
This white paper offers practical and actionable advice on the key steps that any presenter should consider as they plan and execute a Webinar or online meeting.

Open Source Security Myths
Open Source Software (OSS) is computer software whose source code is available to the general public with relaxed or non-existent intellectual property restrictions (or arrangement such as the public domain), and is usually developed with the input of many contributors.

Power and Cooling Capacity Management for Data Centers
This paper describes the principles for achieving power and cooling capacity management.

Scalable, Fault-Tolerant NAS for Oracle - The Next Generation
For several years NAS has been evolving as a storage alternative for Oracle databases, and for good reason: NAS is quite often the simplest, most cost-effective storage approach for Oracle. Learn about the benefits that HP's approach to scalable NAS brings to Oracle environments in this comprehensive white paper.

Understanding Web Application Security Challenges
This white paper discusses many common threats and preventive measures for Web application security, and explains what you can do to help protect your organization.

More Free IT White Papers!