使用bat批量获取WORD中包含对应字符的段落,段落使用回车换行

get_word_paragraphs.vbs

复制代码
' 获取命令行参数
If WScript.Arguments.Count = 0 Then
    WScript.Quit 1
End If

' 获取 Word 文档路径
docPath = WScript.Arguments(0)

' 创建 Word 应用程序对象
Set objWord = CreateObject("Word.Application")
objWord.Visible = False

' 打开 Word 文档
On Error Resume Next
Set objDoc = objWord.Documents.Open(docPath)
If Err.Number <> 0 Then
    WScript.Echo "无法打开文档: " & docPath
    objWord.Quit
    WScript.Quit 1
End If
On Error GoTo 0

' 查找!!!和 AAAA 所在的段落
Dim foundParagraphs
Set foundParagraphs = CreateObject("Scripting.Dictionary")

Dim paraIndex
paraIndex = 1 ' 初始化段落索引计数器

For Each para In objDoc.Paragraphs
    paraText = Trim(para.Range.Text) ' 去除首尾空白字符
    If InStr(paraText, "!!!") > 0 Or InStr(paraText, "AAAA") > 0 Then
        foundParagraphs.Add paraIndex, paraText
    End If
    paraIndex = paraIndex + 1 ' 计数器加 1
Next

' 关闭文档和 Word 应用程序
objDoc.Close
objWord.Quit

' 输出文档路径和找到的段落
If foundParagraphs.Count > 0 Then
    For Each key In foundParagraphs.Keys
		WScript.Echo foundParagraphs(key)
    Next
Else
End If

bat文件

复制代码
@echo off
chcp 65001 
setlocal enabledelayedexpansion

REM 指定要处理的Word文档所在的目录
set "sourceDir=C:\Users\Admin\Desktop\文档"

REM 指定输出结果的文本文件
set "outputFile=word_paragraphs_result.txt"

REM 如果输出文件已存在,先删除它
if exist "%outputFile%" del "%outputFile%"
set /p="[" <nul
REM 遍历指定目录下的所有Word文档
for %%f in ("%sourceDir%\*.docx" "%sourceDir%\*.doc") do (
    REM 调用VBScript脚本处理每个文档,并将结果追加到输出文件中
    cscript //nologo get_word_paragraphs.vbs "%%f" >> "%outputFile%"
	set /p="." <nul
)
echo ]
echo 处理完成,结果保存在 %outputFile%
pause>nul
endlocal

查找的是包含!!!和AAAA的段落,段落使用回车分段,需要安装MS-OFFICE 2007及以上版本,点击bat运行即可

相关推荐
m0_570466416 分钟前
代码随想录算法训练营第二十八天 | 买卖股票的最佳实际、跳跃游戏、K次取反后最大化的数组和
java·开发语言·算法
程序喵大人6 分钟前
分享个C++线程池的实现源码
开发语言·c++·线程池
不会吃萝卜的兔子31 分钟前
go webrtc - 1 go基本概念
开发语言·golang·webrtc
要做朋鱼燕1 小时前
【C++】 priority_queue 容器模拟实现解析
开发语言·c++·笔记·职场和发展
jiaway1 小时前
【C语言】第四课 指针与内存管理
c语言·开发语言·算法
励志不掉头发的内向程序员1 小时前
C++进阶——继承 (1)
开发语言·c++·学习
IT小农工2 小时前
Windows 文件资源管理器无法预览文件内容word、ppt、excel、pdf
windows·word·powerpoint
BillKu2 小时前
在 Delphi 5 中获取 Word 文档页数的方法
word·delphi
中国胖子风清扬3 小时前
Rust 序列化技术全解析:从基础到实战
开发语言·c++·spring boot·vscode·后端·中间件·rust
我就是全世界3 小时前
【存储选型终极指南】RustFS vs MinIO:5大维度深度对决,95%技术团队的选择秘密!
开发语言·分布式·rust·存储