Comment changer les styles dans un mot contentcontrol via VB.Net

Question

J'essaie, depuis quelques jours, de contrôler un document Word via vb.net. J'ai mis contentControl dedans pour marquer l'endroit où je dois faire des changements automatiques. Ecrit à l'intérieur est vraiment facile, remplaçant aussi. Ecrire un texte continu avec beaucoup de paragraphes est un peu plus compliqué mais je parviens à le faire via des fonctions. Où j'ai plus de problèmes est en écrivant un titre dans un "Style1", un sous-titre dans un "Style2" et le texte dans "Style Normal". Quand j'écris ceci:

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

J'ai le texte dans le bon style. Mais quand j'ajouter ce code:

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 

Le .InsertParagraphAfter n'est pas pris en compte et quand je le débugger j'ai une seule ligne « Produits de essais » dans mon document Word avec needer des deux styles. Est-ce que quelqu'un a une idée?

Answer 1

Convertir votre code VBA (deuxième partie où vous ajoutez le texte 'essais de) j'aurais celui-ci:

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

Comme vous pouvez le voir, j'ai ajouté une ligne avec '!!!! comment déplacer le point d'insertion à côté paragraphe qui a été ajouté avec .InsertParagraphAfter method.