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ää)
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ää)
Vastaukset
Vanhimmat
Ei vielä vastauksia
Aloittaja odottaa vastauksia. Kerro oma näkemyksesi ensimmäisenä.