1.打开Word中“查看宏”

在word的搜索栏中直接搜索“查看宏”

2.新建宏

新建一个宏并将下面代码复制粘贴

相关参数已标注，可以根据需要自行修改

Sub InsertPic()Dim myfile As FileDialogSet myfile = Application.FileDialog(msoFileDialogFilePicker)With myfile.InitialFileName = "F:"If .Show = -1 ThenFor Each fn In .SelectedItemsSet mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)'按比例调整相片尺寸WidthNum = mypic.Widthc = 10         '在此处修改相片宽,单位厘米mypic.Width = c * 28.35mypic.Height = (c * 28.35 / WidthNum) * mypic.HeightIf Selection.Start = ActiveDocument.Content.End - 1 Then  '如光标在文末Selection.TypeParagraph    '在文末添加一空段ElseSelection.MoveDownEnd IfSelection.Text = Basename(fn)    '函数取得文件名Selection.EndKeyIf Selection.Start = ActiveDocument.Content.End - 1 Then  '如光标在文末Selection.TypeParagraph    '在文末添加一空段ElseSelection.MoveDownEnd IfNext fnElseEnd IfEnd WithSet myfile = Nothing
End Sub
Function Basename(FullPath)    '取得文件名Dim x, yDim tmpstringtmpstring = FullPathx = Len(FullPath)For y = x To 1 Step -1If Mid(FullPath, y, 1) = "" Or _Mid(FullPath, y, 1) = ":" Or _Mid(FullPath, y, 1) = "/" Thentmpstring = Mid(FullPath, y + 1)Exit ForEnd IfNextBasename = Left(tmpstring, Len(tmpstring) - 4)
End Function

3.运行宏

运行宏并选择图片所在位置

最后通过替换功能删除文件目录

Word中添加图片时自动添加图片名相关推荐

Spire.Doc在Word中插入图片时，自适应宽度设置
需求:往Word中插入图片,需要铺满可编辑区域的宽度,此时需要根据文档的宽度自适应图片的大小了,核心代码如下: Paragraph paragraph = doc.createParagraph(); ...
毕设时，在word中插入图片时，图片的格式改成嵌入式后图片藏于文字下方怎么办？
在写毕业论文时,插入的图片可以正常显示,但是当更改了论文的格式,将段落间距改为固定值20磅时,图片就出现问题,遇到这种问题的怎么办? 原理:word中图片的格式和文字段落的格式有密切的联系在使用wo ...
Word中的图片保存为无损图，转换为高质量pdf（无压缩）
首先确保图片经过压缩后,在Word中如何保证图片导入后分辨率不降低教程:https://jingyan.baidu.com/article/fdffd1f8ef5effb3e98ca180.html ...
为什么在WORD中插入图片时，只显示图片最下面一小部分
原因:可能是设置为固定值的文档行距小于图形的高度,从而导致插入的图形只显示出了一部分. 所以要调整图片的段落格式中的行间距. 方法: 1.点击图片后: 2.选择Word菜单,"格式&q ...
如何让图片在html中自动填充颜色,如何使用传图水印功能在图片上传时自动添加文字或图片水印？...
下面我们来了解一下小蚂蚁编辑器的功能"传图水印"!开启传图水印功能后,所有上传的图片会自动添加文字或图片水印,并且支持自定义设置水印的展现形式. 一.开启传图水印 ① 鼠标移动到首 ...
计算机word如何插入新列表,电脑word文档中怎么给表格自动添加序号？怎么增加表目录...
电脑word文档中怎么给表格自动添加序号?怎么增加表目录腾讯视频/爱奇艺/优酷/外卖充值4折起我们看一篇word文件的时候,如果篇幅比较长而表格又比较多的话,一般会给这篇word设置一个表目录. ...
java替换图片中文字_Java 添加、替换、删除Word中的图片
文档中,可以通过图文混排的方式来增加内容的可读性,相比纯文本文档,在内容展现方式上也更具美观性.在给文档添加图片时,可设置图片的文本环绕方式.旋转角度.图片高度/宽度等:另外,也可对文档中已有的图片实 ...
向mysql表中插入/更新数据时自动添加创建时间/更新时间
目录处理方式一:修改数据库字段类型测试插入数据: 测试更新数据: 处理方式二:配置生成策略 [MySQL版本] 8.x 处理方式一:修改数据库字段类型自动添加创建时间: 将字段类型设置为TIME ...
CLin 和 IDEA创建文件时自动添加作者和时间信息 + 多个.cpp文件在CLion下运行问题...
CLin 和 IDEA创建文件时自动添加作者和时间信息 file -> setting -> Editor -> File and Code Templates -> 点击In ...

Word中添加图片时自动添加图片名

Word中添加图片时自动添加图片名

1.打开Word中“查看宏”

2.新建宏

3.运行宏

Word中添加图片时自动添加图片名相关推荐

最新文章

热门文章