ããæäºç§æ¹æ³å¯ä»¥å®ç°ï¼
ããæ¹æ³1ï¼
ããæwordå¦å为ä¸ä¸ªæ°ææ¡£ï¼å¨æ°ææ¡£ä¸å é¤å ¶å®é¡µï¼åªçä¸éè¦ä¿åçé£é¡µå³å¯ã
ããæ¹æ³2ï¼word转æ¢pdfï¼ç¶åæååç¬é¡µï¼å ·ä½æä½å¦ä¸ï¼
ãã1ãæå¼wordï¼
ãã2ãç¹å»officeæé®->å¦å为->PDFæXPSï¼ä¿åï¼ç¡®å®ï¼
ãã3ãæå¼è½¬ååçpdfæ件ï¼ç¹å»ææ¡£->æå页é¢ï¼
ãã4ãå¡«å ¥éè¦æåç页ç ï¼å¾éâæå页页为åç¬æ件âï¼ç¡®å®ï¼å®æã
可以的,通过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
实操步骤如下:
1、在桌面新建一个文件夹,并在文件夹里新建一个Word文档取名为提取页,如下图。
2、打开文档,为了方便演示在里面先输入4页数据,如下图。
3、键盘上按Alt+F11打开VBA编辑器,选择菜单“插入-模块”,如下图。
4、拷贝上面代码,粘贴到模块代码输入页里,如下图。
5,出现结束提示框,则完成,如下图。
6、这时点击确定并关掉VBA编辑器,打开原文档所在的文件夹,就可以看到提取出来的每一页单独文档,文档名字后面的数字代表页码,如下图。
本回答被网友采纳