2

我正在尝试使用 python 和 win32 组件自动化 Word(2010) 文档（所有大多数 40-50 文档）。具体而言，需要选择行的一部分并将其全部替换为一些内容。例如，如果在原始文件中有“标签：096-4296-05A ”，我希望将其替换为“标签：_ __ _ __ _ ____ ”。仅当所有文件中存在的数字相同时，使用搜索和替换才有效，但实际上并非如此。所以在那种情况下，我想要一个通用的方法来执行这个任务。

所以我在想的是，如果我能以某种方式选择包含“ Label 096-4296-05A ”的行并将其删除，然后再次写一个新行，如“ Label _ __ _ __ _ ”。

为此，我确实查看了@选择对象http://msdn.microsoft.com/en-us/library/bb221235%28v=office.12%29.aspx和http://msdn.microsoft.com/en- us/library/bb208865%28v=office.12%29.aspx甚至尝试为VB编写一些等效的python代码。

这是我到目前为止所写的：

...///

########################
#
#   Purpose : Replace all occurrences of `find_str` with `replace_str`
#             in `word_file
#
#######################

def delete_and_add_line(word_file, find_str, replace_str):
    wdFindContinue = 1
    wdReplaceAll = 2

    # Dispatch() attempts to do a GetObject() before creating a new one.
    # DispatchEx() just creates a new one.
    app = win32com.client.DispatchEx("Word.Application")

    app.Visible = 0
    app.DisplayAlerts = 0
    app.Documents.Open(IP_Directory_Dest + "\\" + word_file) ## (word_file)

    # expression.Execute(FindText, MatchCase, MatchWholeWord,
    #   MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward,
    #   Wrap, Format, ReplaceWith, Replace)
    app.Selection.Find.Execute(find_str, True, True, \
        False, False, False, True, \
        wdFindContinue, False, replace_str, wdReplaceAll)

    app.Selection.EndKey(Extend=win32com.client.constants.wdExtend)##.Select()

    # determine if the text is selected or not
    if (app.Selection.Type == win32com.client.constants.wdSelectionIP ):
        print 'Nothing is selected'
    else:
        print 'Text Selected '

    # to delete the selected line
    app.Selection.Delete()

    app.ActiveDocument.Close(SaveChanges=True)
    app.Quit()

...///

当我执行此代码时，我发现 app.Selection.Find.Execute 能够成功找到并替换提供给它的文本。即使它打印“Text Selected”，这意味着选择了行尾的文本，但它永远不会删除选定的行。

另外，我不确定这是否是完全选择一行直到其结束的正确方法（使用 Select 与此会给我属性错误“AttributeError：'int' object has no attribute 'Select'”）

   **### **IS THIS THE CORRECT WAY TO SELECT A LINE TILL ITS END** ???**
   app.Selection.EndKey(Extend=win32com.client.constants.wdExtend)##.Select()

如果我在这里遗漏了什么，请告诉我。欢迎任何建议。

4

1 回答 1

3

请注意，您正在执行函数“Selection.Find”获取的所有匹配项的替换，然后尝试在最后一个匹配项之后扩展选择，我认为这不是您想要的。由于 Word 不接受此常量 (wdExtend)，因此您扩展选择的方式也出现错误。

此外，最好将文档作为 finally 子句的一部分关闭，以避免将 Word 留在内存中处于未知状态。

我认为正确的解决方案是遍历文档中的所有段落，然后使用正则表达式来匹配和替换要替换的文本。正则表达式比单词 find 功能强大得多。您可以使用 Range 属性的 Text 属性访问段落的文本。就像是：

import win32com.client
import re

# This is the regular expression to match the text you are after
regexp = "Label: [0-9A-Z-]+"

def replace_label(word_file):
    app = win32com.client.DispatchEx("Word.Application")
    app.Visible = 0
    app.DisplayAlerts = 0
    app.Documents.Open("C:\\" + word_file)
    try:
        doc = app.ActiveDocument
        # Iterate over all the paragraphs
        for parNo in range(1,doc.Paragraphs.Count):
            paragraph = doc.Paragraphs(parNo)
            # Get the text of the paragraph.
            current_text = paragraph.Range.Text
            # Check if there is a match in the paragraph
            if re.search(regexp,current_text):
                # We found a match... do the replace
                paragraph.Range.Text = re.sub(regexp,"Label _______",current_text)
    finally:
        app.ActiveDocument.Close(SaveChanges=True)
        app.Quit()

我不确定我建议的正则表达式，因此您可能需要对其进行调整。我所知道的正则表达式的最佳指南是：

http://www.zytrax.com/tech/web/regex.htm 和 http://docs.python.org/2/library/re.html

于 2013-04-17T11:53:09.077 回答