如何插入制表符和公式，之后插入制表符输入（1）

test123599

1. 
   
2.             Word.Document doc = Globals.ThisAddIn.Application.ActiveDocument;
   
3. 
   
4. 
   
5.             Word.Range range = null;
   
6. 
   
7.             range = doc.Application.Selection.Range;
   
8. 
   
9.             range.InsertBefore("\t");
   
10.             range.Text = "x=2a";
    
11.            doc.OMaths.Add(range).OMaths.BuildUp();
    
12.             range.Collapse(WdCollapseDirection.wdCollapseEnd);
    
13. range.InsertBefore("\t");
    
14.         range.InsertAfter("（1）");

复制代码

c#运行后实现不了想要的效果，制表符丢失了，写入的内容也都跑到公式里了

过客fppt

    Selection.TypeText text:=Chr(9)'插入制表符
    Selection.TypeText text:="1+1=2"'插入公式
    Selection.TypeText text:=Chr(9)'之后插入制表
    Selection.TypeText text:="（1）"'输入（1）

batmanbbs

个人觉得和C#语言没有关系，VBA也会出现同样问题。


解决的方法：
一是先在光标后插入制表符+（1），然后再生成公式


二是不要使用insert，采用type（如楼上所述）

PS：咨询了 蜀中草莽 老师，原来在公示后直接添加#(1)就可以（注意是英文的小括号），一般不使用制表符，而且公式不会变小

test123599

过客fppt 发表于 2024-2-18 15:20
Selection.TypeText text:=Chr(9)'插入制表符
    Selection.TypeText text:="1+1=2"'插入公式
    S ...

c#如果是插入文本也没有问题，但是插入公式就不行就会乱的（公式要点击公式有公式编辑框）。



想实现上面的效果

test123599

batmanbbs 发表于 2024-2-18 16:19
个人觉得和C#语言没有关系，VBA也会出现同样问题。

上面插入的应该不算是公式，因为也没有公式的编辑框

batmanbbs

test123599 发表于 2024-2-18 18:03
上面插入的应该不算是公式，因为也没有公式的编辑框

原理是一样的，就是不用insert，用type

举例如下图：

test123599

batmanbbs 发表于 2024-2-18 19:01
原理是一样的，就是不用insert，用type

举例如下图：

上面的代码是没有问题，插入了一个公式和 公式后面的内容， 但是我想修改为 公式前面也插入个tab，

1. Sub oMath公式后添加编号3()
   
2. 
   
3. Dim myRng As Range
   
4. 
   
5. Set myRng = Selection.Range
   
6. 
   
7. '想在公式之前插入个tab,为什么不行呢
   
8. 
   
9. Selection.TypeText Chr(9)
   
10. 
    
11. myRng.Text = "x=2a"
    
12. 
    
13. With ActiveDocument.OMaths.Add(myRng)
    
14.     .OMaths(1).BuildUp
    
15.     .OMaths(1).Range.Select
    
16. End With
    
17. 
    
18. Selection.MoveRight , 2
    
19. 
    
20. Selection.TypeText Chr(9) & "(1)"
    
21. 
    
22. Set myRng = Nothing
    
23. 
    
24. End Sub
    

复制代码

test123599

Sub InsertTabThenMathFormulaWithNumber()
    Dim myRng As Range
    Dim oMath As oMath
      
    ' 获取当前选定区域
    Set myRng = Selection.Range
      
    ' 在选定区域的开始处插入制表符
    myRng.InsertBefore Chr(9) ' 插入制表符
      
    ' 更新选定区域以跳过新插入的制表符
    myRng.SetRange Start:=myRng.Start + 1, End:=myRng.End
      
    ' 在制表符后插入数学公式
    myRng.Text = "插入的公式" ' 在选定区域设置公式内容
   
With ActiveDocument.OMaths.Add(myRng)
    .OMaths(1).BuildUp
    .OMaths(1).Range.Select
End With

Selection.MoveRight , 2

Selection.TypeText Chr(9) & "(1)"

Set myRng = Nothing
      
    ' 清理变量
    Set myRng = Nothing
    Set oMath = Nothing
End Sub

test123599

初步实现：插入制表符和公式和制表符和编号（还没有替换为自动的），让chatgpt帮我改的

1. using Microsoft.Office.Interop.Word;
   
2. 
   
3. public void InsertTabThenMathFormulaWithNumber()
   
4. {
   
5.     Range myRng;
   
6.     OMath oMath;
   
7. 
   
8.     // 获取当前选定区域
   
9.     myRng = Globals.ThisAddIn.Application.Selection.Range;
   
10. 
    
11.     // 在选定区域的开始处插入制表符
    
12.     myRng.InsertBefore("\t"); // 插入制表符
    
13. 
    
14.     // 更新选定区域以跳过新插入的制表符
    
15.     myRng.SetRange(myRng.Start + 1, myRng.End);
    
16. 
    
17.     // 在制表符后插入数学公式
    
18.     myRng.Text = "插入的公式"; // 在选定区域设置公式内容
    
19. 
    
20.     oMath = Globals.ThisAddIn.Application.ActiveDocument.OMaths.Add(myRng);
    
21.     oMath.OMaths[1].BuildUp();
    
22.     oMath.OMaths[1].Range.Select();
    
23. 
    
24.     Globals.ThisAddIn.Application.Selection.MoveRight(WdUnits.wdCharacter, 2);
    
25.     Globals.ThisAddIn.Application.Selection.TypeText("\t(1)");
    
26. 
    
27.     // 清理变量
    
28.     myRng = null;
    
29.     oMath = null;
    
30. }

复制代码

test123599

加入了自动编号：

1. Range myRng;
   
2.             Range oMath;
   
3.             Selection selection = Globals.ThisAddIn.Application.Selection;
   
4.             // 获取当前选定区域
   
5.             myRng = Globals.ThisAddIn.Application.Selection.Range;
   
6.             // 在选定区域的开始处插入制表符
   
7.             myRng.InsertBefore("\t"); // 插入制表符
   
8.             // 更新选定区域以跳过新插入的制表符
   
9.             myRng.SetRange(myRng.Start + 1, myRng.End);
   
10.             // 在制表符后插入数学公式
    
11.             myRng.Text = "插入的公式"; // 在选定区域设置公式内容
    
12.             oMath = Globals.ThisAddIn.Application.ActiveDocument.OMaths.Add(myRng);
    
13.             oMath.OMaths[1].BuildUp();
    
14.             oMath.OMaths[1].Range.Select();
    
15.             selection.MoveRight(WdUnits.wdCharacter, 2);
    
16.             selection.TypeText("\t(");
    
17.             selection.Fields.Add(selection.Range, Word.WdFieldType.wdFieldEmpty, "AUTONUM  \\* Arabic ", false);
    
18.             selection.TypeText(")");
    
19.             //插入新的段落
    
20.             // 插入一个换行
    
21.             selection.TypeParagraph();
    
22. 
    
23.             // 输入"公式:"
    
24.             selection.TypeText("公式:");
    
25. 
    
26.             // 插入一个换行
    
27.             selection.TypeParagraph();
    
28. 
    
29.             // 清理变量
    
30.             myRng = null;
    
31.             oMath = null;

复制代码