Check alle échte Black Friday-deals Ook zo moe van nepaanbiedingen? Wij laten alleen échte deals zien
Toon posts:

[Word2007] Expand to fit

Pagina: 1
Acties:

Verwijderd

Topicstarter
We zijn allemaal bekend met de optie "Shrink to fit" om automatisch tekst die zich net over een extra pagina spreid toch nog op één pagina te krijgen. Bestaat er echter ook een optie om de tekst te expanderen over de pagina (het lettertype wordt dus vergroot) om de tekst pagina vullend te maken?

Ik kwam deze pagina tegen, maar dat is niet wat ik zoek ("scale text" trok me aan ;)). Ik doel dus op een auto-scale to page optie.

Verwijderd

dit werkt enkel indien het document uit 1 pagina bestaat.
Visual Basic:
1
2
3
4
5
6
Sub Vergroot()
    Do Until (2 = ActiveDocument.Range.Information(wdActiveEndPageNumber))
        ActiveDocument.Range.Font.Size = (1 + ActiveDocument.Range.Font.Size)
    Loop
    ActiveDocument.Range.Font.Size = (ActiveDocument.Range.Font.Size - 1)
End Sub

Verwijderd

Topicstarter
Verwijderd schreef op donderdag 30 oktober 2008 @ 20:50:
dit werkt enkel indien het document uit 1 pagina bestaat.
Visual Basic:
1
Sub Vergroot()
Mooie functie. _/-\o_

De font size stond echter standaard op 99999 waardoor VB een error gaf ("waarde buiten bereik"). Door de fontsize eerst te zetten werkt ie wel.

Visual Basic:
1
2
3
4
5
6
7
Sub Vergroot()
    ActiveDocument.Range.Font.Size = 1
    Do Until (2 = ActiveDocument.Range.Information(wdActiveEndPageNumber))
        ActiveDocument.Range.Font.Size = (1 + ActiveDocument.Range.Font.Size)
    Loop
    ActiveDocument.Range.Font.Size = (ActiveDocument.Range.Font.Size - 1)
End Sub