用在word中输出公式

淉涷

在网上找了很久，自己也试了录制宏，还是没成功。求在Word中输入下面公式的代码

公式

xwdys

Ctrl+F9 插入域符号{}，然后调整字母大小和下标：

淉涷

xwdys 发表于 2015-5-16 19:47
Ctrl+F9 插入域符号{}，然后调整字母大小和下标：

？？？什么意思？  我需要的是用vba代码操作完成

loquat

你如果是想通过vba调用内置的公式对象，我劝你放弃，具体看我以前的帖子
楼上提供的案例是EQ域代码，你只需要用vba实现即可，碰到问题不要一直强调你需要什么，要知道感恩
以下按照你的要求，写给你参考一下，希望对你有帮助

1. Dim aField As Field, aRange As Range
   
2. With Selection
   
3.     Set aField = .Fields.Add(Selection.Range, wdFieldFormula, "BCI=\i\su(i=1,n,BCI·ωi)", 0)
   
4.     Set aRange = aField.Code
   
5.     aRange.SetRange aRange.End - 3, aRange.End - 2
   
6.     aRange.Font.Subscript = True
   
7. End With

复制代码

xwdys

先考虑过用VBA，但用VBA不能完全达到楼主所需求的效果。不过看了楼主的回答，确实让人不舒服。

1. Sub InsertFormulaField()
   
2.     Dim rng As Range
   
3.     Set rng = Selection.Range
   
4.     rng.Start = rng.Start - 1
   
5.     rng.Fields.Add _
   
6.         Range:=rng, _
   
7.         Type:=wdFieldFormula, _
   
8.         Text:="BCI=\i\su(i=1,n,BCI·ω\s\do5(i))", _
   
9.         PreserveFormatting:=False
   
10. End Sub
    

复制代码

淉涷

xwdys 发表于 2015-5-18 12:54
先考虑过用VBA，但用VBA不能完全达到楼主所需求的效果。不过看了楼主的回答，确实让人不舒服。

不好意思，对我的言语给你造成的不适深感抱歉。


最后谢谢你的不介意的回答

淉涷

loquat 发表于 2015-5-18 11:30
你如果是想通过vba调用内置的公式对象，我劝你放弃，具体看我以前的帖子
楼上提供的案例是EQ域代码，你只 ...

谢谢你的代码