VBA en Styles probleem MS WORD 2007

[Salonkorf]

Hallo,

Ik wil mbv een vba script een stuk text met een bepaalde opmaak maken in Word 2007.
Het resultaat moet er als volgt uit zien:

tekst in style1

​

Tekst in style 2

Onderstaande vb code zou dit moeten realiseren:

Selection.Style = ActiveDocument.Styles("Style1")
Selection.TypeText Text:="tekst in style1 " & vbTab
Selection.Style = ActiveDocument.Styles("Style2")
Selection.TypeText Text:="tekst in style2 " & vbTab

Het resultaat is dat nu de hele regel dezelfde style krijgt. Ik heb vanalles geprobeert zoals met extendmode=true eerst de teksten selecteren en daarna de style toe te passen, maar dat lukt ook niet. Wanneer de style gewoon in Word worden toegepast lukt het wel en heb ik 2 stylen op 1 regel staan. Als ik de akties die ik hiervoor doe in een VBmacro opneem en deze macro weer afspeel gaat het ook niet goed.

Weet iemand een methode waarmee ik 2 styles op 1 regel kan maken via VBA?

 

[snb]

With activedocument
  with .paragraphs(1)
    .range="tekst in style1 " & vbcr
    .style=ActiveDocument.Styles("Style1")
  end with
  with .paragraphs(2)
     .range="tekst in style2 " & vbcr
     .style=ActiveDocument.Styles("Style2")
  end with
  .range(.paragraphs(1).range.start,paragraphs(2).range.end)=replace(.range(.paragraphs(1).range.start,paragraphs(2).range.end),vbcr,"")
End with

 

[Salonkorf]

SNB dank voor je reactie. Het heeft geen verschil uitgemaakt. Ik heb de code geprobeerd in een leeg Word document. De gehele regel wordt nu style 2. Zijn er nog andere mogelijkheden? Werkt de code bij jezelf wel, anders is dit mischien ergens een instelling?

 

[Salonkorf]

Iemand anders nog een sugestie?

Iemand anders nog een sugestie?