wordvba插入圖片並命名

『壹』 怎麼設置word里的圖片自動命名，如果有很多張圖片已經命好名，在其中一個地方插入一張圖片

word2007舉例。
1、選中圖片，選擇「引用」--->「插入題注」，確定，即可在圖片下顯示「題注」。
此題注包括「標簽」、「編號」和文字描述，標簽可以自己定義，編號自動排序，文字描述可以手工輸入。
2、對應插入的每張圖片需要執行上述操作建立「題注」。
3、然後再增加圖片的時候，後續圖片的「編號」就會自動改變。
4、如果刪除其中的圖片，後續圖片的「編號」不會自動改變，需要選擇所有「題注」，右鍵「更新域」更新編號。

『貳』 怎樣在WORD裡面加入圖片並給圖片加上標題

材料/工具：word2010

1、建立Word文檔，插入圖片或表格。

『叄』 在word中自動插入圖片 vba，這是一段代碼

你的第1段代碼可以插入圖片啊，有什麼問題？
第2段的話，把倒數第2行的with移到上一行end 的後面。
倒數第6行的 ,,Flase 改成,Flash,(逗號移到flash後面)
VBA不是很熟，希望能幫到你。

『肆』 word中插入圖片怎麼讓它顯示名字啊

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

『伍』 怎麼批量把圖片放到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中想用vba實現依次新建文檔並插入指定文件夾中的圖片並命名保存在指定文件夾

以word2007為例，方法如下：

1、點擊圖片，另存為「篩選過的網頁」。

『柒』 WORD怎樣製作宏插入圖片，圖片上面需要帶圖片名字，謝謝。越詳細越好。

給你一條思路吧。
1、打開word文件，用錄制宏錄一段插入圖片的代碼（這里注意代碼的路徑和圖片名）；再錄一段保存文件到A目錄的代碼。備用；
2、新建一個excel文件，將你文件夾里需要建文件的人名全部列到excel的某一列中；
3、參照1的代碼在excel里寫vba代碼，循環執行這些人名，每個人名都有新建、插入圖片、保存這個過程。

『捌』 怎麼編VBA把圖片放到WORD里並附上該圖的名稱（50分）

要從兩個方面考慮：
1、如何把現有文檔中的圖片導出？這個代碼片斷可以參考一下：
Set ImageStream = CreateObject("ADODB.Stream")
With ImageStream
.Type = 1
.Open
.Write ActiveDocument.InlineShapes(1).Range.EnhMetaFileBits
.SaveToFile "d:\Temp\Output.bmp"
.Close
End With
Set ImageStream = Nothing

2、如何把已經到處的圖片導入到新文檔中？這個函數調用可以參考一下：
ActiveDocument.InlineShapes.AddPicture

如果還是不明白的話，請補充提問。

_____
補充：
請問樓主你運行那個代碼片斷得到的*完整*錯誤信息是什麼？報錯的時候，系統一般會把游標移動到出錯的那行代碼上，你看到的是哪一行代碼出錯呢？
我看你貼上來的代碼應該是沒有什麼語法上的錯誤，「Exit For」的確是不應該要的，但那也不是語法錯誤啊。

『玖』 word的宏，插入圖片並選擇怎麼寫

1、打開word，菜單——工具——宏——錄制新宏，輸入宏的名字，確定。
2、然後在word里操作，如果滑鼠移動不了游標就用鍵盤移動，它可以錄制鍵盤的操作信息。錄制完了就再 菜單——工具——宏——停止錄制。
3、查看宏：菜單——工具——宏——宏——選擇已經錄制好了的宏，然後點擊編輯
4、運行宏：菜單——工具——宏——宏——運行
測試過了,只能插如圖片,然後是不能自動選擇了.宏如下:
Sub addimg()
Selection.InlineShapes.AddPicture FileName:="D:\XX.jpg", LinkToFile:= _
False, SaveWithDocument:=True
End Sub

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