word中的公式编号

顺风航

1.利用Word域
Word的域功能十分强大和有用，其中联合使用STYLEREF和SEQ两个域，可以方便地为文档中的公式进行编号，便于在文档中其他地方引用。下面的指令是一个示例：
{STYLEREF 1 \s} - {SEQ Equation \* ARABIC \s 1}
在文档中插入这样的域后，就会显示1-1的编号。而
{SEQ Equation \* GB2 \s 1}   显示（1）的编号
在文档中每个公式的后面都加上一个这样的域，Word会自动对它们编号管理。选中编号，建立书签，你需要引用公式的地方，
也只需要插入相应的域引用就可以了。插入引用十分方便，只需要打开Word的交叉引用窗口，选中需要的公式即可。


2.利用Mathtype工具栏图标进行
点Insert display equation,number on right按钮，进入mathtype，输入公式后，公式自动居中，编号自动居右。在文中引用公式时，可以点Insert equation reference，然后点击要引用的公式编号。
缺点是公式的标号带有章节记号，比如1-1，1-2，。。。，如果要换成1，2.。。这样的编号，同时编号居右，似乎不太容易。
一个可行的改动是应用样式，随便在空白处应用“插入右编号方程”，点“ 格式->样式和格式”查看，发现此时的样式是“MTDisplayEquation”，进入编辑，看到具体的样式结构为：

正文 + 宋体: 小四,制表位: 19.81字符，居中 + 39.52字符,右对齐

按照此样式制作新样式：InsEqR（实际上在使用了一次“插入右编号方程”后，样式“MTDisplayEquation”就保留下来，并不需要制作新样式），结合1中的域功能（如：{SEQ Equation \* ARABIC \s 1}），即可以自己定义想要的编号，然后，公式前加tab，编号前加tab，就可以实现自动编号，编号居右，公式居中。
3.利用宏
一种更好的办法是创建一个宏命令来完成实现更加高级的功能。下面的一段VBA代码可以直接复制到你的模板中使用。它创建了一个宏按钮域和一个唯一的对应书 签，以后你可以使用GOTOBUTTON域来引用。格式是：{GOTOBUTTON bookmark {ref bookmark \* meregeformat}}。

2. Sub InsertEquationMacroButton()
   
3. 
   
4. '
   
5. 
   
6. ' Macro recorded 5/7/2003 by Zhanshan Dong
   
7. 
   
8. '
   
9. 
   
10. Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
    
11. 
    
12. PreserveFormatting:=False
    
13. 
    
14. Selection.TypeText Text:="macrobutton MTPlaceRef \* mergeformat "
    
15. 
    
16. Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
    
17. 
    
18. PreserveFormatting:=False
    
19. 
    
20. Selection.TypeText Text:="seq MTEqn \h \* mergeformat"
    
21. 
    
22. Selection.MoveRight Unit:=wdCharacter, Count:=2
    
23. 
    
24. Selection.TypeText Text:="[]"
    
25. 
    
26. Selection.Delete Unit:=wdCharacter, Count:=1
    
27. 
    
28. Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
29. 
    
30. Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
    
31. 
    
32. PreserveFormatting:=False
    
33. 
    
34. Selection.TypeText Text:="STYLEREF \s 1 \* mergeformat"
    
35. 
    
36. Selection.MoveRight Unit:=wdCharacter, Count:=3
    
37. 
    
38. Selection.MoveLeft Unit:=wdCharacter, Count:=1
    
39. 
    
40. Selection.TypeText Text:="-"
    
41. 
    
42. Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
    
43. 
    
44. PreserveFormatting:=False
    
45. 
    
46. Selection.TypeText Text:="SEQ MTEqn \c \* Arabic \* mergeformat"
    
47. 
    
48. Selection.MoveRight Unit:=wdCharacter, Count:=4
    
49. 
    
50. Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    
51. 
    
52. Selection.Fields.ToggleShowCodes
    
53. 
    
54. Selection.Fields.Update
    
55. 
    
56. mydate = Date
    
57. 
    
58. mytime = Time
    
59. 
    
60. myserial = CStr(Round(CDbl(mydate) * 100000 + CDbl(Time) * 100000))
    
61. 
    
62. With ActiveDocument.Bookmarks
    
63. 
    
64. .Add Range:=Selection.Range, Name:="Eqn" + myserial
    
65. 
    
66. .DefaultSorting = wdSortByName
    
67. 
    
68. .ShowHidden = False
    
69. 
    
70. End With
    
71. 
    
72. End Sub

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

dong1540194894

感谢楼主分享！！！！！！！！

pandengyao

学习了，谢谢楼主

mmmonica

一度~如是

表示赞                     

Beato777

谢谢分享

一个胖虫子

顶顶顶顶顶顶顶顶顶顶顶

junesmile

感谢分享，好东西。。

835500170

写的不错，挺高深

专属雨天

好好学习一下