为什么我的 VBA 宏只拆分 Word 文档的第一和第三部分？

Question

我有一个宏，它接受一个 Word 文档，将数据复制到我的参数中，然后将其粘贴到多个单独的文档（在本例中为三个）。

这是第一次使用VBA，所以请放轻松。

原始文档是一个长文档，有多个重复部分。通过填写原始文档，用户可以节省完成一份而不是三份几乎相同的文档的时间。我把原文分成了三个部分。我的代码从第一个声明的部分获取数据并将其粘贴到新文档中。它也适用于第三个。但是，第二个不起作用。

With R.Find
.Text = "START OF FORM*^12"
.MatchWildcards = True

部分查找文本“表格开始”并将其和其余内容直到“^12”（我认为这是指分页符）。

文档的布局使得文档的每个部分都以该文本开头并以分页符结尾。

Sub DocSplit()

' Declares variable (in this case R).
Dim R As Range

' Sets R to the active document, being a number of ranges (will be defined later).
Set R = ActiveDocument.Range.Duplicate

'  You won't be able to see what the macro is doing, but will run quicker.
Application.ScreenUpdating = False

' For R, find text with whatever is in the " marks.
With R.Find
.Text = "START OF FORM*^12"
.MatchWildcards = True

' Runs a series of statements as long as given conditions are true. While it's doing this,
While .Execute

' Copy and saves contents of R.
CopyAndSave R

' While ends.
Wend

'With ends.
End With

' Collapses range to the ending point.
R.Collapse wdCollapseEnd

' Returns or sets the ending character position of a range.
R.End = R.Parent.Range.End
CopyAndSave R

End Sub
Static Sub CopyAndSave(R As Range)

' Declares D as document.
Dim D As Document

' Represents the number of words in the collection.
' Long is a datatype for values too large for "integer".
Dim Count As Long
Count = Count + 1

' Copies R from previous Sub to a new document.
R.Copy
Set D = Documents.Add

' Pastes range, preserving original formatting.
D.Range.PasteAndFormat wdFormatOriginalFormatting


D.SaveAs R.Parent.Path & Application.PathSeparator & _
"F00" & Count, wdFormatDocument
D.Close

End Sub

我确实希望创建三个文档，F001、F002 和 F003。我得到两个文件，一个包含第一部分（按预期），一个包含最后两个文件。

Answer 1

我快速查看了您的代码，发现了以下错误：

• 如果想让counter在每次调用函数时递增，必须在main函数中声明，否则每次调用都会丢失内存。
• R.Find 需要一个参数。如果您想了解更多详细信息，请查看here
• R.End 需要一个参数，here 你会发现一些提示，这取决于你需要做什么。

我已经更新了你的一些代码来帮助你：

Sub DocSplit()

    ' Declares variable (in this case R).
    Dim R As Range

    ' Represents the number of words in the collection.
    ' Long is a datatype for values too large for "integer".
    Dim count As Long
    count = 0

    ' Sets R to the active document, being a number of ranges (will be defined later).
    Set R = ActiveDocument.Range.Duplicate

    '  You won't be able to see what the macro is doing, but will run quicker.
    Application.ScreenUpdating = False

    ' For R, find text with whatever is in the " marks.
    With R.Find("Text your're searching")
        .Text = "START OF FORM*^12"
        .MatchWildcards = True

        ' Runs a series of statements as long as given conditions are true. While it's doing this,
        While .Execute

            ' Copy and saves contents of R.
            Call CopyAndSave(R, count)

        ' While ends.
        Wend

    'With ends.
    End With

    ' Collapses range to the ending point.
    R.Collapse wdCollapseEnd

    ' Returns or sets the ending character position of a range.
    R.End = R.Parent.Range.End
    Call CopyAndSave(R)

End Sub
Static Sub CopyAndSave(R As Range, count As Long)
    ' Declares D as document.
    Dim D As Document

    count = count + 1

    ' Copies R from previous Sub to a new document.
    R.Copy
    Set D = Documents.Add

    ' Pastes range, preserving original formatting.
    D.Range.PasteAndFormat wdFormatOriginalFormatting


    D.SaveAs R.Parent.Path & Application.PathSeparator & _
    "F00" & count, wdFormatDocument
    D.Close

End Sub

如果您有任何疑问，请不要犹豫。