the code below is taken from M$ technet as an example on using vb
script to do a replace all in word:
Const wdReplaceAll = 2
Set objWord = CreateObject("W ord.Application ")
objWord.Visible = True
Set objDoc =
objWord.Documen ts.Open("K:\Dev elopment\Fabric base\prod\Test. doc")
Set objSelection = objWord.Selecti on
objSelection.Fi nd.Text = "Contoso"
objSelection.Fi nd.Forward = True
objSelection.Fi nd.MatchWholeWo rd = True
objSelection.Fi nd.Replacement. Text = "Fabrikam"
objSelection.Fi nd.Execute ,,,,,,,,,,wdRep laceAll
I did a rewrite and made it pythonic:
from win32com.client import *
wdReplaceAll = 2
objWord = Dispatch("Word. Application")
objWord.Visible = True
objDoc =
objWord.Documen ts.Open("K:\Dev elopment\Fabric base\prod\Test. doc")
objSelection = objWord.Selecti on
objSelection.Fi nd.Text = "Contoso"
objSelection.Fi nd.Forward = True
objSelection.Fi nd.MatchWholeWo rd = True
objSelection.Fi nd.Replacement. Text = "Fabrikam"
objSelection.Fi nd.Execute (Replace = wdReplaceAll)
However, the document juz loaded up in word but no action was taken. I
am using Word 2003. Any ideas?
script to do a replace all in word:
Const wdReplaceAll = 2
Set objWord = CreateObject("W ord.Application ")
objWord.Visible = True
Set objDoc =
objWord.Documen ts.Open("K:\Dev elopment\Fabric base\prod\Test. doc")
Set objSelection = objWord.Selecti on
objSelection.Fi nd.Text = "Contoso"
objSelection.Fi nd.Forward = True
objSelection.Fi nd.MatchWholeWo rd = True
objSelection.Fi nd.Replacement. Text = "Fabrikam"
objSelection.Fi nd.Execute ,,,,,,,,,,wdRep laceAll
I did a rewrite and made it pythonic:
from win32com.client import *
wdReplaceAll = 2
objWord = Dispatch("Word. Application")
objWord.Visible = True
objDoc =
objWord.Documen ts.Open("K:\Dev elopment\Fabric base\prod\Test. doc")
objSelection = objWord.Selecti on
objSelection.Fi nd.Text = "Contoso"
objSelection.Fi nd.Forward = True
objSelection.Fi nd.MatchWholeWo rd = True
objSelection.Fi nd.Replacement. Text = "Fabrikam"
objSelection.Fi nd.Execute (Replace = wdReplaceAll)
However, the document juz loaded up in word but no action was taken. I
am using Word 2003. Any ideas?
Comment