导航:首页 > 文字图片 > word文档批量导入图片显示名称

word文档批量导入图片显示名称

发布时间:2022-12-12 12:07:51

1. word中插入图片怎么让它显示名字啊

1、首先,在Word文档中依次点击插入——图片。

2. 在word中插入大量起好名称的相片,怎样自动在相片上部显示文件名

Word暂时还没这个功能。有一个比较类似的功能是插入题注,方法如下:

  1. 先插入-图片导入图片

  2. 对准图片邮件-插入题注-题注名称改为要显示的,其他参数可以不变。

3. 怎么批量把图片放到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

4. word文档如何批量插入图片

您好,方法
1、首先我们打开word文档,现在文档中是空白的,没有文字也没有图片。
2、我们在上方点击【插入】-【图片】选择【本地图片】。
3、我们在图片文件夹里,把所有的图片一起选中,点击【打开】。
4、发现插入进行来的图片大小一样,
5、我们拖动图片边上的四个点,即可调整图片大小,
6、因为图片的高度问题,这里一页纸上默认显示两张图片。把所有的图片宽度调整成一样的大小就完成了。

5. 多个文件夹中有多个图片,怎样快速把图片导入对应文件夹名的WORD中

假如要一次性在word中插入如下多张图片,应该如何完成呢?

方法1:先打开一个word文档,利用工具栏,在文档下面的工具栏中找到“插入图片”按钮点击,在弹出“插入图片”对话框中选择存放图片的位置,此时按住 Ctrl 键,就可以用鼠标选择多张图片了或者你也可以按 Shift 键,然后单击选择多个图片,最后“插入”即可,当然如果想要路径下全部是需插入的图片,那么直接按快捷键 Ctrl+A 全选,全部插入即可

方法2:先打开一个word文档,利用菜单栏,在打开的文档中,选择“插入”----->“图片”----->“来自文件”,在弹出“插入图片”对话框中选择存放图片的位置,此时按住 Ctrl 键,就可以用鼠标选择多张图片了即可,实际上在弹出“插入图片”对话框中做法跟上面方法1一样。

方法3:利用直接复制,利用鼠标右键想插入的图片的图标,打开存放图片的位置,然后选中插入的全部图片,跟着按下鼠标右键,选择“复制”,最后在打开的文档中,鼠标再按下右键,选择“粘贴”,即可快速想插入的多个图片.

方法4:利用菜单栏右键调出“图片”工具栏,然后点击“插入图片”,下面做法跟方法1,方法2一样,大家可以试试。

6. Word插入图片(来自文件)如何在图片旁边显示该图片文件名!

只有一个办法
用ACESEE
选择需要的图片
选择建立网页库
出来一个HTM文件
然后点右键用WORD编辑
图片
缩略图
文件名字都可以设置

7. Word插入图片(来自文件)如何在图片旁边显示该图片文件名!

查看word中所插入图片文件名的具体步骤如下:

1)启动Word。

2)点击菜单栏上的插入命令,选择图片。

8. word文档中每一张图片都带有名字,怎么批量带名称导出图片

以WPS2019版本为例:

打开文档,找到任意一张图片,单复击选中该图片,鼠标右键单击【提取图片】,


目前不支持批量修改名称的功能,您需要修改名称的,可以导出图片后,找到该文度件夹中,对每个图片进行编辑文件名,即可、

9. word如何将插入图片名自动作为图片标注

我们有个文件夹,里面是图片,每个图片都 有名称;如果在word中批量插入图片,如何让现有的图片名称成为word里的图片标题呢?

首先,我们打开一个word文本(

10. 关于图片批量导入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文档批量导入图片显示名称相关的资料

热点内容
泥人图片女孩正面照片 浏览:737
美女穿黑丝袜图片 浏览:819
怎么在qq空间添加图片 浏览:877
军的图片文字 浏览:316
tough女孩图片 浏览:195
可爱的手图片 浏览:414
追求女孩的图片 浏览:530
如何将图片p成正方形 浏览:128
简单的狐狸简笔画图片大全图片大全 浏览:988
风景男衣服图片大全 浏览:666
幼儿园可爱班牌图片 浏览:816
简笔可爱画图片大全带颜色 浏览:48
牛生肖邮票图片大全简单 浏览:21
搜的图片如何完整保存到相册里 浏览:561
葡萄种类图片大全大图 浏览:70
淋雨背影图片男生 浏览:413
可爱女孩漫画素描图片 浏览:292
excel怎么把图片另存为pdf 浏览:395
白衣服装饰图片 浏览:478
14岁高冷男生图片真人高清 浏览:194