《宏命令》
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
===============================================================
大量图片的重命名
===============================================================
建立.bat文件
命令进入图片所在的文件
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