word文檔批量導入圖片顯示名稱

1. word中插入圖片怎麼讓它顯示名字啊

1、首先，在Word文檔中依次點擊插入——圖片。

2. 在word中插入大量起好名稱的相片，怎樣自動在相片上部顯示文件名

Word暫時還沒這個功能。有一個比較類似的功能是插入題注，方法如下：

1. 先插入-圖片導入圖片

2. 對准圖片郵件-插入題注-題注名稱改為要顯示的，其他參數可以不變。

3. 怎麼批量把圖片放到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

4. word文檔如何批量插入圖片

您好，方法
1、首先我們打開word文檔，現在文檔中是空白的，沒有文字也沒有圖片。
2、我們在上方點擊【插入】-【圖片】選擇【本地圖片】。
3、我們在圖片文件夾里，把所有的圖片一起選中，點擊【打開】。
4、發現插入進行來的圖片大小一樣，
5、我們拖動圖片邊上的四個點，即可調整圖片大小，
6、因為圖片的高度問題，這里一頁紙上默認顯示兩張圖片。把所有的圖片寬度調整成一樣的大小就完成了。

5. 多個文件夾中有多個圖片，怎樣快速把圖片導入對應文件夾名的WORD中

假如要一次性在word中插入如下多張圖片，應該如何完成呢?

方法1：先打開一個word文檔，利用工具欄，在文檔下面的工具欄中找到「插入圖片」按鈕點擊，在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住 Ctrl 鍵，就可以用滑鼠選擇多張圖片了或者你也可以按 Shift 鍵，然後單擊選擇多個圖片，最後「插入」即可，當然如果想要路徑下全部是需插入的圖片，那麼直接按快捷鍵 Ctrl+A 全選，全部插入即可

方法2：先打開一個word文檔，利用菜單欄，在打開的文檔中，選擇「插入」----->「圖片」----->「來自文件」，在彈出「插入圖片」對話框中選擇存放圖片的位置，此時按住 Ctrl 鍵，就可以用滑鼠選擇多張圖片了即可，實際上在彈出「插入圖片」對話框中做法跟上面方法1一樣。

方法3：利用直接復制，利用滑鼠右鍵想插入的圖片的圖標，打開存放圖片的位置，然後選中插入的全部圖片，跟著按下滑鼠右鍵，選擇「復制」，最後在打開的文檔中，滑鼠再按下右鍵，選擇「粘貼」，即可快速想插入的多個圖片.

方法4：利用菜單欄右鍵調出「圖片」工具欄，然後點擊「插入圖片」，下面做法跟方法1，方法2一樣，大家可以試試。

6. Word插入圖片（來自文件）如何在圖片旁邊顯示該圖片文件名！

只有一個辦法
用ACESEE
選擇需要的圖片
選擇建立網頁庫
出來一個HTM文件
然後點右鍵用WORD編輯
圖片
縮略圖
文件名字都可以設置

7. Word插入圖片（來自文件）如何在圖片旁邊顯示該圖片文件名！

查看word中所插入圖片文件名的具體步驟如下：

1）啟動Word。

2）點擊菜單欄上的插入命令，選擇圖片。

8. word文檔中每一張圖片都帶有名字,怎麼批量帶名稱導出圖片

以WPS2019版本為例：

打開文檔，找到任意一張圖片，單復擊選中該圖片，滑鼠右鍵單擊【提取圖片】，

目前不支持批量修改名稱的功能，您需要修改名稱的，可以導出圖片後，找到該文度件夾中，對每個圖片進行編輯文件名，即可、

9. word如何將插入圖片名自動作為圖片標注

我們有個文件夾，裡面是圖片，每個圖片都 有名稱；如果在word中批量插入圖片,如何讓現有的圖片名稱成為word里的圖片標題呢？

首先，我們打開一個word文本（

10. 關於圖片批量導入word中並在圖片上方附加文件名的VBA代碼編輯

Sub 批量插入圖片()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "E:\工作文件" 『這里輸入你要插入圖片的目標文件夾
If .Show = -1 Then
For Each Fn In .SelectedItems
Selection.Text = Basename(Fn) '這兩句移到這里
Selection.EndKey
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Set MyPic = Selection.InlineShapes.AddPicture(FileName:=Fn, SaveWithDocument:=True) '按比例調整相片尺寸
WidthNum = MyPic.Width
c = 6 '在此處修改相片寬,單位厘米
MyPic.Width = c * 28.35
MyPic.Height = (c * 28.35 / WidthNum) * MyPic.Height
If Selection.Start = ActiveDocument.Content.End - 1 Then '如游標在文末
Selection.TypeParagraph '在文末添加一空段
Else
Selection.MoveDown
End If
Next Fn
Else
End If
End With
Set myfile = Nothing
End Sub
Function Basename(FullPath) '取得文件名
Dim x, y
Dim tmpstring
tmpstring = FullPath
x = Len(FullPath)
For y = x To 1 Step -1
If Mid(FullPath, y, 1) = "\" Or _
Mid(FullPath, y, 1) = ":" Or _
Mid(FullPath, y, 1) = "/" Then
tmpstring = Mid(FullPath, y + 1)
Exit For
End If
Next
Basename = Left(tmpstring, Len(tmpstring) - 4)
End Function
執行此代碼後，彈出的選擇對話框， 全選目標文件夾下的所有圖片文件之後，點擊確定。然後靜靜的等待電腦完成處理工作，次數word會進入無響應狀態。圖片越多，無響應的時間越長。