使用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运行即可

相关推荐
随意02316 分钟前
Qt 事件
开发语言·qt
鸥梨菌Honevid23 分钟前
Qt自定义控件(1)——QPaintEvent
开发语言·qt
Code季风26 分钟前
深入比较 Gin 与 Beego:Go Web 框架的两大选择
开发语言·golang·go·gin·beego
专注VB编程开发20年2 小时前
javascript的类,ES6模块写法在VSCODE中智能提示
开发语言·javascript·vscode
黄雪超9 小时前
JVM——函数式语法糖:如何使用Function、Stream来编写函数式程序?
java·开发语言·jvm
ThetaarSofVenice9 小时前
对象的finalization机制Test
java·开发语言·jvm
思则变9 小时前
[Pytest] [Part 2]增加 log功能
开发语言·python·pytest
lijingguang9 小时前
在C#中根据URL下载文件并保存到本地,可以使用以下方法(推荐使用现代异步方式)
开发语言·c#
¥-oriented10 小时前
【C#中路径相关的概念】
开发语言·c#
CoderCodingNo10 小时前
【GESP】C++四级考试大纲知识点梳理, (7) 排序算法基本概念
开发语言·c++·排序算法