You can export as much or as little as you want. However, whatever you export must be a contiguous range, not multiple separate ranges. For example, the following code could be used to export all fragments beginning the 'Start' and ending with 'End' to new documents:
Code:
Sub Demo()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "Start*End"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWildcards = True
.Execute
End With
Do While .Find.Found
i = i + 1
.Duplicate.ExportFragment "D:\Documents and Settings\Admin\My Documents\Fragment_" _
& Format(i, "00") & ".docx", wdFormatDocumentDefault
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
Application.ScreenUpdating = True
MsgBox i & " fragments exported."
End Sub