《宏命令》
Sub 批量插入图片()'' 在表格中批量插入指定的图片' 图片指定位置为C:\Users\Administrator\Desktop\12\' 插入数量待定' 图片名称 eg 1.jpg，2.jpg
'定义两个变量 Dim n,m
m=100
'循环 重复插入图片 变量m的值表示需要插入的图片总量 For n = 1 To m Step 1 '执行的循环体，可以根据word的宏录制功能得到以下代码 Selection.InlineShapes.AddPicture FileName:= _
'拼接字符串 加入变量n "C:\Users\Administrator\Desktop\12\" & n & ".jpg", LinkToFile:=False, _ SaveWithDocument:=True Selection.TypeText Text:=" " Selection.MoveRight Unit:=wdCell
NextEnd Sub
===============================================================
大量图片的重命名
===============================================================
建立.bat文件
命令进入图片所在的文件
cd C:\Users\Administrator\Desktop\12
@echo off echo *******文件批量重命名******* echo.echo.setlocal ENABLEDELAYEDEXPANSIONfor /r %%i in (.) do ( set n=0 for /f "delims=" %%a in (' dir /b "%%i\*.jpg" 2^>nul ') do ( set /a n+=1 ren "%%i\%%a" !n!%%~xa ))echo. &pauseexit:errorecho. &pause
===============================================================
@echo off echo *******文件批量重命名******* echo.echo.set /p filename=请输入文件名前缀:IF "%filename%"=="" set "filename=%%~ni"set /p suffix=请输入文件类型:IF "%suffix%"=="" echo.文件类型不能为空 &goto errorIF NOT EXIST *.%suffix% echo.不存在该格式文件 &goto errorsetlocal ENABLEDELAYEDEXPANSIONfor /r %%i in (.) do ( set n=1000 for /f "delims=" %%a in (' dir /b "%%i\*.%suffix%" 2^>nul ') do ( set /a n+=1 ren "%%i\%%a" "%filename%"!n:~1!%%~xa ))echo. &pauseexit:errorecho. &pause
转载于:https://www.cnblogs.com/mycnblogs1/p/10412132.html
相关资源：word批量插图片及编目录