word makrot

tervehdys,

Osaisko joku auttaa kun pitäisi tehdä makro joka

1. osaa tavuttaa sanat.

2. osaa jakaa rivit 38 merkin mittaiseksi

paljon muuta säätöä mutta jos tähän saisi ensin apua.

olen itse hahmoteelut seuraavanlaisen

Sub Makro3()

Dim laskuri As Integer

Selection.WholeStory
With ActiveDocument
.AutoHyphenation = True
.HyphenateCaps = True
.HyphenationZone = CentimetersToPoints(0.75)
.ConsecutiveHyphensLimit = 0

End With

Selection.MoveUp

For laskuri = 0 To 10




Selection.MoveRight Unit:=wdCharacter, Count:=39
Selection.TypeText Text:=Chr(11)

Next

End Sub


Mutta tässä on vikana se että kun se ensin tavuttaa ja sitten katkoo rivit niin eihän se noin voi edes toimia. Jos esim sana on aurinkoinen ja se osuu merkkiväleille 30 - 40 niin sana katkeaa toiselle riville, miten tämän voisi estää, voisi esimerkiksi laittaa tavuviivan ja siirtää loput sanasta toiselle riville.

Kiitos tuhannesti

(toivottavasti joku ymmärtää)