将word文件中多个表格复制到单页上

仰望い天空的藍

ming0018 发表于 2019-12-26 09:21
代码在附件中。自己用吧

厉害，成功了，方便再优化下吗，不需要一个表格一个文件，按顺序放在一个word文件里就行

ming0018

仰望い天空的藍 发表于 2019-12-26 11:06
厉害，成功了，方便再优化下吗，不需要一个表格一个文件，按顺序放在一个word文件里就行

可以，请稍等！

kingtau

双击箭头位置粘贴代码并运行，我这里运行一切正常，win10+word2016。
已更正靠左，边距取原文件最左的那个值。

1. Sub 提取表格1()
   
2.     Dim i, docNew As Document
   
3.     On Error Resume Next
   
4.     Set docNew = Documents.Add
   
5.             docNew.PageSetup.TopMargin = CentimetersToPoints(0)
   
6.             docNew.PageSetup.BottomMargin = CentimetersToPoints(0)
   
7.         For i = ThisDocument.Tables.Count To 1 Step -1
   
8.             docNew.Range(0, 0).FormattedText = ThisDocument.Tables(i).Range
   
9.             docNew.Tables(1).Rows.HorizontalPosition = MillimetersToPoints(18.8)
   
10.             If i <> 1 Then docNew.Range(0, 0).InsertBreak Type:=wdPageBreak
    
11.         Next
    
12. End Sub
    

复制代码

仰望い天空的藍

kingtau 发表于 2019-12-26 14:13
双击箭头位置粘贴代码并运行，我这里运行一切正常，win10+word2016。
已更正靠左，边距取原文件最左的那个 ...

可以了，谢谢，之前都是粘贴到Nornal下面的宏命令了