Word中的域代码图注.doc

春日偶成 域代码将题注“图一-1”变成“图1-1”很高兴在此与大家分享最新的研究成果，将题注“图一-1”变成“图1-1”。本版早先曾有两个贴子，其中一个是由我写的IF域，另一个是C81版主的/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 SHOUROUExcelHome 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 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 = TrueEnd Sub-通过修改Word命令法时，选中需要插入题注的对象（图片、表格或者公式），单击插入/引用/题注命令，该程序将自动识别当前对象，直接插入题注。无论哪种方法插入题注，其本质都是题注，我们可以为其提取图表目