作者：绿色风
分类：
时间：2022-08-17
浏览：427
楼主
chrisfang |
在Word的题注功能中，有一项“自动插入题注”的功能，可以在插入指定对象时自动激活生成指定的题注。其中插入图片时自动插入题注是比较常用的一种选项设置，如下图所示：
这项功能在Word2003和Word2007版本中均可使用，但在Word2010版本中，插入对象中不再有“Microsoft Word 图片”这个选项可选。如果要在2010版本中使用插入图片时的自动题注生成功能，可以借助VBA，使用以下代码：
- Sub InsertPicCaption()
- Dim myDialog As Word.Dialog
- Dim myRange As Word.Range
- On Error Resume Next
- Set myDialog = Word.Dialogs(wdDialogInsertPicture)
- With myDialog
- If .Show = -1 Then
- Set myRange = Selection.Paragraphs.First.Range
- If Right(myRange.Text, 2) = Chr(1) & Chr(13) Then
- Selection.TypeParagraph
- Selection.InsertCaption Label:="图", Position:=wdCaptionPositionBelow, ExcludeLabel:=0 '此代码中指定的题注标签名称为【图】
- End If
- End If
- End With
- End Sub
以上代码同样适用于2003和2007版本之中，但要注意取消“自动添加题注”中的设置，以免重复生成题注。 |
2楼
wnianzhong |
好,方便的方法! |
3楼
tangqingfu |
谢谢版主的分享…… |
4楼
jswaq |
谢谢分享,正是我需要的 |
5楼
忘忧草2020 |
谢谢楼主分享，不过我是想在用QQ截图后将截图粘贴到word中时就自动插入题注，不知这样可不可以？ |
6楼
geek1978 |
太厉害了 |
7楼
tangqingfu |
谢谢分享! |
8楼
于飞鸣 |
谢谢分享，我被这个问题，困扰很久了。
不过我对VBA变成不是很了解，在录制宏里输入你的代码，只能运行宏。可是无法再题注的自动插入里，找到那个word 图片的选项啊，楼主能否详细介绍下操作步骤（最好图文分步的那种），谢谢 。 |
9楼
wise |
谢谢分享 |
10楼
海洋之星 |
实用，学习了 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一