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

工作中的小帮手~

一、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

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值