如何引用word中自动编号？

wangyl86

有幸拜读了《[原创.春日偶成]域代码将题注“图一-1”变成“图1-1”》（详见下面）的巧妙方法，试了试确实感觉很好，不过，利用此种方法对于图、表及公式中的编号如何在文中自动引用那？




很高兴在此与大家分享最新的研究成果，将题注“图一-1”变成“图1-1”。本版早先曾有两个贴子，其中一个是由我写的IF域，另一个是C81版主的http://club.excelhome.net/viewth ... 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”后有一个半角空格，全部替换即可。

c81

和普通的“插入→引用→交叉引用”一样的引用。

wangyl86

不行啊，我用的是守柔大师提到的手动方法（详细内容见下），依次点插入→引用→交叉引用找不到可引用的编号？

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键插入自动图文集（即题注）即可。

c81

原帖由 wangyl86 于 2009-4-9 16:50 发表
不行啊，我用的是守柔大师提到的手动方法（详细内容见下），依次点插入→引用→交叉引用找不到可引用的编号？

1.        将StringNumber函数分别改写为三种常用形式，即相当于“图”、“表”、“公式”三种题注标签及其相 ...

我这儿交叉引用好得很嘛~

wangyl86

原帖由 c81 于 2009-4-9 18:55 发表

我这儿交叉引用好得很嘛~

谢谢版主，不过我的还是不行！打开交叉引用，看不到我定义的“图 - ”有劳版主看一下：

[ 本帖最后由 wangyl86 于 2009-4-10 09:04 编辑 ]

c81

请参考一下

wangyl86

是不是我实现过程有出入？我采用的手动实现过程，具体如下：
第一步，表示出域代码

第二步，依次点击“格式--样式和格式--新样式”定义样式”题注a“

第三步  点“Alt+F3"组合键，建自动图文集”图注“

第四步 依次点”插入--自动图文集--题注a--图注“直接录用


整个实现过程有哪一步我是不是没做到位？请版主及各位朋友指点，谢谢

[ 本帖最后由 wangyl86 于 2009-4-10 10:37 编辑 ]

wangyl86

原帖由 c81 于 2009-4-10 09:19 发表
请参考一下

感谢版主，我的手动实现过程也能够实现”守如版主原创中“的图注效果，就是不能交叉引用？真怪！将宏代码复制到Normal.dot或者活动文档中的方法是如何实现的那？把代码复制到一个打开空文档中保存到Normal.dot所在的目录却不能以相同的文件名覆盖之？还有活动文档指的什么呀？如何实现复制到活动文档中哦？

wangyl86

哦，豁然间居然可以了！原来必须在题注中新建”图  “标签，谢谢版主的帮助！