Python实现在多个Word文档中一键搜索

pip install python-docx

import os  # 导入os模块，用于文件路径操作
from tkinter import Tk, filedialog  # 导入Tk和filedialog模块，用于图形界面操作
from docx import Document  # 导入Document模块，用于读取Word文档

def search_in_docx(file_path, search_text):
    """
    在指定的Word文档中搜索指定的文本。
    :param file_path: Word文档的路径
    :param search_text: 要搜索的文本
    :return: 如果找到文本则返回True，否则返回False
    """
    try:
        doc = Document(file_path)  # 打开Word文档
        for para in doc.paragraphs:  # 遍历文档中的每个段落
            if search_text in para.text:  # 检查段落中是否包含搜索文本
                print(f"在文件 {os.path.basename(file_path)} 的段落中找到: {para.text}")
                return True
        return False  # 如果没有找到文本，则返回False
    except Exception as e:
        print(f"读取文件 {file_path} 出错: {e}")
        return False  # 捕获并打印异常信息

def search_in_directory(directory_path, search_text):
    """
    在指定目录及其子目录中的所有Word文档中搜索指定的文本。
    :param directory_path: 要搜索的目录路径
    :param search_text: 要搜索的文本
    """
    for root, dirs, files in os.walk(directory_path):  # 遍历目录
        for file in files:  # 检查每个文件
            if file.endswith('.docx'):  # 只处理Word文档（.docx格式）
                file_path = os.path.join(root, file)  # 获取文件的完整路径
                print(f"正在搜索文件 {os.path.basename(file_path)}...")  # 显示正在搜索的文件名
                if search_in_docx(file_path, search_text):  # 调用search_in_docx函数
                    print(f"在文件 {os.path.basename(file_path)} 中找到了 '{search_text}'")  # 显示找到的文本

def get_directory_path():
    """
    弹出图形界面对话框，让用户选择要搜索的目录。
    :return: 用户选择的目录路径
    """
    Tk().withdraw()  # 隐藏主窗口
    directory_path = filedialog.askdirectory(title="请选择要搜索的目录")  # 弹出选择文件夹的对话框
    return directory_path  # 返回用户选择的目录路径

if __name__ == "__main__":
    directory_path = get_directory_path()  # 获取用户选择的目录路径
    if directory_path:  # 如果用户选择了目录
        search_text = input("请输入要搜索的文本: ")  # 获取用户输入的要搜索的文本
        search_in_directory(directory_path, search_text)  # 调用search_in_directory函数
    else:
        print("未选择目录。")  # 如果用户没有选择目录，则打印提示信息

Sub a设置连续页码并遍历文档()
    ' 定义变量用于存储文件夹路径
    Dim strFolderPath As String
    ' 创建FileSystemObject对象，用于操作文件系统
    Dim objFSO As Object
    ' 定义变量用于存储文件夹对象
    Dim objFolder As Object
    ' 定义变量用于存储文件对象
    Dim objFile As Object
    ' 定义变量用于存储Word文档对象
    Dim objDoc As Document
    ' 定义变量用于存储当前页码
    Dim iCurrentPage As Integer
    ' 定义变量用于存储文档的总页数
    Dim iTotalPages As Integer
    ' 定义变量用于存储之前文档的总页数，以便设置连续页码
    Dim iPreviousTotal As Integer
 
    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
 
    ' 使用文件选择对话框让用户选择文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        ' 如果用户选择了文件夹
        If .Show = -1 Then
            ' 存储选择的文件夹路径
            strFolderPath = .SelectedItems(1) & "\"
        Else
            ' 如果用户取消选择，则显示消息框并退出宏
            MsgBox "未选择文件夹，操作已取消。"
            Exit Sub
        End If
    End With
 
    ' 根据用户选择的路径获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)
 
    ' 初始化当前页码为1
    iCurrentPage = 1
 
    ' 遍历文件夹中的所有.docx文件
    For Each objFile In objFolder.Files
        ' 检查文件扩展名是否为docx
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "docx" Then
            ' 打开文档，不显示界面
            Set objDoc = Documents.Open(objFile.Path, Visible:=False)
 
            ' 调用宏设置页码，传入当前页码
            Call e自动前节设置(objDoc, iCurrentPage)
 
            ' 调用辅助函数获取当前文档的总页数
            iTotalPages = GetTotalPages(objDoc)
 
            ' 更新当前页码为下一个文档的起始页码
            iPreviousTotal = iCurrentPage
            iCurrentPage = iTotalPages + iPreviousTotal
 
            ' 保存并关闭文档
            objDoc.Close SaveChanges:=True
        End If
    Next objFile
 
    ' 显示消息框，告知用户所有文档的页码设置完成
    MsgBox "所有文档的页码设置完成。"
