材料/工具
word
按顺序命名的图片
电脑
方法1
首先打开word文档,同时按下【alt+F11】键。
打开宏页面,点击【插入】。
点击【模块】打开模块页面。
如图所示,这样就打开了模块页面。
将下面这些复制粘贴进去
Sub 批量插入图片() '2020-9-18 22:28:51 Dim pn As Long, pd As String, pdat As String, i As Long On Error Resume Next pn = CLng(InputBox("输入最大图片数")) pd = InputBox("输入图片存放路径:D:\2") pdat = InputBox(Prompt:="图片的扩展名", Default:=".JPG") For i = 1 To pn Selection.InlineShapes.AddPictur乎e FileName:=pd & "\" & i & pdat, LinkToFile:= _ False, SaveWithDocument:=True Next i MsgBox "完成!"End Sub
引今的微支孙出非端进操粘贴进去后,将这个窗口关闭。
点击上方菜单栏中的【视图】。
点击【宏】。
点击【查看宏】。
选择【批量插入图片】,点击【运行】。
输入你想设置的【最大图片数】,这里用【10】举例,点击【确定】。
输入存放图片的路径,点击【确定】。
输入图片的扩展名,点击【确定】。
提示【完成】。
查看word文档宣省办院毛质,图片就已经按顺序插入了。
需要注意的是,图片需要用顺序提前命名好才能按顺序插入。
方法2
点击上方菜单栏中的【毫知专首钟我矿政插入】。
点击【图片】。
选择想要插入的图片,图片也需要按顺序命名好,点击【插入】。
如图所示,这样就批量按顺序插入图片了。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 951076433@qq.com 举报,一经查实,本站将立刻删除。如若转载,请注明出处:https://www.xiaomafuwu.com/399997.html