Toon posts:

[Ms Word] Tekstgrootte veranderen in tekstvakken

Pagina: 1
Acties:

Verwijderd

Topicstarter
Is het mogelijk om in meerdere tekstvakken tegelijk het lettertype te vergroten?
Ik heb allemaal "organigrammen" binnen gekregen die ik wat leesbaarder moet maken.

Iemand enig idee?
thx

  • Wok
  • Registratie: Augustus 2001
  • Laatst online: 05-09 22:01

Wok

Dakloos...

Ik zou het zo snel niet weten...

Als het document alleen maar uit tekstvakken bestaat zou je kunnen proberen om alles te selecteren (Ctrl + A) en dan de grootte van het lettetype aan te passen.

Ik moet Office nog op mijn PC installeren, anders had ik het even uitgeprobeerd ;)

Who is General Failure and why is he reading my hard drive?


Verwijderd

Topicstarter
Nee, dat zou voor de hand liggen.
met CTRL-A wordt alles geselecteerd, behalve de tekstvakken....

  • Neobahamuth
  • Registratie: April 2003
  • Niet online

Neobahamuth

Thoughtcrime is death.

En als je op de randen van de tekstvakken klikt met CTRL ingedrukt en dan de anderen selecteert?

BBQBBQ 2OpendeurdagLED Cat Feeder


  • Padvinder
  • Registratie: December 2001
  • Laatst online: 03-09 19:09

Padvinder

doet z'n best

Volgens mij kan het niet... je kunt de tekstvakken allemaal selecteren door shift ingedrukt te houden...

Ligt lekker voor de hand... :+

Maar vervolgens kan de tekst niet meer aanpassen... |:(

Verwijderd

Topicstarter
Jammer,
In het vervolg zou ik natuurlijk lege tekstvakken kunnen koppelen. Als je dan één tekstvak selecteert (met CTRL-A), selecteer je de inhoud van alle tekstvakken.

Nu heeft dat geen zin meer, omdat je alleen lege tekstvakken kunt koppelen.

Goede ideeën blijven welkom!

  • Lister
  • Registratie: September 2001
  • Laatst online: 15-02-2022
Ik weet niet hoeveel het er zijn en of je een beetje ervaring hebt met VBA maar je zou er een macro voor kunnen gebruiken.

De volgende code doorloopt bijvoorbeeld alle shapes in het activedocument en als het een textbox is dan wordt de fontgrootte met een vergroot.
code:
1
2
3
4
5
6
7
8
9
10
11
12
Public Sub Vergroot()
    
    Dim shpShape As Shape
    
    For Each shpShape In ActiveDocument.Shapes
        If shpShape.Type = msoTextBox Then
            shpShape.Select
            Selection.Font.Size = Selection.Font.Size + 1
        End If
    Next shpShape
    
End Sub

Verwijderd

Topicstarter
Bedankt voor het denkwerk!!

Ik ga es experimenteren!!

thx!!
Pagina: 1