1ãå¨Wordéé¢æå¼é£ä¸ªéè¦åå²çææ¡£ï¼å设å®çæ件åå«åâåå§ææ¡£.docâï¼ï¼
é®å
¥ALT+F11æå¼VBAç¼è¾å¨ï¼éæ©èåâæå
¥-模åâï¼
ç²è´´ä¸é¢ç代ç ï¼
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "ç»æï¼"
End Sub
é®å
¥F5è¿è¡ï¼çå°âå®æï¼âç»æã
2ãæ£æ¥å½åææ¡£æå¨è·¯å¾ä¸æ¯å¦çæè¥å¹²å为âåå§ææ¡£_n.docâï¼n代表å
¶å¯¹åºåå§ææ¡£ä¸ç第å 页ï¼çææ¡£ï¼æ£æ¥å®ä»¬çå
容æ¯å¦å°±å¯¹åºäºåå§ææ¡£æ¯ä¸ªé¡µé¢çå
容ã
å¦ææ¡£ä¸æåè符å解åçææ¡£ä¼åºç°ç©ºç½é¡µï¼å¦è¦å解åä¸åºç°ç©ºç½é¡µï¼éè¦æææ¡£ä¸çåè符å é¤ãæ¶é¤åè符çæ¹æ³ï¼
注æäºé¡¹
åè符è¥å
¨é¨æ¿æ¢ï¼è¦æ³¨ææ¿æ¢åææ¡£å¯è½ä¼åºç°æçæ··ä¹±ï¼è¿åéè¦èªå·±æå¨æçäºã
温馨提示:答案为网友推荐,仅供参考