word单页另存为 文档删除一页
摘要:怎么保存10版word单页文件 1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档 doc”);键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;粘贴下面的代码:Opti...
发布日期:2020-09-11怎么保存10版word单页文件
1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;粘贴下面的代码:Option ExplicitSub SplitPagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束!"End Sub键入F5运行,看到“完成!”结束。
2、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。
消除分节符的方法:注意事项分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。
如何将多页的word文档,每页都另存为一个单一的word文档
页数比较少的话,可以利用删除另存的方法来实现; 页数多的话可以利用宏来实现,参考以下代码: Sub SplitEveryOnePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer Dim fso As Object Const nSteps = 1 " 修改这里控制每隔几页分割一次 Set fso = CreateObject("Scripting.FileSystemObject") Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To nTotalPages Step nSteps Set oNewDoc = Documents.Add If nIndex + nSteps > nTotalPages Then nBound = nTotalPages Else nBound = nIndex + nSteps - 1 End If For nSubIndex = nIndex To nBound oSrcDoc.Activate oSrcDoc.Bookmarks("\page").Range.Copy oSrcDoc.Windows(1).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next oNewDoc.Activate oNewDoc.Windows(1).Selection.Paste Next nSubIndex strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & (nIndex \ nSteps + 1) & "." & fso.GetExtensionName(strSrcName)) oNewDoc.SaveAs strNewName oNewDoc.Close False Next nIndex Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox "结束!"End Sub
如何将word文件中的其中一页另存为一个文件
方式: (1)单击【常用】工具栏中的【新建空白文档】按钮,创建一个空文档。
(2)选择【视图】菜单中的【大纲】菜单项,并切换到大纲视图下。
此时【大纲】工具栏自动激活。
(3)输入文档的大纲,并用内置的标题样式对各级标题进行格式化。
(4)选定要拆分为子文档的标题和文本。
注意选定内容的第一个标题必须是每个子文档开头要使用的标题级别。
例如,所选内容中的第一个标题样式是“ 标题3”,那么在选定的内容中所有具有“标题3”样式的段落都将创建一个新的子文档。
选定的方法是鼠标移到该标题前的空心十字符号,此时鼠标指针变成十字箭头,单击鼠标即可选定该标题包括的内容。
(5)单击【大纲】工具栏中的【创建子文档】按钮,原文档将变为主控文档,并根据选定的内容创建子文档。
可以看到,Word 把每个子文档放在一个虚线框中,并且在虚线框的左上角显示一个子文档图标,子文档之间用分节符隔开。
(6)把文件保存下来即可。
Word 在保存主文档的同时,会自动保存创建的子文档,并且以子文档的第一行文本作为文件名。
...
为什么我的WORD没有另存为WEB页这个子菜单
1、一次印成双页需要打印机支持,不是WORD软件本身能完成的。
加页码倒置页数增多是因为设置的页脚距底边的距离太大(页面设置-板式-距边界,将距离调整合适,不要太小了1.5左右,太小了有些内容会打不出来!)2、正规的打印店,32开都能装订!不要找个小店,很不专业的,弄的四不象!3、要做32开的封面,图片一定要比32开的大些,打印出后再裁切,正好一样大不好裁切!分大度32开和正度32开. 大度32开成品尺寸为140mmX203 mm. 正度32开成品尺寸为130mmX184mm左右. 16开 大度:210*285 正度:185*260 现在的书一般都是大32开,杂志是大16开