[已解决]word VBA有没有精通的老师？为什么命名总是向上错一行呢？

lsy1133

word VBA有没有精通的老师？为什么命名总是向上错一行呢？

最佳答案

月排行榜 / 总排行榜

metoo77

2016-8-2 16:35

ActiveRecord 不要用 wdNextRecord

修改后的代码如下

1. 
   
2. Sub testMailMerge()
   
3.     Dim myMerge As MailMerge, i As Integer, myname As String
   
4. 
   
5.     Application.ScreenUpdating = False
   
6. 
   
7.     Set myMerge = ActiveDocument.MailMerge
   
8. 
   
9.     With myMerge.DataSource
   
10. 
    
11.         .ActiveRecord = wdFirstRecord
    
12.         .Parent.Destination = wdSendToNewDocument
    
13. 
    
14.         If .Parent.State = wdMainAndDataSource Then
    
15.             .ActiveRecord = wdFirstRecord
    
16.             For i = 1 To .RecordCount
    
17.                 .ActiveRecord = i
    
18.                 .FirstRecord = i
    
19.                 .LastRecord = i
    
20.                 myname = .DataFields(2).Value & "【" & .DataFields(3).Value & "】"
    
21. 
    
22.                 If .DataFields(10).Value <> "" Then
    
23.                     .Parent.Execute Pause:=False
    
24.                     With ActiveDocument
    
25.                         .Content.Characters.Last.Previous.Delete
    
26.                         .SaveAs ThisDocument.Path & "\各公司协议" & myname & "业务约定书.doc"
    
27.                         .Close
    
28.                     End With
    
29.                 End If
    
30.             Next
    
31.         End If
    
32.     End With
    
33.     Application.ScreenUpdating = True
    
34. End Sub
    

复制代码

跳转到最佳答案楼层

lsy1133

代码在word中

metoo77

ActiveRecord 不要用 wdNextRecord

修改后的代码如下

1. 
   
2. Sub testMailMerge()
   
3.     Dim myMerge As MailMerge, i As Integer, myname As String
   
4. 
   
5.     Application.ScreenUpdating = False
   
6. 
   
7.     Set myMerge = ActiveDocument.MailMerge
   
8. 
   
9.     With myMerge.DataSource
   
10. 
    
11.         .ActiveRecord = wdFirstRecord
    
12.         .Parent.Destination = wdSendToNewDocument
    
13. 
    
14.         If .Parent.State = wdMainAndDataSource Then
    
15.             .ActiveRecord = wdFirstRecord
    
16.             For i = 1 To .RecordCount
    
17.                 .ActiveRecord = i
    
18.                 .FirstRecord = i
    
19.                 .LastRecord = i
    
20.                 myname = .DataFields(2).Value & "【" & .DataFields(3).Value & "】"
    
21. 
    
22.                 If .DataFields(10).Value <> "" Then
    
23.                     .Parent.Execute Pause:=False
    
24.                     With ActiveDocument
    
25.                         .Content.Characters.Last.Previous.Delete
    
26.                         .SaveAs ThisDocument.Path & "\各公司协议" & myname & "业务约定书.doc"
    
27.                         .Close
    
28.                     End With
    
29.                 End If
    
30.             Next
    
31.         End If
    
32.     End With
    
33.     Application.ScreenUpdating = True
    
34. End Sub
    

复制代码