vb.net - 我正在向 word 文档中添加文本并且需要包含下标

Question

我使用 word interop 打开了一个 word 文档，并添加了几段文本。这些长度取决于一系列因素。然后我像这样在下标中添加一行包含 CR 的文本（字母 CR 的下标不包含在 Unicode 下标中）：

            Dim word As Word.Application = New Word.Application()
            Dim doc As Word.Document

            'more code inserting paragraphs here


            Dim Paratext as string

            Paratext = "Elastic Critical Buckling Load  N_CR=(π² (E/Yₘ )I)/(L_CR∙L² )"

            para0 = doc.Content.Paragraphs.Add
            para0.Range.Text = Paratext
            para0.Range.InsertParagraphAfter()
            para0.Range.Style = doc.Styles("Normal")

            Dim Rstart As Int16 = Paratext.IndexOf("CR")
            Dim Rend As Int16 = Paratext.IndexOf("=")

            ' this is wrong: I select the range in the document
            ' using the location in the paragraph.

            Dim SRange = doc.Range(Rstart, Rend)

            SRange.Select()

            Dim currentselection As Word.Selection = word.Selection
            currentselection.Font.Subscript = 1

编辑：我选择了错误的文本。我正在识别刚刚添加的段落中字母 CR 的位置，并将其应用于已经添加了多个段落的文档。所以文档索引 35 和 36 处的两个字符而不是段落成为下标。如何获取刚刚添加的段落开头的索引？

标签： vb.netoffice-interop

Answer 1

解决它：

Dim word As Word.Application = New Word.Application()
        Dim doc As Word.Document

        'more code inserting paragraphs here

        'locate the end of the document so far
        Dim DocEnd As Int16 = doc.Content.End - 1

        Dim Paratext as string

        Paratext = "Elastic Critical Buckling Load  N_CR=(π² (E/Yₘ )I)/(L_CR∙L² )"

        para0 = doc.Content.Paragraphs.Add
        para0.Range.Text = Paratext
        para0.Range.InsertParagraphAfter()
        para0.Range.Style = doc.Styles("Normal")

        Dim Rstart As Int16 = Paratext.IndexOf("CR")
        Dim Rend As Int16 = Paratext.IndexOf("=")


        Dim SRange = doc.Range(Rstart + DocEnd, Rend + DocEnd)

        SRange.Select()

        Dim currentselection As Word.Selection = word.Selection
        currentselection.Font.Subscript = 1