vb按页拆分word文档时出现宏怎么操作

下面是按页拆分word文档的程序，请参考：Option ExplicitDim oWord As Word.ApplicationDim oDoc As Word.DocumentDim oNewDoc As Word.DocumentDim oRange As Word.RangeDim iPageNumber As IntegerDim iCount As IntegerDim strTestDir As StringDim strTestFile As StringPrivate Sub Command1_Click() Command1.Visible = False Dim lCurrentStart As Long Dim lCurrentEnd As Long Dim lDocumentEnd As Long Dim lOutputCount As Long lOutputCount = 0 'Launch Word and make it visible Set oWord = CreateObject(＂Word.Application＂) oWord.Visible = True 'Open the test document Set oDoc = oWord.Documents.Open(FileName:=＂C:\ThreePageDocument.doc＂) 'Find the beginning end of the document oDoc.Select lCurrentStart = oWord.Selection.Start lCurrentEnd = lCurrentStart lDocumentEnd = oWord.Selection.End 'Move the insertion point to the beginning of the document oWord.Selection.Collapse wdCollapseStart Do While (lCurrentEnd < lDocumentEnd) 'Move the insertion pointer to the bottom of this page oWord.Browser.Target = wdBrowsePage oWord.Browser.Next lCurrentEnd = oWord.Selection.End 'On the last page, the start and end will be the same If (lCurrentStart = lCurrentEnd) Then lCurrentEnd = lDocumentEnd End If 'Capture the Range of the current page Set oRange = oDoc.Range(lCurrentStart, lCurrentEnd) 'Create a new document and copy the range to it Set oNewDoc = oWord.Documents.Add oRange.Copy oNewDoc.Range(0, 0).Paste 'Release the Range so we don't leak references Set oRange = Nothing 'Save the new document and close it oNewDoc.SaveAs FileName:=＂C:\Result＂ & lOutputCount & ＂.doc＂ ' You can save as another FileFormat. If so, change the ' file extension accordingly. oNewDoc.Close Set oNewDoc = Nothing 'Increment the output counter so we don't overwrite this file later lOutputCount = lOutputCount + 1 'Reset the current start position lCurrentStart = oWord.Selection.End LoopEnd Sub

一个word文档怎么拆分成几个文档

一个word文档拆分成几个文档可以利用word自身的功能直接产生新建文档；所需工具：电脑word文档步骤：1、打开需要拆分的文档，文档里面输入内容。

如图所示：2、以大纲视图显示文档，点击【视图】再点击【大纲视图】如图：3、在需要拆分的地方的标题处，设置“级别”如图4、选中要拆分出来的文档（含带级别的标题）。

将鼠标移动到标题前的空心十字符号上，此时鼠标指针变成十字箭头，点击鼠标即可选定该标题以及其包括的内容。

5、打开文档操作，点击“显示文档”，展开相应文档操作按钮；点击“创建”按钮，创建子文档；6、点击“菜单”按钮，弹出“另存为”对话框，即可生成以“设置了级别的标题”为文件名的子文档；如图

如何把一个word文档按照标题拆分若干个文档？

1、视图——大纲，切换到大纲视图，选中要拆分的标题及正文（选定的方法是鼠标移到该标题前的空心十字符号，此时鼠标指针变成十字箭头，单击鼠标即可选定该标题包括的内容）2、单击【大纲】工具栏中的【创建子文档】按钮，每个子文档会放在一个虚线框中，并且在虚线框的左上角显示一个子文档图标，子文档之间用分节符隔开。

3、把文件保存下来即可。

Word 在保存主文档的同时，会自动保存创建的子文档，并且以子文档的第一行文本作为文件名。

在WORD文档中怎样拆分单元格

在Word中，拆分单元格没有快捷键，可以通过正面的方法拆分单元格。

1、选中需要拆分的单元格；2、单击表格工具---->布局---->拆分单元格，如图所示；3、弹出拆分单元对话框，在列数、行数处输入所需要的数值即可，如图所示。

如何将word文档按页码拆分

请参考我回答其它朋友的方案：http://zhidao.baidu.com/question/118581756.html不过那个是按单页拆分的。

如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。

