作者：乔山办公网日期：
返回目录：word文档
我可以帮你实现word中所有表zd格水平居中垂直居中的内效果，就用VBA代码来解决。容
Su 水平垂直居中()
Dim t As Table
For Each t In Me.Tables
t.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Range.Cells.VerticalAlignment = wdCellAlignVerticalCenter
Next
End Sub
你可百以按这样做的：
（1）点录制新宏（自己编名字，选快捷键）；度
（2）点最上面的工具栏 表格-插入-表格，选4列和1行，输入你想要问的文字（不能用鼠标切换光标位置答哈，一定记住内，可以用鼠标点命令的，按左右键移动切换光标位置）
（3）完成后点停止，宏录容制完成；
你看一下这样行不？希望能帮上你
在百度文库中搜索Excel快递单打印模板，多半可以找到现成的，而且免费的，多种快递的
步骤/方法
1
打开word文档。先敲入几个回车，换行。把光标停留在中间。
2
在工具栏中，选择【工具】--【宏】---【录制宏】。
3
填入宏的名称 制表，点击确定。
4
开始录制。在工具栏中，点击【表格】--【插入】--【表格】。
5
填写表格属性为：行为4，列为4，表格样式选择默认，点击确定。
6
这样就可以看到有一个4*4的表格出现在文档里了，在表格的第一行，输入：编号，姓名，年龄，职业。【注意：在表格中用Tab制表键来切换光标的位置。】
7
选择【工具栏】中【表格】--【选择】--【行】，选中表格的第一行。
表中的第一行被选中。选择【工具栏】中【格式】--【字体】。
设置字体格式为 宋体，4号字。
这样就设置好第一行的格式了。下面我们来设置第一列的格式。把光标移e799bee5baa6e79fa5e98193e58685e5aeb9336动到第一列的第一格中。选择【工具栏】中【表格】--【选择】--【行】，选中表格的第一列。
设置格式为为红色标记。字体颜色为黑色。
效果为：
依次设置第二列： 为黄色标记。字体颜色为黑色。第三列： 为蓝色标记。字体颜色为黑色。第四列： 为绿色标记。字体颜色为黑色。
移动光标。把光标移动到表的下两行。并敲入回车。【一定要注意哦】
停止录制。在工具栏中选择【工具】--【宏】---【宏】。查看宏，在代码中填写你要插入表格的数量。可以查看下面的参考资料。
我们插入5个看看效果。
宏的代码贴出来。 大家可以参考下。