如何用VBA实现 EQ域代码 的功能，生成数学公式

aman1516

缘起：
[分享]用EQ域 再复杂的数学公式也能轻松做
https://club.excelhome.net/thread-136239-1-1.html


如题，请问下各位老师，如何用VBA实现 EQ域代码 的功能，直接生成数学公式？

aman1516

可能这是太偏门的应用了吧，EQ相关的也就了了几篇，又是VBA操作的，就查不到了
再顶起一下

aman1516

不明白为什么最后那句代码要执行两次才正确

1. Sub test()
   
2. '
   
3.     Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
   
4.         PreserveFormatting:=False
   
5.     Selection.TypeText Text:="eq \r(,AB )"
   
6.     ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
   
7.     ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes
   
8. End Sub
   

复制代码

xwdys

1. Sub InsertFormulaField()
   
2.     txt = "EQ \f(1,2)\r(x\s\up2(2) + \b\bc\((8\f(3,5))\s\up10(2))"
   
3.     Selection.Fields.Add Selection.Range, -1, txt, False
   
4. End Sub

复制代码

aman1516

xwdys 发表于 2021-8-21 22:08

不错，谢谢了！

loquat

张勇的数学工具写公式好像就是用这个域做的。