This didn't work.  When I changed the "T-" to "T-?{25}" the macro doesn't do
anything anymore.  The context is that I want to extract requirements from a
document to be able to verify that all of the business requirements have been
satisifed.  The 25 characters that follow the T- are the traced requirements.

Doug,

I've been monkeying around with our macro.  The information in the
table is brought into the summary document as ordinary text (i.e., each
cell range is a separate paragrap).  How you would revise this code to
bring in the contents as a table?

I tried set myRange = Tables(1).Range and I get 10 separate paragraphs
in the summary document vice a 5X2 table.

I am still trying to solve, but thought I would ask.

Your macro. I meant monkeying around with your macro :-)

Doug,

I dug around (no pun intended ;-)) in some old posts and now believe
that copying the table vice trying to use a range might work better.  I
have adapted your code a bit to pull both a bookmarked text and a table
from multiple source documents into a summary document.  Feedback
always appreciated:

Sub PullContent()

'This macro is an adaption of code posted in a public newsgroup by Doug
Robbins.
'It provides a means to pull content from multiple files located in a
common folder
'into a summary document.

'Source documents are similarily formatted with a text element
bookmarked "Input"
'and a table element "Table1"

Dim sourceDoc As Document
Dim summaryDoc As Document
Dim oBkmRng As Range
Dim oTblRng As Range
Dim sourcePath As String
Dim sourceFile As String

'Select the folder containing the source files
With Dialogs(wdDialogCopyFile)
 If .Display() <> -1 Then Exit Sub
 sourcePath = .Directory
End With
'Strip extraneous quotation marks from the source path
If Len(sourcePath) = 0 Then Exit Sub
If Asc(sourcePath) = 34 Then
 sourcePath = Mid$(sourcePath, 2, Len(sourcePath) - 2)
End If

'Create a new blank summary document
Set summaryDoc = Documents.Add
'Open each source file and pull content into the summary document
sourceFile = Dir$(sourcePath & "*.*")
Do While sourceFile <> ""
 Set sourceDoc = Documents.Open(sourcePath & sourceFile)
 With sourceDoc
   'Set a range for the bookmarked text
   Set oBkmRng = .Bookmarks("Input").Range
   'Copy the table text and structure
   .Tables(1).Range.FormattedText.Copy
 End With
 With summaryDoc.Range
   'Insert the range text in the summary document
   .InsertAfter oBkmRng & vbCr & vbCr
   .Collapse wdCollapseEnd
   'Paste the table in the summary document
   .Paste
   .Collapse wdCollapseEnd
   .InsertAfter vbCr
 End With
 sourceDoc.Close wdDoNotSaveChanges
 sourceFile = Dir$
Loop

End Sub