如何利用VBA完成在Word中大纲视图和普通视图切换?
ActiveWindow.ActivePane.View.Type = wdOutlineViewActiveWindow.ActivePane.View.Type = wdNormalViewwdMasterView 5 主控视图。
wdNormalView 1 普通视图。
wdOutlineView 2 大纲视图。
wdPrintPreview 4 打印预览视图。
wdPrintView 3 页面视图。
wdReadingView 7 阅读视图。
wdWebView 6 Web 视图。
word2010比例100%怎样显示单页 以前不这样 最近凡是打开word都是...
高分辨率下不修改显示比例也可以实现点击"视图"选项卡, "显示比例"分组中选择你想要的显示比例, 然后在左边"文档视图"分组中选择"Web版式视图", 再选择"页面视图", 这样就可以任一比例下都可以单页显示了,还可以给word添加vba脚本, 让文件打开后自动变为单页模式, 详细操作可参见:http://answers.microsoft.com/en-us/office/forum/office_2010-word/view-one-page-100-in-word-2010/a12e5a35-13d6-47f9-957f-94d4fec34efe
怎么将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代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。
如文档中有分节符分解后的文档会出现空白页,如要分解后不出现空白页,需要把文档中的分节符删除。
消除分节符的方法:注意事项分节符若全部替换,要注意替换后文档可能会出现排版混乱,这则需要自己手动排版了。
转载请注明出处51数据库 » vba word 页面视图