InsertParagraphBefore Content Control

[Bertus]

Hi, I'm trying to do:

If Len(strValue) > 1 Then
  cc.Range.Text = strValue
  cc.Range.InsertParagraphBefore
EndIf

where cc is a RichText Content control.

VBA throws a runtime error 4605 (Command not available) on the InsertParagraphBefore command

Any ideas how to get this working?



Thanks!
Bart

[macropod]

Try something based on:

ActiveDocument.ContentControls(1).Range.Characters.First.Previous.InsertBefore vbCr

[Bertus]

Excellent Paul, thank you very much!
Bart