- Sub MergeDocuments()
- Application.ScreenUpdating = False
- MyPath = ActiveDocument.Path
- MyName = Dir(MyPath & "" & "*.*")
- pagenum = 1
- Do While MyName <> ""
- If MyName <> ActiveDocument.Name Then
- Set wb = Documents.Open(MyPath & "" & MyName)
- Selection.WholeStory
- Selection.Copy
- Windows(1).Activate
- Selection.Paste
- wb.Close False
- Selection.EndKey Unit:=wdLine
- Selection.InsertBreak Type:=wdPageBreak
- pagenum = Word.ActiveDocument.Range.Information(wdNumberOfPagesInDocument)
- Selection.GoTo wdGoToPage, , pagenum
- End If
- MyName = Dir
- DoEvents
- Loop
- Application.ScreenUpdating = TrueEnd Sub
复制代码 |
中免CDF会员购海南叠加折上折下单日上返利海南返点3%注册优惠券
CDF会员购海南cdf叠加折上折代拍直邮下单日上优选券购物资格
cdf广州/海南验证码
发表于 2021-8-18 14:04:00