利用批处理bat批量处理word文档属性

a520521bc

已于 2022-08-28 08:36:08 修改

阅读量1.7k

点赞数

分类专栏： bat BAT批处理文章标签： batik

于 2021-07-18 00:01:33 首次发布

本文链接：https://blog.csdn.net/weixin_44181791/article/details/118864744

版权

BAT批处理同时被 2 个专栏收录

72 篇文章 6 订阅 ¥69.90 ¥99.00

订阅专栏

超级会员免费看

bat

66 篇文章 6 订阅 ¥69.90 ¥99.00

订阅专栏

超级会员免费看

将代码复制粘贴txt文档另存为bat，即可实现简单快速处理，不要问我是谁，百度文库自身小学生一枚！

' 2>nul 3>nul&cls&@echo off
'&dir /a-d/b/s *.doc|cscript -nologo -e:vbscript "%~fs0"
'&exit /b


call test

Sub test()
    Set wd = CreateObject("Word.application")
    'wd.Visible = True
    Set fso = CreateObject("scripting.filesystemobject")
    Set oWMI = GetObject("winmgmts:\\.\root\cimv2")
    
    Do While WSH.StdIn.AtEndOfStream <> True
        file = WSH.StdIn.ReadLine
        Set ff = fso.GetFile(file)
        If ff.Attributes <> 32 Then
            ff.Attributes = 32
        End If
        
        If Left(ff.shortname, 2) <> "~$" Then
            flag=True
            Set oChldPrcs = oWMI.ExecQuery("Select * From Win32_Process Where Caption='winword.exe'")
            For Each oCols In oChldPrcs
                I