Vb.net MS vb 2008 richtectbox1.text和以带下划线的文字显示

我有一个richtextbox，可以接受用户输入。单击“cetak”（打印）按钮后，输入将转到Ms Word

我想用文字显示输入，因为输入字体样式将更改为下划线

例如用户输入：Jessica
文字输出：Jessica（带下划线）

根据您的评论：

如果我把这个编码放在oPara1.Range.Font.Underline下面= Word.WdUnderline.wdunderlines整个段落都在下划线下 包括“Try:”。我只想输入下划线

Public Class Form1


Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
    Dim ps As New PageSettings
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
    Dim oPara1 As Word.Paragraph

    'Start Word and open the document template.
    oWord = CreateObject("Word.Application")
    oWord.Visible = False
    oDoc = oWord.Documents.Add
    oDoc.PageSetup.Orientation = Word.WdOrientation.wdOrientPortrait
    Dim rng As Word.Range = oDoc.Paragraphs(1).Range
    rng.Font.Size = 10
    oDoc.Paragraphs.LineSpacingRule = Word.WdLineSpacing.wdLineSpaceSingle
    RichTextBox1.Text = RichTextBox1.Text.ToUpper

    oPara1 = oDoc.Content.Paragraphs.Add
    oPara1.Range.Font.ColorIndex = Word.WdColorIndex.wdBlack
    oPara1.Range.Text = "Try: " & RichTextBox1.Text
    oPara1.Range.InsertParagraphAfter()

    oWord.Visible = True
    oDoc.PrintPreview()
End Sub
End Class

是文本将加下划线，因为您正在将段落设置为“Try:”和RichTextBox1内容

您的代码：

oPara1.Range.Text = "Try: " & RichTextBox1.Text

因此，为了实现您的目标，即：

要在richtextbox中的内容加下划线，请使用以下代码，然后导出到word：

 RichTextBox1.SelectionFont = New Font(RichTextBox1.Font, FontStyle.Underline)

---

并将其导出到word应用程序。

到目前为止您做了什么？@utility我已经编辑了我的帖子。我包括编码。我试图在输入的内容下面划线。我使用以下代码：oPara1.Range.Font.Underline=Word.WdUnderline.wdUnderlineSingle。然而，该代码在整个段落下划了线。我只想要一个特定的部分。你现在的输出是什么？所以你需要带下划线的单词作为word的输出？@utility是的。在word中的输出下划线。如果我输入jessica，那么输出：Try:jessica。如果我把这个编码放在oPara1.Range.Font.Underline=Word.WdUnderline.wdUnderlineSingle下面，整个段落都是下划线，包括“Try:”。我只希望输入的内容是下划线，我尝试一下。但什么也没发生。我只是把你的代码试着运行一下。什么也没发生。为什么会这样？首先添加文本。然后选择内容或单词。然后单击带有下划线代码的按钮，然后您可以导出我尝试过的内容。新的问题出现了。如何在不更改格式的情况下将richtextbox中的下划线文本导出为Word？richtextbox中的文本现在为下划线（代码为thx），但当我单击“打印”按钮时，它会将其导出为文字，但格式已更改。不再加下划线。为什么？