Programming and Application(编程与应用)

Content(目录)

Linux

MySQL
Office

使用WORD域给公式编号

董占山

Word的域功能十分强大和有用，其中联合使用STYLEREF和SEQ两个域，可以方便地为文档中的公式进行编号，便于在文档中其他地方引用。下面的指令是一个示例：

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

在文档中插入这样的域后，就会显示1-1的编号，在文档中每个公式的后面都加上一个这样的域，Word会自动对它们编号管理。你需要引用公式的地方，也只需要插入相应的域引用就可以了。插入引用十分方便，只需要打开Word的交叉引用窗口，选中需要的公式即可。

另外有一种更好的办法是创建一个宏命令来完成实现更加高级的功能。下面的一段VBA代码是我录制的，可以直接复制到你的模板中使用。它创建了一个宏按钮域和一个唯一的对应书签，以后你可以使用GOTOBUTTON域来引用。格式是：{GOTOBUTTON bookmark {ref bookmark \* 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

Post comments(留言)

由Google提供