【向生活低头】批处理 批量操作文件

工作中的小帮手~

一、word批量添加后缀

新建文本文档，内容为

for %%i in (*.docx)  do ren %%i %%~ni后缀内容.docx

文件名修改为XXX.bat

二、文本文档批量添加后缀

新建文本文档，内容为

for %%i in (*.txt)  do ren %%i %%~ni后缀内容.txt

文件名修改为XXX.bat

三、word批量添加前缀

新建文本文档，内容为

for %%i in (*.docx)  do ren "%%i" 前缀内容"%%i"

文件名修改为XXX.bat

四、txt批量添加前缀

新建文本文档，内容为

for %%i in (*.txt)  do ren "%%i" 前缀内容"%%i"

文件名修改为XXX.bat

五、批量替换文件名的文字

新建文本文档，内容为

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "delims=" %%a in ('dir /b^|findstr "2018"') do (
set name=%%a
set name=!name:2018=2019!
ren "%%a" "!name!"
)
exit

文件名修改为XXX.bat

六、批量word转pdf

新建文本文档，内容为

On Error Resume Next
Const wdExportFormatPDF = 17
Set oWord = WScript.CreateObject("Word.Application")
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set fds=fso.GetFolder(".")
Set ffs=fds.Files
For Each ff In ffs
    If (LCase(Right(ff.Name,4))=".doc" Or LCase(Right(ff.Name,4))="docx" ) And Left(ff.Name,1)<>"~" Then
        Set oDoc=oWord.Documents.Open(ff.Path)
        odoc.ExportAsFixedFormat Left(ff.Path,InStrRev(ff.Path,"."))&"pdf",wdExportFormatPDF
        If Err.Number Then
        MsgBox Err.Description
        End If
    End If
Next
odoc.Close
oword.Quit
Set oDoc=Nothing
Set oWord =Nothing
MsgBox "Word文件已全部轩换为PDF格式!"

文件名修改为XXX.vbs