我们如何通过VB.Net更改单词contentcontrol中的样式

Question

我正在尝试通过 vb.net 控制word文档几天。我在其中添加了一些 contentControl ，以便标记我必须进行自动更改的位置。 写在里面很容易，也取而代之。 写一个带有很多段落的连续文本有点棘手，但我设法通过函数来​​完成。 我有更多问题的地方是在“Style1”中写一个标题，在“Style2”中写一个副标题，在“Normal style”中写入文本。 当我这样写：

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没有被考虑在内，当我调试它时，我的单词文档中有一行“Produits essais”，有两种样式的needer。 有人有想法吗？

Answer 1

将您的代码转换为VBA（您添加＆＃39; essais＆＃39;文本的第二部分）我会有这个：

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

正如您所看到的，我已经添加了一行'!!!! comment移动插入点到下一段，其中添加了.InsertParagraphAfter method。