把圖片導入word

1. 如何把圖片插入到Word文檔中

插入圖片的具體操作步驟如下：

1、打開word文檔，在需要插入圖片的地方點擊滑鼠，使游標移動到此處。

2. 如何把圖片一次導入word文檔里》

好像只能一張張的導~

3. 怎麼把圖片的內容導入WORD中急用，謝謝了！~~

圖片中的文字么？
如果是的話，可以直接使用微軟在Microsoft
Office
2003中的工具組件中有一個「Microsoft
Office
Document
Imaging」的組件包，它可以直接執行光學字元識別（OCR）
第一步
我們需要安裝「Microsoft
Office
Document
Imaging」的組件，點「開始→程序」，在
「Microsoft
Office
工具」
里點「
Microsoft
Office
Document
Imaging」
即可安裝運行
第二步
打開帶有文字的圖片或電子書籍等，找到你希望提取的頁面，按下鍵盤上的列印屏幕鍵（PrintScreen）進行屏幕取圖。
第三步
打開Microsoft
Office
Word
2003
，將剛才的屏幕截圖粘貼進去；點擊「文件」菜單中的「列印」，在安裝Microsoft
Office
Document
Imaging組件後，系統會自動安裝一個名為「Microsoft
Office
Document
Imaging
Writer」的列印機。如圖2所示，在「列印機」下拉列表框中選擇「Microsoft
Office
Document
Imaging
Writer」列印機，其他選項無須額外設置，點擊「確定」按鈕後，設定好文件輸出的路徑及文件名（預設使用源文件名），然後很快就可以自動生成一個MDI格式的文檔了。
圖2
選擇列印機
打開剛才保存的MDI類型文件（如圖3所示），根據你的需要用滑鼠選擇文字內容（被選中的內容在紅色的框內），然後單擊滑鼠右鍵，在彈出的快捷菜單中選擇「將文本發送到Word」，即可將圖片內容自動轉換為一個新的Word文檔，然後你就可以在Word文檔中隨心所欲地進行編輯了。
圖3
將文本發送到Word
提示：如果你不想將轉換的內容輸入到一個新的Word
文檔中，而是希望粘貼到一個已經打開的Word
文檔，只需在上面的操作中點擊右鍵菜單的「復制」，然後再到指定文檔中執行粘貼即可。
【PS：圖就不上了，麻煩~自己看文字好了
描述的很清楚~~~】

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

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

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

5. 如何將照片放在word文檔中

想要把照片放在word文檔當中，首先可以打開word文檔，然後在左上角上面找到圖片插入方式，然後點擊進去，選取需要放入文檔當中的圖片，再點擊確認，即可達到理想的使用程度和效果。

6. 怎樣才能把圖片文字導入word

打開Microsoft word，選擇文檔進入頁面，點擊頂部的顯示命令圖標。

2.
再次點擊該圖標，選擇開始，插入。

3.
點擊圖片，照片，找到需要導入的照片並單擊。

4.
完成，最後可根據個人需求，拖動照片大小即可。

7. 怎麼一次把多張圖片插入到word

具體操作步驟如下：

一、首先在存儲圖片的文件中調整好圖片的順序，然後選中全部圖片拖入Word。

8. 如何把大量照片快速全部導入到word文檔中

如何將圖片批量導入word中並附加文件名？其實只要活用word的「宏」這一功能就好了，下面為大家詳細講解。
新建一個空白的word文檔。
工具——》宏——》vb編輯器——》打開this document ——》把下面代碼粘入編輯窗口——》保存
打開這個word文檔——》工具——》宏——》執行
下面的不用我說了，最後記得通配符批量替換照片就可以一行顯示多張了。

Sub InsertPic()
Dim myfile As FileDialog
Set myfile = Application.FileDialog(msoFileDialogFilePicker)
With myfile
.InitialFileName = "F:\"
If .Show = -1 Then
For Each fn In .SelectedItems
Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
'按比例調整相片尺寸
WidthNum = mypic.Width
c = 10 '在此處修改相片寬,單位厘米
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
Selection.Text = Basename(fn) '函數取得文件名
Selection.EndKey
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