返回信息流因为明天就要交了
谢谢
这是一条镜像帖。来源：北邮人论坛 / office-tool / #17049同步于 2009/1/11
该镜像源已超过 30 天没有更新，可能在源站已被删除。
OfficeTool机器人发帖
【求助】图3－2为第三章第二图 这个图的题注请问怎么添加？谢谢
LoveSHE
2009/1/11镜像同步7 回复
订阅后，新回复会通过你的通知中心匿名送达。
7 条回复
参考一下这个？
我没试过。。
春日偶成]域代码将题注“图一-1”变成“图1-1”
守柔 - BY - 2008-5-11 19:13:00
很高兴在此与大家分享最新的研究成果，将题注“图一-1”变成“图1-1”。本版早先曾有两个贴子，其中一个是由我写的IF域，另一个是C81版主的http://club.excelhome.net/dispbbs.asp?BoardID=23&ID=266589&replyID=&skin=0贴子，两个贴子都没有从根本上解决中文简写数字自动转为阿拉伯数字的问题。
一、源起：
1. VBA.IsDate()，在IsDate()函数中，我们可以发现Word似乎可以判断诸如“一九八一年十月一日”这样的日期数据（VBA.IsDate("一九八一年十月一日")=True.
2. 在ASK域中，Word可以根据输入的日期值，转换为日期数据，由此联想到了SET域，结果发现域代码:{ SET myBK "一九一一年一月一日" }{ myBK \@ "D" }值为“1”，当然，其间我测试了N遍，从年到月到日，最终确定使用日的范围更广一些（极限值为31，通常对于Word写作而言，三十一章（标题）基本适用了）。
二、StringNumber
也许大家知道，Excel中隐含有一个函数NumberString，它的功能是将数字转为中文大写数字，当然，也没有直接的逆函数，将中文大写数字转换为小写数字。
很想，将Word中的域代码:{ SET myBK "一九一一年一月{ STYLEREF 1 \s }日" }{ myBK \@ "D" }命名为StringNumber函数。
三、题注
Word默认插入带标题样式的题注，其域代码为图 { STYLEREF 1 \s }—{ SEQ 图 \* ARABIC \s 1 }，很显然，我们只要将其中{ STYLEREF 1 \s }的替换为{ SET myBK "一九一一年一月{ STYLEREF 1 \s }日" }{ myBK \@ "D" }即可在中文大写数字的章标题中实现题注引用的常规数字（阿拉伯数字）。
替换方法：
1. 将域代码{ SET myBK "一九一一年一月{ STYLEREF 1 \s }日" }{ myBK \@ "D" }（即我命名的StringNumber函数）复制到剪贴板中；
2. 在正文中，按下ALT+F9，切换到域代码视图下（域的查找与替换，必须在显示域代码的情况下进行）。
3. 按下CTRL+H组合键，打开查找和替换对话框，在替换选项卡中，设置查找内容为“^d STYLEREF 1 \s”，在替换为中输入“^c”，不区分大小写，注意，“^d”后有一个半角空格，全部替换即可。
四、实现过程
明白了原理之后，操作过程就很简单了，分两种方式，一是手动使用自动图文集法，二是修改Word命令法以自动实现。前者简单容易上手，但需要对引用的内容（如图片等）设置与下段同页的段落格式（如果要求不高的场合可以忽略）。后者需要将宏代码复制到Normal.dot或者活动文档中，两者没有本质的区别。
（一）、手动法
1. 将StringNumber函数分别改写为三种常用形式，即相当于“图”、“表”、“公式”三种题注标签及其相应域代码。
此主题相关图片如下：
注意,"{}"是由Ctrl+F9组合键自动插入的域标志!
域代码:图 { SET myBK "一九一一年一月{ STYLEREF 1 \s }日" }{ myBK \@ "D" }—{ SEQ 图 \* ARABIC \s 1 }
表 { SET myBK "一九一一年一月{ STYLEREF 1 \s }日" }{ myBK \@ "D" }—{ SEQ 表 \* ARABIC \s 1 }
公式 { SET myBK "一九一一年一月{ STYLEREF 1 \s }日" }{ myBK \@ "D" }—{ SEQ 公式 \* ARABIC \s 1 }
2. 分别选中三组域代码及其段落标记，设置其样式为“题注”。
3. 按ALT+F3组合键，保存为三个自动图文集，其词条名分别为“图注”，“表注”和“公式注”。
此主题相关图片如下：
此主题相关图片如下：
此主题相关图片如下：
4. 在需要插入题注的位置，直接录入“图注”等，按F3键插入自动图文集（即题注）即可。
（二）、修改Word命令法：
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2008-4-8 6:26:18
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0384^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub InsertCaption()
'插入引用/题注,修改Word命令.必须创建三个自动图文集,"图注","表注"和"公式注"
'该过程包含了三种题注,当为表格设置题注时,题注位于表格上方
Dim myType As WdSelectionType, CurPara As Paragraph
Dim myRange As Range, myEntry As String
On Error Resume Next
Application.ScreenUpdating = False
With Selection
myType = .Type
Set CurPara = .Paragraphs(1)
Select Case myType
Case wdSelectionInlineShape '嵌入式图片
If .InlineShapes(1).Type = wdInlineShapePicture Then
myEntry = "图注" '设置为图的题注(自动图文集)
Else
myEntry = "公式注"
End If
CurPara.KeepWithNext = True
CurPara.Range.InsertAfter Chr(13)
Set myRange = CurPara.Range
myRange.SetRange myRange.End, myRange.End
NormalTemplate.AutoTextEntries(myEntry).Insert myRange
myRange.Paragraphs(1).Style = "题注"
Case wdSelectionRow
myEntry = "表注"
Set myRange = .Tables(1).Range
With myRange
.SetRange .Start - 1, .Start - 1
.InsertAfter Chr(13)
.SetRange .End, .End
NormalTemplate.AutoTextEntries(myEntry).Insert myRange
.Paragraphs(1).Style = "题注"
.Paragraphs(1).KeepWithNext = True
End With
Case Else
Exit Sub
End Select
End With
Application.ScreenUpdating = True
End Sub
'----------------------
通过修改Word命令法时，选中需要插入题注的对象（图片、表格或者公式），单击插入/引用/题注命令，该程序将自动识别当前对象，直接插入题注。
无论哪种方法插入题注，其本质都是题注，我们可以为其提取图表目录，交叉引用等等，也可以直接修改题注样式。
注意：
1. Word内置题注具有自动更新功能，请不要轻易更改其中的分隔符等，以免Word将文档中的现有题注自动替换。
2. stringNumber函数（域代码）只接受最大标题章节号为31。
3. 本文档中的VBE工程下包含VBA代码，请使用ALT+F11查看。
【 在 LoveSHE (想要糖吃的小男孩&^&) 的大作中提到: 】
: wait
【 在 police 的大作中提到: 】
: 参考一下这个？
: 我没试过。。
: 春日偶成]域代码将题注“图一-1”变成“图1-1”
: ...................
图1-1是可以直接插入的
问题是 我在第二章的第一个图，还是图1-XX 这就不行了
老大，这是怎么个思想感情，那么多东西。。。
【 在 police (我其实想换个名。。。。) 的大作中提到: 】
: 参考一下这个？
: 我没试过。。
: 春日偶成]域代码将题注“图一-1”变成“图1-1”
: ...................
你在插入图片的标题的时候自己建一个新的label就可以了，然后章节里面是可以自动编号的，这个章节要啥格式都可以啊，比如新建一个label叫“图 1-”，然后后面的1、2、3什么的都是自动更新的了。