如何通过VB.Net更改word contentcontrol中的样式

几天以来，我一直在尝试通过vb.net控制word文档。我在里面放了一些contentControl，以便标记我必须进行自动更改的位置。 写在里面真的很容易，也很容易。 写一个包含很多段落的连续文本有点棘手，但我通过函数实现了这一点。 我遇到的问题更多的是用“Style1”写一个标题，用“Style2”写一个副标题，用“normalstyle”写文本。 当我写这篇文章时：

With tfDocx.BodyCC("startFormulas").Range
    .Style = tfDocx.Doc.Styles("Titre 2")
    .Text = "Produits"
End With

我有好的文字和好的风格。但当我添加此代码时：

With tfDocx.BodyCC("startFormulas").Range
     .Style = tfDocx.Doc.Styles("Titre 2")
     .Text = "Produits"
End With
With tfDocx.BodyCC("startFormulas").Range.Characters.Last
    .InsertParagraphAfter()
    .Style = tfDocx.Doc.Styles("Titre 3")
    .Text = "essais"
End With 

不考虑.InsertParagraphAfter，当我调试它时，我在word文档中有一行“Produits essais”，需要这两种样式。

---

有人有想法吗？

将代码转换为VBA（添加“essais”文本的第二部分）我有以下想法：

With CC.Range.Characters.Last
    .InsertParagraphAfter
    .Move wdParagraph   '!!!!!!!!!
    .Style = "Nagłówek 1"
    .Text = "essais"
End With

---

如您所见，我添加了一行

“！！！！注释

将插入点移动到使用

添加的下一段。在方法

之后插入段落

VBA中的任何提示都可以帮助您吗？你会自己把它转换成vb.net吗？当然，VBA到vb.net在这种操作中是非常相似的。很好，它工作得非常好，但是对于那些在vb.net中寻找相同东西的人来说

。Move wdparagration

是

。Move（word.wdUnits.wdparagration）

谢谢你的解决方案！