关于word文档中宏替换问题

Question

怎么把word文档中的大量内容替换为固定范围内的随机数，如：把文档中的大量“42”替换为40-50的随机一个。

Answer 1

如果要替换的数在Word表格中，这个Word只有一个表格，可以使用下面的方式进行处理：

Sub 宏1()
    Dim Rng As Cell
    Set Rng = ActiveDocument.Tables(1).Cell(1, 1)
    If InStr(Rng.Range.Text, "42") Then Rng.Range.Text = Int(40 + 10 * Rnd())
       
    Do
        Set Rng = Rng.Next
        If InStr(Rng.Range.Text, "42") Then Rng.Range.Text = Int(40 + 10 * Rnd())
    Loop Until (Rng.RowIndex = ActiveDocument.Tables(1).Rows.Count And Rng.ColumnIndex = ActiveDocument.Tables(1).Columns.Count)

End Sub

上面 Int(40 + 10 * Rnd())可以生成[40,49]的数，如果要包含50，将10改为11