[Word2007] Expand to fit

[Verwijderd]

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:

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]

Verwijderd schreef op donderdag 30 oktober 2008 @ 20:50:
dit werkt enkel indien het document uit 1 pagina bestaat.

Visual Basic:

Sub Vergroot()

Mooie functie.

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:

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