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会进入无响应状态。图片越多，无响应的时间越长。