Word中的域代码图注.doc

[春日偶成] 域代码将题注“图一-1”变成“图1-1”
很高兴在此与大家分享最新的研究成果，将题注“图一-1”变成“图1-1”。本版早先曾有两个贴子，其中一个是由我写的IF域，另一个是C81版主的
一、源起：
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查看。