Easy question: adding a paragraph for each row of a document AFTER 20 characters

[charles]

Dear All,

I have a pretty easy question for you experimented programmers :)
As explained in the title, I want to count 20 characters on a row, insert a paragraph, and do that for all rows of the document. Easy no ? It's days I try to do that.　
Thank you in advance　

I use Word 2010

[gmaxey]

A word document doesn't consist of rows unless it is a table. Perhaps something like this:


Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.Collapse wdCollapseStart
Do
oRng.Select
oRng.End = oRng.End + 20
If InStr(oRng, Chr(13)) > 0 Then
oRng.Start = InStr(oRng, Chr(13))
oRng.End = oRng.Start
Else
oRng.Start = oRng.End
oRng.InsertBefore vbCr
oRng.Start = oRng.Start + 1
End If
Loop Until ActiveDocument.Range.End - oRng.End < 20
lbl_Exit:
Exit Sub

End Sub

[charles]

Thank you, Greg. I'll try and let you know.

I'm surprised about the code, thought it wd be much easier..

[gmaxey]

You should be able to get rid of the "oRng.Select" line in the code.

[charles]

It works. However, I forgot to mention additional constraint I had: if at 20 characters you find yourself in a word, it should go at the beginning of this word and apply the paragraph, how do you do that ?　


I've been trying this with macro recorder and the code looked like :　


Selection.MoveRight Unit:=wdCharacter, Count:=20　

Selection.MoveLeft Unit:=wdWord, Count:=1　

Selection.TypeParagraph　


Why is the coding completely different than that ? 　


What is
Chr(13) please ?　


Thank you again very much.

[gmayor]

The following should address the break in the middle of a word.
Chr(13) is a paragraph break. Chr(32) to avoid you asking :) is a space.


Sub ScratchMacro1()
'A basic Word macro coded by Greg Maxey
'with mods by
'Graham Mayor - http://www.gmayor.com - 06/10/2016
Dim oRng As Range
Set oRng = ActiveDocument.Range
oRng.Collapse wdCollapseStart
Do
oRng.End = oRng.End + 20
While Not oRng.Characters.Last = Chr(32)
oRng.End = oRng.End - 1
Wend
If InStr(oRng, Chr(13)) > 0 Then
oRng.Start = InStr(oRng, Chr(13)) + 1
oRng.Collapse wdCollapseEnd
Else
oRng.Collapse wdCollapseEnd
oRng.InsertBefore vbCr
oRng.Start = oRng.Start + 1
End If
DoEvents
Loop While oRng.Start < ActiveDocument.Range.End - 20
lbl_Exit:
Exit Sub
End Sub

[charles]

This works awesome. 　
I could have tried few more months.. 　

Thank you to you two

[gmaxey]

You know there are over 100 words in the English that are twenty characters longs and many more with 20+ characters. I doubt that you will find anything that work in every scenario.