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 NextNextEnd Sub
5、执行代码后返回word文档页面,乘法口诀就生成了。