星级酒店交流: 酒店餐厅酒店积分酒店评价酒店权益打卡分享买分卖分

信用卡使用交流: 信用卡申请信用卡权益信用卡积分国外信用卡

免税购物交流: 免税购物景点旅游客栈民宿主题乐园邮轮旅游海南免税购物日上免税店

航空里程交流: 机场贵宾权益里程奖励计划里程兑换机票常客奖励升舱

慢享网»慢享网 › 享赚茶馆交流区 › 邀请专区 › 无用信息自用docx

猜你喜欢

发新帖

旅行常客论坛

无用信息自用docx

发表于 2021-8-18 14:04:00 | 显示全部楼层 |阅读模式

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

复制代码

回复

使用道具举报

发新帖

快速回复 返回顶部 返回列表