find and replace in word

[obscurant1st]

Ii have wordfl, in that how can i find one particular set of continuous words and replace the word coming after that.

for example:

in my word doc, there are instances like "the filename is" appearing many times.

I have to replace the word coming after this sentance ie "the filename is"

So the file contains

"the filename is" aaa

"the filename is" bbb

"the filename is" kjhdfjdhf

I want to replace everything with a word aa.doc, so the result will be

"the filename is" aa.doc

"the filename is" aa.doc

"the filename is" aa.doc

can i do this by any means??

[Melba23]

obscurant1st,

This SRE seems to work:

$sText = "the filename is aaa and more text the filename is bbb and more text" & @CRLF & "the filename is kjhdfjdhf and more text"

$sCorrected = StringRegExpReplace($sText, "(?i)(?U)(the filename is (\b.+\b))", "the filename is aa.doc")

ConsoleWrite($sCorrected & @CRLF)

No doubt a real SRE guru will be along shortly with a much more snazzy version if you want to hang around.

M23

[obscurant1st]

  On 4/30/2010 at 8:09 AM, 'Melba23 said:

obscurant1st,

This SRE seems to work:

$sText = "the filename is aaa and more text the filename is bbb and more text" & @CRLF & "the filename is kjhdfjdhf and more text"

$sCorrected = StringRegExpReplace($sText, "(?i)(?U)(the filename is (\b.+\b))", "the filename is aa.doc")

ConsoleWrite($sCorrected & @CRLF)

No doubt a real SRE guru will be along shortly with a much more snazzy version if you want to hang around.

M23

But here in my case $sText is in a word document. So how can i get the contents to $sText?

[Melba23]

obscurant1st,

Ever heard of "Save As..."?

Save the Word file as a .txt file and then read it into your script with FileRead. Once you have finished changing it, write teh result back to the file with FileWrite and then import into Word.

M23

[obscurant1st]

  On 4/30/2010 at 11:57 AM, 'Melba23 said:

obscurant1st,

Ever heard of "Save As..."?

Save the Word file as a .txt file and then read it into your script with FileRead. Once you have finished changing it, write teh result back to the file with FileWrite and then import into Word.

M23

But saving it as txt file will cause the formatting of my word file to loose right?

if not its ok.

[Melba23]

obscurant1st,

  Quote

saving it as txt file will cause the formatting of my word file to loose

Correct.

I can only suggest you do which ever the following you think would take the shortest time:

- 1. Use Word's built-in VB scripting to change the text. I imagine there are forums for that which can help you.

- 2. Go manually through the file and change the text.

- 3. Do as I suggested and reformat the file afterwards.

M23

P.S. When you reply please use the "Add Reply" button at the top and bottom of the page rather then the "Reply" button in the post itself. That way you do not get the contents of the previous post quoted in your reply and the whole thread becomes easier to read.

[obscurant1st]

I think 1st option will do the work for me. Can you suggest any forums which can help me?

[Melba23]

Let me Google that for you.

M23

[Makaule]

I dont know is it solved or not, but you could use that example:

http://www.autoitscript.com/forum/index.php?showtopic=114123&st=0&p=798037&hl=Word&fromsearch=1&#entry798037

[obscurant1st]

its not solved, i am still trying.

[saywell]

  On 5/12/2010 at 9:54 AM, 'obscurant1st said:

its not solved, i am still trying.

How about:

$oWordApp = _WordCreate ($Filename, 0, 0)
; Display the text within the document
    $sContent = $oWordApp.Activedocument.Range.Text
    
MsgBox(0, "Document Text", $sContent)

    _WordQuit ($oWordApp)

William

Edited August 13, 2010 by saywell

[MeMeMe]

Two good, related word groups are:

http://groups.yahoo.com/group/Word_VBA

http://groups.yahoo.com/group/Word_DocDesign

You'll be able to find out how to do what you need natively within word.

You may not need a macro, this might work:

Open the Find & replace dialog (CTRL+H)

Make sure the Use Wildcards, or use Pattern Matching box is ticked.

In the Find: box, enter

the filename is <*>

In the replace box, enter

the filename is aa.doc

"<" is the wildcard for start of a word, ">" is the end of a word, and "*" is any characters between those two - so that should select "the filename is " and whatever single word follows. It then replaces it with "the filename is aa.doc"

Make a backup of your document first, and check the output thoroughly!

[Malkey]

Try the example under the _WordDocFindReplace function in the AutoIt help file.