Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.word.pagelayout
|
|||
|
|||
How do I separate text into 600-700 word blocks/parts?
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! |
#2
Posted to microsoft.public.word.pagelayout
|
|||
|
|||
How do I separate text into 600-700 word blocks/parts?
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! |
Reply |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Converting WordPerfect 12 files to Word 2003 | New Users | |||
How to put graphics on envelopes? | Microsoft Word Help | |||
Why can't I get Multiple instances of word? | Microsoft Word Help | |||
manipulating/cutting/pasting text out of a text box | Microsoft Word Help | |||
Word applies direct format on File open | Microsoft Word Help |