2 u010927196 u010927196 于 2013.06.02 22:07 提问

修改VBA分割WORD代码 改成文件名为知道区域文字

Sub SplitEveryFivePagesAsDocuments()
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

1个回答

lyyybz
lyyybz   Rxr 2016.08.19 10:53

请问你的问题解决了么,我碰到和你一样的问题!

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!
其他相关推荐
word vba批量替换文件内容并批量修改文件名
最近在工作中遇到某一文件夹下的许多文件,名字和内容有大量需要替换,一个个手工替换很麻烦,于是修改了一段代码: Sub 批量更改word要素编号及文件名() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document Dim NewName As Stri
VBA代码把一个多页的word拆分成任意页数的多个文档
VBA代码把一个多页的word拆分成任意页数的多个文档,可直接粘贴运行。
返回所选(当前)段落指定行号的文本内容一(VBA)
注意事项:第一个代码可以返回多段落选定区域的行号;第二个代码可以返回所选内容的第一个段落中的指定行号的文本内容.  Dim LineCount As Integer Sub LinesCount() Dim l As String On Error Resume Next 如果光标未选中内容则将第一个光标所在段落选中 If Select
VBA实现批量修改Word文档的页脚内容
功能示例: 有很多个doc文档,页脚的电话变了,如原电话是4007339339,现在变成4007168339了,要实现批量替换,可使用此程序。 使用说明: 1、 复制下面程序代码到VBA里后,点“工具”-“宏”-“宏”-“change”-“运行” 2、 输入目录(不要输入根目录,要不速度会很慢) 3、 输入要查找的内容 4、 输入的替换成你要的内容 -----------------
使用WORD宏实现查找带格式的文字并复制到特定地方
原来的WORD文档内容是这样的: 1、硬盘出厂后必须经过格式化才能使用。 2、显示器是由监视器与显示适配卡两部分组成的。 ....... 内容类似于带考试试卷上答案的填空题。目前的需求是把答案部分留空,并设置下画线,然后把答案列到后面以括号括起来,最终结果为这样: 1、硬盘出厂后必须经过____才能使用。(格式化) 2、显示器是由____与____两部分组成的。(监视器
【一步一步学习VBA】在WORD中插入文字
1、在活动文档末尾插入文字: Sub InsertTextAtEndOfDocument() ActiveDocument.Content.InsertAfter Text:=" The end." End Sub 2、在所选内容前插入文字 Sub AddTextBeforeSelection() Selection.InsertBefore Text:="n
用VBA批量替换多个Word文档中同一内容
利用VBA可以轻松地将某文件夹下的所以WORD文档中的某个字符串全部替换为其他字符串。下面是具体操作步骤。   第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。   第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。   第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。   第四,双击该按钮,进入VB代码编写模
批量修改替换多个Word文档中同一内容的方法
批量修改替换多个Word文档中同一内容的方法
VBA 实现word 中加水印并保护起来,不允许做复制粘贴
ActiveDocument.Sections(1).Range.Select     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader     Selection.HeaderFooter.Shapes.AddTextEffect( _         PowerPlusWaterMarkObject317025
区域复制的VBA代码
Sub test() Dim Rng1 As Range, Rng2 As Range, N%, I% On Error GoTo ask '设定出错时的跳转位置 retry: Set Rng1 = Application.InputBox("请用鼠标选择要复制的区域:"