Option ExplicitSub SplitEveryFivePagesAsDocuments()Dim oSrcDoc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As IntegerDim fso As ObjectConst nSteps = 200 ' 修改这里控制每隔几页分割一次Set fso = CreateObject(＂Scripting.FileSystemObject＂)Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentnTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To nTotalPages Step nStepsSet oNewDoc = Documents.AddIf nIndex + nSteps >nTotalPages ThennBound = nTotalPagesElsenBound = nIndex + nSteps - 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks(＂\page＂).Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & ＂_＂ & (nIndex \ nSteps + 1) & ＂.＂ & fso.GetExtensionName(strSrcName))oNewDoc.SaveAs strNewNameoNewDoc.Close FalseNext nIndexSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox ＂结束！＂End Sub

WORD文档如何将一个表格拆分成两个？

1、在Word文档中插入一个5行4列的表格，在其下方至少保留两个回车符，如下图所示。

2、从表格中选中要成为第2个表格的行和列，然后将其整体拖动到第2个回车符中即可，如下图所示。

3、将鼠标指针移到第2个表格上，此时表格的左上角出现形状，将鼠标指针移到该标记上，待鼠标指针呈十字形状时，按住鼠标左键将其拖动到第1个表格的后面，如下图所示。

4、此时会发现刚拆分的两个表格在水平方向上不是对齐的，选中第2个表格，单击鼠标右键，从弹出的快捷菜单中选择【表格属性】菜单项，如下图所示。

5、打开【表格属性】对话框，切换到【表格】选项卡；?然后单击【定位】按钮，如下图所示。

6、打开【表格定位】对话框，在【垂直】组合框的【位置】文本框中输入合适的数值，如下图所示。

7、依次单击【确定】按钮即可。

word窗口如何拆分

步骤如下：1.打开word文档，点击“视图”选项下的“拆分”；2.点击后，鼠标变成分隔线；3.通过鼠标移动到要拆分的位置，左键即可。

如何用VB调用WORD文档,请高手进,谢谢~！~

知道，不过不能直接读取，因为微软没有公布加密方式，所以要调用WORD来读取，然后获取它先在工程的引用里面加上Microsoft Word 11.0 Object LibraryDim 剪切板文本Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象Dim Word文档 As Word.DocumentDim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档Set Word文字处理系统界面 = CreateObject(＂Word.Application＂) '选择对象Word文字处理系统界面.Visible = False '不显示word.application，即word文字处理系统界面Set Word文档 = Word文字处理系统界面.Documents.Open（文件路径）Set Word文档文本 = Word文字处理系统界面.SelectionWord文档文本.WholeStoryWord文档文本.Copy剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中Text1.Text = 剪切板文本'Clipboard.SetData TempWord文档.Close '关闭文档Word文字处理系统界面.Application.QuitSet Word文字处理系统界面 = Nothing '清空变量Set Word文档文本 = Nothing'完成操作我通过剪切板来获取文本，因为这样可以保留格式（本人独创）如果直接获取也是可以的，不过格式全部丢失，所以我的方法会更好一点

打开word文档时自动跳出VB界面,怎么解决？

你没说你的Word文件是什么样的，如果word是由图形、图片、表格、文字等各种元素组成的，并且有复杂的格式设置（图表组合、页面设置等等），你若简单地各页复制另存，就会造成版面变化甚至内容丢失。

要想保持各页面中内容和排版不变，你可以在每页的最后插入分节符（也就是在下一页的第一个字符前插入分节符），然后将文件另存为新文件，在新文件中找出要保留的页面，将其余的页都删掉。

重复以上操作以保存每一页文件。

如果文件页数很多，上述方法很繁琐，你可以采用软件转化的方法，简单介绍如下：1、先把word转换为pdf文件；2、用工具把pdf文件按每页拆分成多个独立的PDF文件（有很多工具，如pdfspme_win就很好）；3、用转化工具把拆分的pdf文件在转回word文件（有很多工具，如SolidConverterPDF），这样目的就达到了。

至于word与pdf如何转化，方法很多，此处略掉，你可以百度一下。

你要问为什么要转化到pdf再转回来，因为只有转到pdf才能保证你的各个页面排版不会变化，通过这样的方法你可以得到与原始word文件完全一致的单页文件。

当然你也可以借助于office中的虚拟打印机同样可以达到目的。

转载请注明出处51数据库 » word 文档拆分vb