word批量導入文件夾名和圖片

㈠ 如何將大量照片按照順序一次性導入WORD文檔中

將大量照片按照順序一次性導入word文檔中的方法如下（以windows10系統的word2016版為例，需要准備大量照片）：

1、將宣傳冊的照片放入一個文件夾中，並將第一張圖片命名為1.jpg，第二頁命名為2.jpg，依次類推。

㈡ 怎麼批量把圖片放到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批量導入圖片和圖片名，並生成多列表格，怎麼操作

一、批量導入圖片：創建表格1、點擊插入——表格——選擇兩列一行即可

2、全選表格後右鍵設置屬性——點擊選項——取消自動重調尺寸以適應內容——點擊確定3、將滑鼠放在第一個單元格內——點擊插入——圖片——按住ctrl+a全選圖片——插入4、看一下效果，圖片是不是都在一列了，而且大小也相同了，選擇右側空白列——右鍵刪除列5、最重要的一步就是選中表格所有內容，按CTLR+H調出查找替換窗口在查找內容中輸入(?)

替換內容中輸入1^p

選中搜索選項中的使用通配符全部替換

2、將滑鼠放在新建的題注"圖1"後按 alt+f9 鍵顯示域代碼—— 按CTRL+H調出查找替換窗口

查找內容為：^g

替換內容為：^&^p^c

選擇全部替換完成後刪除一個多餘的域代碼

注意：前面已經做過查找替換的操作，別忘記通配符要去掉勾選！

3、按Ctrl+A全選整篇文檔後按Alt+F9更新域代碼，圖片下的編號已全部添加完成（全部顯示為圖1），再按一次F9刷新後所有編號自動更新

4、選中所有內容後設置居中排列——點擊文件——選項——顯示——段落標記——點擊確定即可

㈣ 關於圖片批量導入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會進入無響應狀態。圖片越多，無響應的時間越長。

㈤ 教你在Word 中批量快速插入圖片的技巧

教你在Word 2007中批量快速插入圖片的技巧

我們知道，對於某些特定的字元，可以通過「自動更正」的方法實現快速替換，其實圖片也是可以自動更正的，這在需要經常調用某些圖片時相當實用，這樣就不需要每次逐個手工插入了。這里以Word 2007為例進行說明，讓你在輸入「1」、「2」這些數字時，能夠自動替換為相關的.圖片（例如頻繁出現的公司LOGO圖片等）。

首先將相關的圖片插入到Word文檔的窗口中，然後按下「Ctrl+C」組合鍵將它們復制到剪貼板中備用。這一步至關重要，否則下面的操作將無法正常完成。

接著單擊Office按鈕打開「Word選項」對話框，然後切換到「校對」選項卡，在這里你會發現一個「自動更正選項」的按鈕，單擊後即可打開如圖所示的對話框，在「替換」後面的文本框中輸入圖片名稱「1」。此時我們會發現原來右下角的「添加」按鈕已經可以正常使用，接下來直接單擊「添加」按鈕，添加圖片就可以了。

需要提醒的是，如果前面的步驟沒有進行的話，那麼即使在「替換」下面的文本框中輸入了相關的字元，也會看到「添加」按鈕仍然呈現不可用的灰色狀態。

按照類似的步驟，你可以繼續添加常用的圖片到其他自動更正的項目，以後插入相關圖片時就方便多了（雖然「替換為」文本框中沒有任何反應，而且確認後「替換為」一列也只是顯示為「*」號，但這只是顯示的問題）。

以後，當我們在Word文檔中輸入1、2……這樣的數字時，按下回車鍵後，相關的圖片就會自動出現在Word文檔中，大大提高了工作效率。 ;

㈥ 怎麼批量把圖片放到word裡面去。

WPS批量導入圖片的方法如下：

1、打開一個需要枝核批量導入圖片的wps文檔，並在界面左上角點擊「插入」按鈕。

㈦ 怎麼把一個文件夾里的所有照片導入到Word2003中

1、首先右鍵桌面，點擊【 新建 】-【 word文檔 】。
2、然後右鍵，點擊【 重命名 】，輸入自己要命名的字。
3、在word中輸入自己要寫的文字。
4、點擊【 插入 】-【 圖片 】-【 來自文件 】。
5、然後找到自己需要插入的圖片，全選，然後點【 插入 】。
6、最後，圖片就插入到了word文檔里了。

㈧ 快速把多個文件夾的圖片放進一個word

問題：一堆文件夾，每個文件夾有三到十一張圖片，怎麼快速把每個文件夾的圖片放進一個word？

初學python的我思考了一下，嘗試通過python實現自動化處理。大致思路是分兩步走：

1、將每個文件夾圖片整合到指定文件夾中

2、讀取指定文件夾圖片，再存入word 中；

貌似有點繁瑣了。還是想先記錄下探索的過程，與大家共同探討。