2 u010927196 u010927196 于 2013.06.02 15:08 提问

VBA 将一个WORD按文档文中某行 某列中编号 分为多个WORD

如何将以下代码 按固定区域字段另存为 且 根据 固定区域字段做文件名 把目录改为母文件目录
Sub BC()
'
' wenhui Macro
' 宏在 2013/6/1 由 Administrator 创建
'

 Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oNewDoc As Word.Document
    Dim oRange As Word.Range
    Dim lCurrentStart As Long
    Dim lCurrentEnd As Long
    Dim lDocumentEnd As Long
    Dim lOutputCount As Long

    lOutputCount = 0

    Set oWord = GetObject(, "Word.Application")
    Set oDoc = ActiveDocument

    oDoc.Select
    lCurrentStart = oWord.Selection.Start
    lCurrentEnd = lCurrentStart
    lDocumentEnd = oWord.Selection.End

    oWord.Selection.Collapse wdCollapseStart

    Do While (lCurrentEnd < lDocumentEnd)
        oWord.Browser.Target = wdBrowsePage
        oWord.Browser.Next
        lCurrentEnd = oWord.Selection.End

        If (lCurrentStart = lCurrentEnd) Then
            lCurrentEnd = lDocumentEnd
        End If

        Set oRange = oDoc.Range(lCurrentStart, lCurrentEnd)

        Set oNewDoc = oWord.Documents.Add
        oRange.Copy
        oNewDoc.Range(0, 0).Paste

        lOutputCount = lOutputCount + 1
        oNewDoc.SaveAs FileName:="d:\" & lOutputCount & ".doc"
        oNewDoc.Close

        lCurrentStart = lCurrentEnd
    Loop

End Sub

1个回答

lyyybz
lyyybz   Rxr 2016.08.19 10:53

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!