End Sub

' 辅助函数，用于获取文档的总页数
Function GetTotalPages(ByRef oDoc As Document) As Integer
    ' 获取当前文档的总页数，返回给调用者
    GetTotalPages = oDoc.Windows(1).Panes(1).Pages.Count
End Function

' 辅助函数，用于设置文档的页码
Sub e自动前节设置(ByRef oDoc As Document, ByRef iStartingPage As Integer)
    Dim oSection As Section
    For Each oSection In oDoc.Sections
        If oSection.Index = 1 Then
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                .NumberStyle = wdPageNumberStyleArabic
                .RestartNumberingAtSection = True
                .StartingNumber = iStartingPage
            End With
        Else
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                .RestartNumberingAtSection = False
            End With
        End If
    Next oSection
End Sub

Sub a设置连续页码并遍历文档()
    ' 定义变量用于存储文件夹路径
    Dim strFolderPath As String
    ' 创建FileSystemObject对象，用于操作文件系统
    Dim objFSO As Object
    ' 定义变量用于存储文件夹对象
    Dim objFolder As Object
    ' 定义变量用于存储文件对象
    Dim objFile As Object
    ' 定义变量用于存储Word文档对象
    Dim objDoc As Document
    ' 定义变量用于存储当前页码
    Dim iCurrentPage As Integer
    ' 定义变量用于存储文档的总页数
    Dim iTotalPages As Integer
    ' 定义变量用于存储之前文档的总页数，以便设置连续页码
    Dim iPreviousTotal As Integer
 
    ' 创建FileSystemObject对象
    Set objFSO = CreateObject("Scripting.FileSystemObject")
 
    ' 使用文件选择对话框让用户选择文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)
        ' 如果用户选择了文件夹
        If .Show = -1 Then
            ' 存储选择的文件夹路径
            strFolderPath = .SelectedItems(1) & "\"
        Else
            ' 如果用户取消选择，则显示消息框并退出宏
            MsgBox "未选择文件夹，操作已取消。"
            Exit Sub
        End If
    End With
 
    ' 根据用户选择的路径获取文件夹对象
    Set objFolder = objFSO.GetFolder(strFolderPath)
 
    ' 初始化当前页码为1
    iCurrentPage = 1
 
    ' 遍历文件夹中的所有.docx文件
    For Each objFile In objFolder.Files
        ' 检查文件扩展名是否为docx
        If LCase(objFSO.GetExtensionName(objFile.Name)) = "docx" Then
            ' 打开文档，不显示界面
            Set objDoc = Documents.Open(objFile.Path, Visible:=False)
 
            ' 调用宏设置页码，传入当前页码
            Call e自动前节设置(objDoc, iCurrentPage)
 
            ' 调用辅助函数获取当前文档的总页数
            iTotalPages = GetTotalPages(objDoc)
 
            ' 更新当前页码为下一个文档的起始页码
            iPreviousTotal = iCurrentPage
            iCurrentPage = iTotalPages + iPreviousTotal
 
            ' 保存并关闭文档
            objDoc.Close SaveChanges:=True
        End If
    Next objFile
 
    ' 显示消息框，告知用户所有文档的页码设置完成
    MsgBox "所有文档的页码设置完成。"
End Sub
 
' 辅助函数，用于获取文档的总页数
Function GetTotalPages(ByRef oDoc As Document) As Integer
    ' 获取当前文档的总页数，返回给调用者
    GetTotalPages = oDoc.Windows(1).Panes(1).Pages.Count
End Function
 
' 辅助函数，用于设置文档的页码
Sub e自动前节设置(ByRef oDoc As Document, ByRef iStartingPage As Integer)
    ' 定义变量用于存储文档节对象
    Dim oSection As Section
    ' 遍历文档的所有节
    For Each oSection In oDoc.Sections
        ' 如果是第一个节，则设置页码样式和起始页码
        If oSection.Index = 1 Then
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                ' 设置页码样式为阿拉伯数字
                .NumberStyle = wdPageNumberStyleArabic
                ' 设置在该节重新开始页码编号
                .RestartNumberingAtSection = True
                ' 设置起始页码
                .StartingNumber = iStartingPage
            End With
        Else
            ' 对于其他节，不重新开始页码编号
            With oSection.Footers(wdHeaderFooterPrimary).PageNumbers
                .RestartNumberingAtSection = False
            End With
        End If
    Next oSection
End Sub