0

几天以来，我一直在尝试通过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 没有被考虑在内，当我调试它时，我的 word 文档中有一行“Produits essais”，需要两种样式。有人有想法吗？

4

1 回答 1

1

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

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

正如你所看到的，我已经添加了一行，'!!!! comment将插入点移动到下一段，它是用.InsertParagraphAfter method.

于 2013-07-03T19:50:52.250 回答