我們如何通過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 

我有很好的文字在良好的風格。但是，當我添加以下代碼：有兩種風格needer

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」我的字文件內。 有人有想法嗎？

Answer 1

轉換你的代碼VBA（在其中添加「essais」文本第二部分）我想有這樣的一個：

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

正如你可以看到我已經添加了一個符合'!!!! comment移動插入點移動到下一個其中增加了.InsertParagraphAfter method。