[BlAzEmAsTeR]

I need Word to separate a document of about 24,300 words into 600-700 word
parts. It takes waaaaaaaaaaaay too long manually. If there is a way to do
this, please help! (Note: I would prefer it to separate at the end of the
sentance)

Cheers!

[macropod]

Hi,

You could do it with a macro like the following:

Sub Splitter()
Dim i As Long
Dim j As Long
Dim k As Integer
k = 0
With ActiveDocument
For i = 1 To .Sentences.Count
For j = 1 To .Sentences(i).Words.Count
k = k + 1
If k Mod 600 = 0 Then
.Sentences(i).InsertAfter (Chr(13))
k = 0
End If
Next
Next
End With
End Sub

The above macro inserts a paragraph break at the end of whichever sentence has
the 600th word in the current block. You can change the '600' in the code to
vary that.

Cheers

--
macropod
[MVP - Microsoft Word]


"BlAzEmAsTeR" wrote in message
...
| I need Word to separate a document of about 24,300 words into 600-700 word
| parts. It takes waaaaaaaaaaaay too long manually. If there is a way to do
| this, please help! (Note: I would prefer it to separate at the end of the
| sentance)
|
| Cheers!