网站建设及维护业务服务合同/搜索词分析

我试图用Python自动化word来替换word文档中的文本。（如果重要的话，我使用word2003和python2.4）

下面的replace方法的第一部分适用于除文本框中的文本之外的所有内容。文本就是没有被选中。我注意到当我手动进入Word并按ctrl-A时，除了文本框之外，所有的文本都被选中了。在

以下是我目前为止的代码：class Word:

def __init__(self,visible=0,screenupdating=0):

pythoncom.CoInitialize()

self.app=gencache.EnsureDispatch(WORD)

self.app.Visible = visible

self.app.DisplayAlerts = 0

self.app.ScreenUpdating = screenupdating

print 'Starting word'

def open(self,doc):

self.opendoc=os.path.basename(doc)

self.app.Documents.Open(FileName=doc)

def replace(self,source,target):

if target=='':target=' '

alltext=self.app.Documents(self.opendoc).Range(Start=0,End=self.app.Documents(self.opendoc).Characters.Count) #select all

alltext.Find.Text = source

alltext.Find.Replacement.Text = target

alltext.Find.Execute(Replace=1,Forward=True)

#Special handling to do replace in text boxes

#http://word.tips.net/Pages/T003879_Updating_a_Field_in_a_Text_Box.html

for shp in self.app.Documents(self.opendoc).Shapes:

if shp.TextFrame.HasText:

shp.TextFrame.TextRange.Find.Text = source

shp.TextFrame.TextRange.Find.Replacement.Text = target

shp.TextFrame.TextRange.Find.Execute(Replace=1,Forward=True)

#My Usage

word=Word(visible=1,screenupdating=1)

word.open(r'C:\Invoice Automation\testTB.doc')

word.replace('[PGN]','1')

用于shp输入自我.app.. 第二节是我尝试点击文本框。它似乎找到了文本框，但它没有替换任何内容。在