[原创.春日偶成]域代码将题注“图一-1”变成“图1-1”

wangyl86

对于域我是一抹黑，请教一个问题，守柔版主测试了”从年到月到日，最终确定使用日的范围更广一些“，不知，域代码转化出的年是几位数？如果能转化出四位数，可以突破31的限制了吗？

cau228charm

嗯 开始看上去是对的，但是如果我又添加了一个新的，好像之前替换的就不好使了

Mirofan

这必须顶一个啊，感觉比之前的方法更好写，不过Word 2010貌似只能更改月来实现数字变化，日只会1, 20, 30起作用

Ericall

好贴，word的魅力也很大哦

xmyjk

这个办法非常好，解决了一个困扰很久的问题，谢谢版主。

wolftender

借楼上几位高手的思路,做了一个宏,把下面的宏加到代码里,点功能区的insert caption按钮,就直接生成 图1-1这种形式的了.注意宏名字不能修改.

Word 2007英文版下测试通过,其他环境没测试.


Sub InsertCaption()
Dim ZH1 As String, ZH2 As String
Dim TH As String

Selection.TypeText "图"

ZH1 = "QUOTE ""一九一一年一月日"" \@ ""D"""
Selection.Fields.Add Range:=Selection.Range, PreserveFormatting:=False, Text:=ZH1
Selection.EndKey

ActiveWindow.View.ShowFieldCodes = True
Selection.MoveLeft , 11

ZH2 = "STYLEREF 1 \s"
Selection.Fields.Add Range:=Selection.Range, PreserveFormatting:=False, Text:=ZH2
Selection.EndKey
        
Selection.TypeText "-"

TH = "SEQ 图 \* ARABIC \s 1"
Selection.Fields.Add Range:=Selection.Range, PreserveFormatting:=False, Text:=TH

ActiveWindow.View.ShowFieldCodes = False
Selection.WholeStory
Selection.Fields.Update

Selection.EndKey

End Sub

中点淡蓝色

谢谢{:soso_e100:}{:soso_e100:}

xixi2011

太伟大了，学习ING

专快

好贴！收藏！

paulke

正用得着 先收藏 在学习