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按照該文件中各個命令出現的順序來逐個運行它們。

使用批處理文件（也被稱為批處理程序或腳本），可以簡化日常或重復性任務。當然我們的這個版本的主要內容是介紹批處理在入侵中一些實際運用，例如我們後面要提到的用批處理文件來給系統打補丁、批量植入後門程序等。