Bepaalde regels Bold in Word document

[basAwa]

Hallo,

Ik probeer via Excel vba tekst te kopieren naar word. Dit lukt via bladwijzers. Nu wil ik bepaalde regels bold maken. Dit mij helaas nog niet gelukt.
Hieronder een deel van mijn macro.



Do While Cells(i, 2).Value <> "" 'toevoegen aan document

With objWord.ActiveDocument
.Bookmarks("Test").Range.Text = vbNewLine
.Bookmarks("Test").Range.Text = ws.Cells(i + 1, 2).Value
.Bookmarks("Test").Range.Text = vbNewLine
.Bookmarks("Test").Range.Text = ws.Cells(i, 2).Value
.Bookmarks("Test").Range.Text = " "
.Bookmarks("Test").Range.Text = "stuks"
.Bookmarks("Test").Range.Text = " "
.Bookmarks("Test").Range.Text = ws.Cells(i, 1).Value

End With

i = i + 2

Loop




Het gedeelte wat bold is moet ook bold worde in het word document.
Graag zou ik willen weten hoe ik dit moet doen.

Alvast bedankt.

Mvg,

Bas

 

[snb]

Gebruik daarvoor eenvoudig een documentvariabele in Word

Invoeren als een veld: Shift-F9 ; Docvariable snb

Zichtbaar maken met Alt-F9

Selecteer en selecteer Vet als opmaak. Wordbestand "G:\OF\voorbeeld.docx" opslaan.

Nu vanuit Excel

  with getobject("G:\OF\voorbeeld.docx")
    .variables("snb")=sheets(1).cells(1).value
    .fields.update
  end with

Klaar is Kees.