[求助]以下域代码如何用VBA代码插入?

风之助

这段域代码为守柔版主提供，用来插入题注。因在Word中输入比较麻烦，拟用工具栏对应的VBA代码实现，请高手指教。

域代码如下：

变形域代码为: 表 { quote { if { STYLEREF 1 \s } = "一" 1 { if { STYLEREF 1 \s } = "二" 2 { if { STYLEREF 1 \s } = "三" 3 { if { STYLEREF 1 \s } = "四" 4 { if { STYLEREF 1 \s } = "五" 5 { if { STYLEREF 1 \s } = "六" 6 { if { STYLEREF 1 \s } = "七" 7 { if { STYLEREF 1 \s } = "八" 8 { if { STYLEREF 1 \s } = "九" 9 { if { STYLEREF 1 \s } = "十" 10 { STYLEREF 1 \s } } } } } } } } } } } } { SEQ 表 \* ARABIC \s 1 }

先谢了。

守柔

QUOTE:

以下是引用风之助在2006-12-5 12:34:48的发言：

这段域代码为守柔版主提供，用来插入题注。因在Word中输入比较麻烦，拟用工具栏对应的VBA代码实现，请高手指教。

域代码如下：

变形域代码为: 表 { quote { if { STYLEREF 1 \s } = "一" 1 { if { STYLEREF 1 \s } = "二" 2 { if { STYLEREF 1 \s } = "三" 3 { if { STYLEREF 1 \s } = "四" 4 { if { STYLEREF 1 \s } = "五" 5 { if { STYLEREF 1 \s } = "六" 6 { if { STYLEREF 1 \s } = "七" 7 { if { STYLEREF 1 \s } = "八" 8 { if { STYLEREF 1 \s } = "九" 9 { if { STYLEREF 1 \s } = "十" 10 { STYLEREF 1 \s } } } } } } } } } } } } { SEQ 表 \* ARABIC \s 1 }

先谢了。

不怕楼主笑语，这段嵌套域代码，即便是我亲自处理，全部使用VBA来实现的话，别说是代码，光是调试时间，没有半天下不来，因为它必须全部使用RANGE对象来实现，很繁很繁。

如果你把它存为自动图文集，您愿意不用VBA也好，如果用VBA，您可以录制一下宏就行了。

OK？

风之助

谢谢守柔版主。

如果用自动图文集，该如何实现？不好意思，这个还从没用过。自动图文集能不能在模板(dot）中保存。

谢谢！

守柔

QUOTE:

以下是引用风之助在2006-12-5 20:45:44的发言：

谢谢守柔版主。

如果用自动图文集，该如何实现？不好意思，这个还从没用过。自动图文集能不能在模板(dot）中保存。

谢谢！

希望您能搜索一下本版，好吗？

风之助

谢谢守柔版主!!!

已用自动图文集实现插入上述域！