新浪博客

Word2013中设置题注（即图表编号）

2017-01-13 17:45阅读：

http://blog.sina.cn/dpool/blog/u/1480604722

多级列表形式
一级标题：第1章
二级标题：1.1
三级标题：1.1.1
此时，采用“引用>插入题注”，新建标签“图”，则可自动生成“图1.1”格式的图名，符合习惯要求。
但中文排版时，一般设置一级标题为“第一章”，此时按上述方法生成的图名为“图一.1”，不符合习惯要求。
根据网上查找各种教学帖，推荐一个相对好用的方法，原理是查找替换办法，步骤如下：
（1）选中全部文本，按下Alt+F9，这样就可以查看域代码；
（2）在word文档末尾，用Ctrl+F9产生一个花括号，{}，在花括号里输入set mybk “一九一一年一月{STYLEREF 1\s}
日”}{mybk \@”d”，（注意：所有的花括号都是由Alt+F9产生的），最后的效果如下截图： Word2013中设置题注（即图表编号）
（3）用鼠标选中包括花括号的这段代码，复制（即按下Ctrl+C），这一步非常重要；
（4）Ctrl+H弹出“查找和替换”的对话框，在 “查找内容”框中输入“^d styleref 1\s”（引号内的代码），在“替换为”框中输入“^c”代码，按“全部替换”，需要注意“^d”后有一个半角空格，C不区分大小写。
以上四个步骤就可以把“图一.1”变成“图1.1”。
现在解释一下操作原理：
一、源起：
1.VBA.IsData()，在IsData()函数中，可以发现word似乎可以判断诸如“一九九一年十月一日”这样的日期数据（VBA.IsData(“一九八一年十月一日”)=True）。
2.在ASK域中，word可以根据输入的日期值，转换为日期数据，由此联想到SET域，结果发现域代码：{SET myBK”一九一一年一月一日”}{myBK \@”D”}值为“1”，通过测试，从年到月到日，最终确定使用日的范围更广一些（极限值为31，通常对于word写作而言，三十一章基本够用了）。
二、StringNumber
Excel中隐含有一个函数NumberString，它的功能是将数字转为中文大写数字，当然，也没有直接的逆函数，将中文大写数字转换为小写数字。
三、题注
Word默认插入带标题样式的题注，其域代码为图{STYLERER 1\s}. {SEQ 图 \* ARABIC \s 1 }，很显然，只需要将其中的{ STYLERER 1\s }替换为{SET myBK ”一九一一年一月{STYLEREF 1\S}日”}{myBK \@”D”}即可在中文大写数字的章标题中实现题注引用的常规数字（阿拉伯数字）。

我的更多文章

下载客户端阅读体验更佳

APP专享