A. 我有多個文件夾中的圖片插入分別插入,多個Word中。
復制圖片-打開畫圖工具(開始-程序-附件-畫圖)-編輯,選擇粘貼-文件-另存為-
這樣就行了,你想要的圖片就已經導出到文件夾了。我剛也就是這么做的。祝你好運。
B. worD文檔中是一個圖片,雙擊此圖片可以打開另外一個WORD文件,請問是怎麼設置的
這種情況是使用的插入-對象的方法,具體操作流程如下:
所需材料:Word(兩個文檔)。
一、打開Word文檔,進入「插入」選項。
C. 將多套圖片批量分別插入對應的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
D. 怎麼一次把多張圖片插入到word
具體操作步驟如下:
一、首先在存儲圖片的文件中調整好圖片的順序,然後選中全部圖片拖入Word。
E. 怎麼批量把圖片放到word裡面去。
WPS批量導入圖片的方法如下:
1、打開一個需要枝核批量導入圖片的wps文檔,並在界面左上角點擊「插入」按鈕。
F. 多個word按名稱插入圖片,將不同圖片分別插入對應相同名稱的word中
可以在WORD中批量插入圖片即可。
G. word文檔怎麼批量導入多個文檔不同的照片
插入-》圖片-》來自文件-》不要選中任意文件,ctrl+A
當然之前可能需要對文件名作一定的修改,構成特定的排序。