[vba] gebruikmaken van een opmaakprofiel

[Exyge]

Ik wil in VBA gebruikmaken van een opmaakprofiel maar dit wil op de een of andere manier niet werken.

Ik wil dat opmTitel, werkt voor zowel txtFunctie als txtDeel. Maar dit werkt dus niet zelfs niet als ik de style (zie tussen de smileys) boven het in te voegen stukje text (txtDeel) zet.... Maar het "rare" is dat dit voor txtFunctie wel werkt.

Ik heb ook al geprobeerd een ander opmaakprofiel te gebruiken voor txtDeel maar ook dit wilde niet helpen...

Iemand een oplossing?


Selection.Style = ActiveDocument.Styles("opmTitel")
Selection.TypeText Text:=txtFunctie
Selection.TypeParagraph
Selection.TypeParagraph
' To skip or not to skip
If Len(txtDeel) = 0 Then GoTo skipDeel
Selection.Style = ActiveDocument.Styles("opmTitel")
Selection.TypeText Text:=txtDeel
skipDeel:
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.Style = ActiveDocument.Styles("opmFooter")
Selection.TypeParagraph

[brokenp]

probeer het eens op te nemen met de macro recorder, en kijk naar de gegenereerde code als het wel werkt

[Exyge]

Damn dit is wel het meest domme simpele antwoord dat ik me maar kan bedenken en het klopt ^%$#^ nog ook dank u dank u... (weet dat normaal bedankjewels niet op prijs gesteld worden...

Maar ik wilde ook gewoon even uitdrukken hoe dom ik me voel op dit moment.

Dank u voor uw aandacht