Question

我正在使用VB.net 2003 + Automation for Word 2007

Document.Content.Find.Execute("Subject/ Title:", , , , , , , , , "Subject/ Title: Insert Subject here")

我发现上面的代码对我的项目非常有用。它用第二个字符串替换第一个字符串。但现在我需要将我的代码更进一步。我希望在冒号之后的文本加下划线。我尝试使用范围，但它没有用。感谢任何形式的帮助！

其次，只有在首先要查找文本时才有效！我想把文本放在一个空单元格中。如何以编程方式找到单元格？这是文档第二行中的第二个表，如果有帮助的话。

Answer 1

我认为您需要将冒号后的文本放在另一个字符串中。并写下这样的东西：

' Use a Red pen for the underline text decoration.
        Private Sub SetRedUnderline()
            ' Create an underline text decoration. Default is underline.
            Dim myUnderline As New TextDecoration()

            ' Create a solid color brush pen for the text decoration.
            myUnderline.Pen = New Pen(Brushes.Red, 1)
            myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended

            ' Set the underline decoration to a TextDecorationCollection and add it to the text block.
            Dim myCollection As New TextDecorationCollection()
            myCollection.Add(myUnderline)
            TextBlock2.TextDecorations = myCollection
        End Sub

我找到的上述代码使用TextDecoration类，您可以在此处查看更多文档：http://msdn.microsoft.com/en-us/library/ms752372.aspx#Y1178

如何将文本替换为其他格式？

1 个答案: