word中批量插入图片

《宏命令》

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

Next
End Sub

===============================================================

大量图片的重命名

===============================================================

命令进入图片所在的文件

cd C:\Users\Administrator\Desktop\12

@echo off
echo *******文件批量重命名*******
echo.
echo.
setlocal ENABLEDELAYEDEXPANSION
for /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. &pause
exit

:error
echo. &pause

===============================================================

@echo off
echo *******文件批量重命名*******
echo.
echo.
set /p filename=请输入文件名前缀:
IF "%filename%"=="" set "filename=%%~ni"
set /p suffix=请输入文件类型:
IF "%suffix%"=="" echo.文件类型不能为空 &goto error
IF NOT EXIST *.%suffix% echo.不存在该格式文件 &goto error
setlocal ENABLEDELAYEDEXPANSION
for /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. &pause
exit

:error
echo. &pause