word批量保存图片并重命名

① word怎么批量导出图片并批量改名

以WPS2019版本为例：

打开文档，找到任意一张图片，单击选中该图片，鼠标右键单击【提取图片】，

目前不支持批量修改名称的功能，您需要修改名称的，可以导出图片后，找到该文件夹中，对每个图片进行编辑文件名，即可、

② 怎么批量把图片放到WORD里并附上该图的名称

Sub 选择重命名文件夹()

Application.ScreenUpdating = False

With Application.FileDialog(msoFileDialogFolderPicker) '运行后出现标准的选择文件夹对话框

If .Show Then myPath = .SelectedItems(1) Else Exit Sub '如选中则返回=-1 / 取消未选则返回=0

End With

If Right(myPath, 1) <> "" Then myPath = myPath & ""

'返回的是选中目标文件夹的绝对路径,但除了本地C 盘、D 盘会以"C:"形式返回外，其余路

径无""需要自己添加

Getfd (myPath)

Application.ScreenUpdating = True

End Sub

Sub Getfd(ByVal pth)

On Error Resume Next

Dim strPath As String

'插入两行

Columns("A:B").Select

Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

'设置B 行内容

Range("B1") = "目标名称"

Range("B2").Select

ActiveCell.FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"".JPG""" '设置B 行内容为目标名称

Range("B2").Select

m = Range("C65536").End(xlUp).Row

Selection.AutoFill Destination:=Range("B2:B" & m) '填充B 行

'设置A 行内容为所选文件下所有图谱名称

Range("A1") = "原名称"

strPath = pth & "\"

f = Dir(strPath & "*.jpg")

k = 1

Do While f <> ""

k = k + 1

Range("A" & k) = f

f = Dir

Loop

'调整AB 列宽

Cells.Select

Cells.EntireColumn.AutoFit '调整AB 列宽

'重命名

a = Cells(Cells.Rows.Count, 1).End(xlUp).Row + 3 'A 列最后可见单元的行号

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name strPath & c As strPath & cc '重命名

Next

MsgBox ("重命名完成")

End Sub

③ 这是一个word文档，共有2000多项，如何批量提取里面的图片并且以对应的“姓名”一栏里的姓名命名

a. 可以方便的按顺序提取“姓名”一列到a.txt
b.将word文档 save as to HTML格式文档，相片将全部会被导出，相片顺序同word中的顺序
c.然后在a.txt的基础上修改成 重命名的批处理文件，即。

④ 如何批量修改文件名称

批量修改文件名的方法：

步骤1，下载上方的软件后安装打开使用。随后点击【添加文件】，批量将需要格式转换的文件添加到软件中，支持从不同文件夹中添加。

⑤ 怎样对同一个文件夹里的图片批量加编命名

编个批处理程序可以做到，具体操作如下：

@echo off

setlocal enabledelayedexpansion

set n=1000

for %%a in (*) do (set /a n+=1ren "%%a" "!n:~-3!%%~nxa">nul)

exit

(5)word批量保存图片并重命名扩展阅读：

批处理文件它包含一条或多条命令。它的文件扩展名为.bat或 .cmd。在命令提示下键入批处理文件的名称，或者双击该批处理文件，系统就会调用Cmd.exe按照该文件中各个命令出现的顺序来逐个运行它们。

使用批处理文件（也被称为批处理程序或脚本），可以简化日常或重复性任务。当然我们的这个版本的主要内容是介绍批处理在入侵中一些实际运用，例如我们后面要提到的用批处理文件来给系统打补丁、批量植入后门程序等。