Letterbeeld van 1 woord wijzigen

[aebs]

Best Forum Leden,

Na het invullen van een openingsformulier moet ik de teksten plaatsen in een dokument.

Ik heb strTekst1, strTekst2 en strTekst3

Oke hier komt de vraag:

Ze komen in een vette(bold) alinea te staan, maar ik wil de inhoud van strTekst2 cursief(Italic) zetten.

Dus:
strTekst1, strTekst2 en strTekst3


Hoe doe ik dit vanuit VBA. Ik draai met Office 2003.
Iedere hulp/suggestie is welkom want ik zit vast


Andries

 

[AlexV]

Hoi Andries ,

Neem aan dat je het ergens in een werkblad neer zet.

    Cells(1,1).Font.Italic = True
    Cells(1,1).Font.Bold = False

Gr,
Alex,

 

[aebs]

Hoi Andries ,

Neem aan dat je het ergens in een werkblad neer zet.

    Cells(1,1).Font.Italic = True
    Cells(1,1).Font.Bold = False

Gr,
Alex,

Goede dag Alex,

Binnen Excel zijn er oplossingen te over denk ik. Ik ben echter een Word gebruiker dus ik heb niets aan al die mooie trukjes op een werkblad
Je snapt dus dat ik echt een probleem heb. Ik kan natuurlijk 2 tekstVlakken definieeren maar dat is ook zo "rommelig"


Mvg Andries

 

[snb]

sub vooruit()
  for j= 1 to 3
    Activedocument.Variables("tekst" & j) =Me("strText" & j).Text
  Next
  Activedocument.fields.update
Next

Zet in het document op de gewenste plaatsen documentvariabelen(Menubalk/invoegen/Veld.../DOCvariable) {DOCVARIABLE tekst1}. Selekteer zo'n veld (zichtbaar te maken met wisselknop alt-F9) en maak het op zoals jij wil (vet, italic, onderstreept, grootte, letterkleur, opmaakstijl, etc).
Sla het bestand op en draai de bovenstaande macro.

 

[aebs]

Beste forumleden

De oplossing van SNB is interessant maar ik krijg de documentvariablen niet gevuld.

Wie kan me verder helpen??

 

[snb]

Zet je bestand hier.