如何使用VBA在Word中制作乘法口诀表

1、新建空白的word文档；

2、按组合按键【Alt+F11】打开VBA编辑器；

3、右键新建模块；

4、在模块中输入如图代码

Sub A1()

''绘制九九乘法口诀表

For i = 1 To 9

   For j = 1 To i

        Set myshap = ActiveDocument.Shapes.AddTextbox(1, 55 * j, 50 * i, 50, 25)

        myshap.TextFrame.TextRange.Text = j & "X" & i & "=" & i * j

        myshap.TextFrame.TextRange.Font.Size = 10

        myshap.TextFrame.TextRange.ParagraphFormat.Alignment = 0

        myshap.TextFrame.TextRange.Font.Fill.ForeColor = vbRed

   Next

Next

End Sub

5、执行代码后返回word文档页面，乘法口诀就生成了。