《Word中的域代码图注.doc》由会员分享，可在线阅读，更多相关《Word中的域代码图注.doc（4页珍藏版）》请在金锄头文库上搜索。
1、春日偶成 域代码将题注“图一-1”变成“图1-1”很高兴在此与大家分享最新的研究成果，将题注“图一-1”变成“图1-1”。本版早先曾有两个贴子，其中一个是由我写的IF域，另一个是C81版主的http:/ VBA.IsDate()，在IsDate()函数中，我们可以发现Word似乎可以判断诸如“一九八一年十月一日”这样的日期数据（VBA.IsDate(一九八一年十月一日)=True.2. 在ASK域中，Word可以根据输入的日期值，转换为日期数据，由此联想到了SET域，结果发现域代码: SET myBK 一九一一年一月一日 myBK D 值为“1”，当然，其间我测试了N遍，从年到月到日，最终确定
2、使用日的范围更广一些（极限值为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 的替换为
3、 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”后有一个半角空格，全部替换
4、即可。当四、实现过程明白了原理之后，操作过程就很简单了，分两种方式，一是手动使用自动图文集法，二是修改Word命令法以自动实现。前者简单容易上手，但需要对引用的内容（如图片等）设置与下段同页的段落格式（如果要求不高的场合可以忽略）。后者需要将宏代码复制到Normal.dot或者活动文档中，两者没有本质的区别。（一）、手动法1. 将StringNumber函数分别改写为三种常用形式，即相当于“图”、“表”、“公式”三种题注标签及其相应域代码。注意,是由Ctrl+F9组合键自动插入的域标志! 域代码:图 SET myBK 一九一一年一月 STYLEREF 1 s 日 myBK D SEQ 图 *
5、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 SHOUROUExcelHome
6、2008-4-8 6:26:18仅测试于System: Windows NT Word: 11.0 Language: 2052 0384The Code CopyIn ThisDocument-ThisDocument* Option ExplicitSub InsertCaption()插入引用/题注,修改Word命令.必须创建三个自动图文集,图注,表注和公式注该过程包含了三种题注,当为表格设置题注时,题注位于表格上方 Dim myType As WdSelectionType, CurPara As Paragraph Dim myRange As Range, myEntry As S
7、tring 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.KeepWithNex
8、t = 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,
9、.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 = TrueEnd Sub-通过修改Word命令法时，选中需要插入题注的对象（图片、表格或者公式），单击插入/引用/题注命令，该程序将自动识别当前对象，直接插入题注。无论哪种方法插入题注，其本质都是题注，我们可以为其提取图表目录，交叉引用等等，也可以直接修改题注样式。注意：1. Word内置题注具有自动更新功能，请不要轻易更改其中的分隔符等，以免Word将文档中的现有题注自动替换。2. stringNumber函数（域代码）只接受最大标题章节号为31。3. 本文档中的VBE工程下包含VBA代码，请使用ALT+F11查看。
