Use VBA to save a document including a word from within the file in the filename

[Phil Smith]

Hi everyone. I have a document which I have split into single page documents. Hoever, when each single page document is saved, I would like to save the document as "Diagram xxx". The format of the document means that the xxx is always the 6th word and is as follows: Transport Company Anytown LTP MB xxx The space between LTP and MB is one Tab as is the space between MB and xxx. Thanks for in advance.

[gmayor]

Without knowing how the pages are separated it is difficult to produce a loop that will loop through the pages. However given your description the folllowing will find the wanted xxx strings in the document, which should help you on your way.

If this is the result of a mail merge you might find http://www.gmayor.com/MergeAndSplit.htm useful

Dim oRng As Range
Dim sName As String
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:="Transport Company Anytown LTP" & Chr(9) & "MB" & Chr(9))
            sName = "Diagram "
            oRng.Collapse 0
            oRng.MoveEnd wdWord
            sName = sName & oRng.Text
            MsgBox sName
            oRng.Collapse 0
        Loop
    End With