WORD中表格后插入分页分并复制粘贴表格

long521

在表格后分页符位置插入分页符，插入分页符后复制这个表格，循环5次。

小弟才疏学浅，对Excel还稍有了解，对Word一时不知道如何下手，望大神帮忙！

413191246se

1. Sub a0814_CopyTable()
   
2.     Dim i&
   
3.     With Selection
   
4.         .EndKey 6
   
5.         .Paragraphs(1).Range.Delete
   
6.         .InsertBreak Type:=wdPageBreak
   
7.         .Previous(4, 1).Previous(4, 1).Delete
   
8.         .HomeKey 6, 1
   
9.         .Copy
   
10.         .EndKey 6
    
11.         For i = 1 To 5
    
12.             .Paste
    
13.         Next
    
14.         .HomeKey 6
    
15.     End With
    
16.     With ActiveDocument.Characters.Last
    
17.         .Delete
    
18.         .Previous.Delete
    
19.     End With
    
20. End Sub

复制代码

batmanbbs

long521

batmanbbs 发表于 2023-8-14 12:24

谢谢，放word里测试有效
不知道为啥，我在Excel里使用代码，Set myRng = ActiveDocument.Tables(1).Range会提示引用无效？

1.     Dim Word对象1 As New Word.Application, 当前路径1, 导出文件名1, 导出路径文件名1
   
2.     Dim myRng As Range
   
3.     当前路径1 = ThisWorkbook.Path
   
4.     导出文件名1 = Label1.Caption & "_HAZOP分析工作表"
   
5.     FileCopy 当前路径1 & "\分析工作表(模板).docx", 当前路径1 & "" & 导出文件名1 & ".docx"
   
6.     导出路径文件名1 = 当前路径1 & "" & 导出文件名1 & ".docx"
   
7.     With Word对象1
   
8.         .Documents.Open 导出路径文件名1
   
9.         .Visible = False
   
10.         Set myRng = ActiveDocument.Tables(1).Range
    
11.         With Selection
    
12.             For i = 1 To 5
    
13.                 .EndKey wdStory
    
14.                 .InsertBreak Type:=wdPageBreak
    
15.                 .Range.FormattedText = myRng
    
16.             Next
    
17.         End With
    
18.         Set myRng = Nothing
    
19.     End With
    
20.     Word对象1.Documents.Save
    
21.     Word对象1.Quit
    
22.     Set Word对象1 = Nothing

复制代码

long521

batmanbbs 发表于 2023-8-14 12:24

               .EndKey wdStory
                .InsertBreak Type:=wdPageBreak

这两句也提示说没找到语法或对象

long521

413191246se 发表于 2023-8-14 12:09

谢谢，为啥这代码挪到excel vba里就不行呢

batmanbbs

呵呵，是两个软件，当然用法不一样啦，你把EXCEL的代码拿到WORD里面也一样运行不了。你这相当于拿着明朝的尚方宝剑去斩清朝的官
下面是EXCEL代码

long521

batmanbbs 发表于 2023-8-14 14:41
呵呵，是两个软件，当然用法不一样啦，你把EXCEL的代码拿到WORD里面也一样运行不了。你这相当于拿着明朝的 ...

感谢大神，那我只能表演个吞剑了