用来自vb.net的单词替换带有目录的文本

时间:2015-06-05 01:00:00

标签: vb.net replace ms-word find tableofcontents

在我的单词模板中,我有一个文本字段,我需要插入目录。 内容: [TOC]

我需要找到[TOC]并将其替换为目录。到目前为止,我已经得到了这段代码:

     With oDoc
            .TablesOfContents.Add(Range:=oApp.Selection.Range, _
                       RightAlignPageNumbers:=True, _
                       UseHeadingStyles:=True, _
                       IncludePageNumbers:=True, _
                       AddedStyles:="styleSection", _
                       UseHyperlinks:=False, _
                       HidePageNumbersInWeb:=True, _
                       UseOutlineLevels:=True)
            .TablesOfContents(1).Range.Font.Name = "Arial Narrow"
            .TablesOfContents(1).Range.Font.Size = 11
            .TablesOfContents(1).TabLeader = Word.WdTabLeader.wdTabLeaderDots
            .TablesOfContents.Format = Word.WdTocFormat.wdTOCSimple
        End With

但问题在于,它始终将内容表放在文档的顶部,而不是找到特定的文本并替换它。任何有关查找特定文本并将其替换为内容表的帮助都将非常感激。

0 个答案:

没有答案