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

 我来答
小明哥职场办公
2022-04-02
知道答主
回答量:0
采纳率:0%
帮助的人:0
展开全部

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

首先,我们打开一个word文本(以2013版为例)

首先,打开所需要的word文件,然后点击“视图”-----“宏”---点选 “查看宏”然后打开宏对话框,自定义一个宏名,然后点创建;当然我们还可以用简单的快捷键alt+f11,进入宏编辑页面。

然后在打的对话框中选择:thisdocment  并在右侧内粘贴如下代码:(一定要复制粘贴,不要敲,如果这里复制后运行出错,代码可以去我动态里找,有朋友说报错,重新复制了就好了)

Sub PicWithCaption()

    Dim xFileDialog As FileDialog

    Dim xPath, xFile As Variant

    Dim index

    index = index + 1

    On Error Resume Next

    Set xFileDialog = Application.FileDialog(msoFileDialogFolderPicker)

    If xFileDialog.Show = -1 Then

        xPath = xFileDialog.SelectedItems.Item(1)

        If xPath <> "" Then

            xFile = Dir(xPath & "\*.*")

            Do While xFile <> ""

                If UCase(Right(xFile, 3)) = "PNG" Or _

                    UCase(Right(xFile, 3)) = "TIF" Or _

                    UCase(Right(xFile, 3)) = "JPG" Or _

                    UCase(Right(xFile, 3)) = "GIF" Or _

                    UCase(Right(xFile, 3)) = "BMP" Then

                    With Selection

                        .InlineShapes.AddPicture xPath & "\" & xFile, False, True

                        .InsertAfter vbCrLf

                        .MoveDown wdLine

                        .Text = "图" & index & "-" & xFile

                        .MoveDown wdLine

                        .MoveDown wdLine

                    index = index + 1

                    End With

                End If

                xFile = Dir()

            Loop

        End If

    End If

End

再点运行,会出现“浏览”对话框,找到存放图片的文件夹,点确定就可以了,回到word视图页面,就会发现,已经都 插入进来了

博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员,对于Word文档生成PPT的操作,我们有以下建议:1. 使用另存为功能:在Word中编辑完文档后,点击文件->另存为,选择PowerPoint演示文稿(*.pptx)格式,即可将文档内容转换为PPT... 点击进入详情页
本回答由博思aippt提供
大事发生的221
2022-04-02 · TA获得超过1622个赞
知道答主
回答量:0
采纳率:81%
帮助的人:0
展开全部
打开word文档,选中图片,然后找到引用,在引用项下找到提出按钮,然后点击新建标签,点击确认,然后返回刚才的题注,操作面板选择编号选在选择格式,点击确认,然后返回提出界面,单击确认就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
休闲娱乐小达人小吴
活跃答主

2022-04-02 · 知识使我们之间的距离缩短
知道大有可为答主
回答量:27.6万
采纳率:0%
帮助的人:3015万
展开全部
可以在插入的图片上面点击右键,然后选择插入图片标注,紧接着输入图片名就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
番茄味鸡腿堡
活跃答主

2022-04-02 · 爱答题,多聊点生活
知道答主
回答量:0
采纳率:90%
帮助的人:0
展开全部
选择引用,找到题注 ,点击新建标签,选择自己适合的标签,然后点击确认就可以了。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式