Op onderstaande controle:
Code:
Sub VulWDtekst(ccTitle As String, ccText As String)
[COLOR="#FF0000"] Dim ccs As ContentControls[/COLOR]
Dim cct As ContentControl
With wrdDoc
Set ccs = .SelectContentControlsByTitle(ccTitle)
Set cct = ccs(1)
cct.Range.Text = ccText
End With
End Sub