精华区文章阅读

发信人: hitwdh (一潭死水※痛并快乐着), 信区: office_tools
标  题: 使用WORD域给公式编号 (zz)
发信站: 哈工大紫丁香 (2004年02月19日21:42:44 星期四), 站内信件

http://member.netease.com/~gmounto/word/numberequations.html
使用WORD域给公式编号 [首页][目录]

使用WORD域给公式编号
董占山

Word的域功能十分强大和有用，其中联合使用STYLEREF和SEQ两个域，可以方便地为文档中

的公式进行编号，便于在文档中其他地方引用。下面的指令是一个示例：

{STYLEREF 1 \s} - {SEQ Equation \* ARABIC \s 1}

在文档中插入这样的域后，就会显示1-1的编号，在文档中每个公式的后面都加上一个这样

的域，Word会自动对它们编号管理。你需要引用公式的地方，也只需要插入相应的域引用
就
可以了。插入引用十分方便，只需要打开Word的交叉引用窗口，选中需要的公式即可。

另外有一种更好的办法是创建一个宏命令来完成实现更加高级的功能。下面的一段VBA代码

是我录制的，可以直接复制到你的模板中使用。它创建了一个宏按钮域和一个唯一的对应
书
签，以后你可以使用GOTOBUTTON域来引用。格式是：{GOTOBUTTON bookmark {ref bookma
rk
\* meregeformat}}。

Sub InsertEquationMacroButton()
'
' Macro recorded 5/7/2003 by Zhanshan Dong
'
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="macrobutton MTPlaceRef \* mergeformat "
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="seq MTEqn \h \* mergeformat"
    Selection.MoveRight Unit:=wdCharacter, Count:=2
    Selection.TypeText Text:="[]"
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="STYLEREF \s 1 \* mergeformat"
    Selection.MoveRight Unit:=wdCharacter, Count:=3
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:="-"
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
        PreserveFormatting:=False
    Selection.TypeText Text:="SEQ MTEqn \c \* Arabic \* mergeformat"
    Selection.MoveRight Unit:=wdCharacter, Count:=4
    Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    Selection.Fields.ToggleShowCodes
    Selection.Fields.Update
    mydate = Date
    mytime = Time
    myserial = CStr(Round(CDbl(mydate) * 100000 + CDbl(Time) * 100000))
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Eqn" + myserial
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With
End Sub

<<<该页最后修改日期: 05/09/2003 03:22:39>>>
? 董占山, 1998-2004, 版权所有。
如果转载本站文章请注明出处，谢谢你的理解和支持。
感谢网易提供空间

--
【hitwdh】：欢迎光顾office_tools(文档表格处理)这个小店！
【网  友】：你这疙瘩都经营些啥呀？
【hitwdh】：主要是MS Office， WPS Office等系列软件，及其与之关联的图文处理软件
            的使用，PDF文档的编辑处理等美味佳肴，特别推荐Word、Excel，PDF等精
            华大餐！新引进有趣、实用、美观的套餐TeX and LaTeX，欢迎有意者品尝！
            最后祝愿你在本店得到你所需要的！ :-)

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.237.11]

office_tools 版 (精华区)