Im trying to create new style for content control but its showing error "Could not apply the style".
the default style coming for the content control is "Default paragraph font".
i want to change with my new style.please any one help.
my code
---------
Dim ran As range
Dim con As ContentControl
Set ran = Selection.range.Duplicate
Set con = ran.ContentControls.Add(wdContentControlRichText)
con.Tag = Tag
con.Title = Title
If Not StyleExists1(StyleName) Then
Select Case StyleName
Case "Corres":
WordBasic.FormatStyle name:=StyleName, Type:=0, NextStyle _
:="Correspondence"
With ActiveDocument.Styles(StyleName).Font
.name = "NewsGothicBT-Bold"
.Size = 9
.Bold = True
End With
With ActiveDocument.Styles(StyleName).ParagraphFormat
.Alignment = wdAlignParagraphLeft
.SpaceAfter = 13
End With
End If
con.range.Select
Selection.ParentContentControl.DefaultTextStyle = StyleName
con.DefaultTextStyle = StyleName
con.LockContentControl = True