word中同样的内容，只是其中的一个数据不同，如何自动生成

mixin2018

word中同样的内容，只是其中的一个数据不同，如何自动生成。
如附件中第一页是1/104
第二页自动填写2/104中的数字2
第三页自动填写3/104中的数字3



请求各位word大神相助。感激不尽。

weiyingde

Sub 填写数字()
Dim shp As Shape
With ActiveDocument
     For Each shp In .Shapes
         If Left(shp.TextFrame.TextRange, 7) = "Package" Then
            n = n + 1
            With shp.TextFrame.TextRange.Paragraphs(2).Range
                 .Text = n & "/104"
                 .Font.ColorIndex = 6
                 .Font.Size = 100
                 .Font.Name = "Times New Roman"
            End With
         End If
     Next
End With
End Sub
可行的话，赏朵小花