求word中表格居中的vba代码。是整体，不是单元格居中。

mavin

在excel中使用VBA代码，粘帖表格到word指定位置。代码自动贴完的状态是表格靠左，希望得到表格居中，求助word的vba相应代码。 （word录制宏时好像不能选择对象了。）

ming0018

1. Sub SetTableCenter()
   
2.     Dim doc As Document, myTable As table
   
3.     Set doc = ActiveDocument
   
4.     If doc.Tables.Count = 0 Then Exit Sub
   
5.     For Each myTable In doc.Tables
   
6.             myTable.Range.Rows.Alignment = wdAlignRowCenter
   
7.     Next
   
8. End Sub

复制代码

mavin

感谢凯文！代码可以的。
我的代码是从excel里复制了一个表格，贴到word中。
                .Selection.Paste
                For Each myTable In doc.Tables
                    myTable.Range.Rows.Alignment = wdAlignRowCenter
                Next
下面加了你的三句代码，可以使表格居中的。
想多问一句，怎么控制我刚刚贴进去的这个表格？单独使这个表格居中。实在不行就算了，就让所有表格都居中吧。

ming0018

mavin 发表于 2018-8-15 13:49
感谢凯文！代码可以的。
我的代码是从excel里复制了一个表格，贴到word中。
                .Selection. ...

粘贴后，如果表格是选中的，或者说是在selection里面，就直接selection.range.tables(1).rows.alignment=wdalignrowcenter

mavin

感谢凯文的回复！
测试了selection.range.tables(1).rows.alignment=wdalignrowcenter这句，没有成功。
从excel表格中复制粘帖表格到word中，粘帖完后，该word表格不在选中状态。感觉不太好定位这个对象。

ming0018

mavin 发表于 2018-8-15 14:23
感谢凯文的回复！
测试了selection.range.tables(1).rows.alignment=wdalignrowcenter这句，没有成功。
...

那就等你全部复制完后　对所有表格遍历一下　居中就行了　

mavin

扯一下我写的excel写入到word的目的吧。
1、最早我是使用邮件合并的，邮件合并也不错，但也有些缺点。
    a.不能插入不同的表格（表格行数不同）。
    b.邮件合并完，生成的是1个word文件，打印出来是可以的，但有时想把word下发给下面的单位，就需要拆分开来。
    c.邮件合并时，数字有时候会有尾数差，比如应该是18，合并后变成18.000001或17.999999。需要用域代码设置格式解决这个问题。我每次都记不住，要打开上次的邮件合并的域代码，抄一下。
   鉴于上述这些问题，邮件合并教了同事，同事也不太容易学会。毕竟我们每次也就下发10几，20个类似的文件给下属事业部。

2、由于邮件合并不能拼表格，我就在excel里做。
    上面用vlookup拼接一段文字，下面是表格，筛选各个下属部门。选一个下属部门，打印一个pdf文件。此方法也有一些缺点。
     a.上面的文字排版比较丑陋，毕竟只能在excel单元格内换行。行高，行间距，缩进等等毕竟不能像word排版这样美观。
     b.制作这个表格，还是要有一些技术的，同事技术比较差，只能是我来做。

3、使用excel表格，写入word。
    代码写在xla文件中，是个我做的常用工具，我同事也在用，右键菜单就能使用。同事自己准备excel表格，word文档。word文档中需要替换的内容，就用[部门]。excel的第一行表头就是“部门”。这样右键菜单运行，选择一下word模版，把需要填进word的数字都填进去。
    优点总结如下：
    a.操作简单，我同事也会自己用了。
    b.经过今天的改进，可以贴不同的表格了。（之前不能贴表格，只能类似邮件合并这样。）
    c.直接生成多个word文档。（我还做了右键群发的工具，可以把不同的附件直接邮件分发给不同的人。）
    缺点总结如下：
    a.表格在word中的排版还是一般，跨页重复表头，还是没法在VBA中实现。表格列如果太多，word的表格排版就比较难看。

总结：按实际情况，选择性使用吧。

wdpfox

mavin 发表于 2018-8-15 16:44
扯一下我写的excel写入到word的目的吧。
1、最早我是使用邮件合并的，邮件合并也不错，但也有些缺点。
   ...

想领教学习一下，能发代码吗？

ming0018

跨页重复表头　是可以显现的
HeadingFormat　由这个属性控制。