Adding equations vie Macro using the formula editor - function stops working at equation no. 99

The following code creates 200 SEQ fields

Dim i As Long
Dim rng As Range
With ActiveDocument
    For i = 1 To 200
        Set rng = .Range
        rng.Collapse wdCollapseEnd
        .Fields.Add rng, wdFieldEmpty, "SEQ PDEq"
        rng.InsertAfter vbCr
    Next i
    .Range.Fields.Update
End With

Can you show us all of the code that you are using?

Thanks for the quick reply!

To state at this point, I'm not a very advanced user in writing Macros :-)

The code you are proposing is generating 200 SEQ fields, that's right, but the code I posted before basically works - for equation numbers 1-99, it will not work for 100 and higher. The idea of the macro is not to generate 200 equations in one go, one more equation should be added each time when the macro is executed.

The complete code is as follows:

----------

Sub PDInsertEquation()
 
    With Selection
        
        .Style = ActiveDocument.Styles("Normal")
        
        .TypeText Text:=vbTab
        
        .InlineShapes.AddOLEObject ClassType:="Equation.3", _
                                   LinkToFile:=False, _
                                   DisplayAsIcon:=False
                                   
        .TypeText Text:=vbTab & "("
        
        .Fields.Add Range:=Selection.Range, _
                    Type:=wdFieldEmpty, _
                    Text:="SEQ PDEq \* MERGEFORMAT", _
                    PreserveFormatting:=False
                    
        .MoveLeft Unit:=wdCharacter, count:=1, Extend:=wdExtend

        .Fields.Add Range:=Selection.Range, _
                    Type:=wdFieldEmpty, _
                    PreserveFormatting:=False
                    
        .TypeText Text:="MACROBUTTON PDInsertEqRef "
        
         
         .EndKey Unit:=wdLine
         
        .MoveLeft Unit:=wdCharacter, count:=2
        
        .Delete Unit:=wdCharacter, count:=1
          
        .Fields.Update
    
        .MoveRight Unit:=wdCharacter, count:=1
        
        .TypeText Text:=")"
    
        .TypeParagraph
    End With
End Sub
----------

Thanks for your answer!

I just realized that the Macro works when the Style "Normal" is assigned in the source code

.Style = ActiveDocument.Styles("Normal")

If I use a customized style (e.g. "Equation") it does not work, I guess this is a bug?

Your code does this:

As I did not want to do that 100 times, I ran a macro containing the following code after first creating an equation and copying it to the clipboard

Dim i As Long
Dim rng As Range
With ActiveDocument
     For i = 1 To 200
         Set rng = .Range
         rng.Collapse wdCollapseEnd
         rng.Paste
         Set rng = .Range
         rng.Collapse wdCollapseEnd
         rng.InsertAfter vbTab & "("
         Set rng = .Range
         rng.Collapse wdCollapseEnd
         .Fields.Add rng, wdFieldEmpty, "SEQ PDEq"
         Set rng = .Range
         rng.Collapse wdCollapseEnd
         rng.InsertAfter ")" & vbCr
     Next i
     .Range.Fields.Update
End With

This is the last page of the document after the macro has finished

Yes, that's the somehow strange behaviour, because if the entire equation is duplicated (by using copy/paste) it works - even if it is done via your Macro. But if there are more that 99 equations available, and someone is running the macro once, the number is not added.

And as further mentioned, it works if the style "Normal" is used instead of customized one.