Ms word 如何在c语言中将文本从RTF传输到Word文档#

Ms word 如何在c语言中将文本从RTF传输到Word文档#,ms-word,Ms Word,您好,我需要将文本从richTextbox传输到word文档,也需要在单击按钮时以纯文本传输。我需要这方面的帮助 我有一个vb代码,但需要在csharp Dim wrdApp As Word.Application Private Sub Form_Load() Set wrdApp = New Word.Application End Sub Private Sub Command2_Click() Clipboard.SetText RichTextBox1.TextRT

您好,我需要将文本从richTextbox传输到word文档,也需要在单击按钮时以纯文本传输。我需要这方面的帮助

我有一个vb代码,但需要在csharp

Dim wrdApp As Word.Application

Private Sub Form_Load()
    Set wrdApp = New Word.Application
End Sub

Private Sub Command2_Click()
    Clipboard.SetText RichTextBox1.TextRTF, vbCFRTF
    With wrdApp
        .Documents.Add
        .Selection.Paste
        .ActiveDocument.SaveAs App.Path & "RTFDOC2.doc", _
                wdFormatDocument
        .Visible = True
        .Activate
    End With
End Sub 

您可以使用msword的activeX IF调用此VBA代码

我找到了以下内容,并将其放在一起:

object missing = System.Reflection.Missing.Value;
object Visible = true;
object start1 = 0;
object end1 = 0;
Word.Document adoc = WordApp.Documents.Add(ref missing, ref missing, ref missing, ref missing);
Word.Range rng = adoc.Range(ref start1, ref missing);

try
{              
    Clipboard.SetText(richTextBox.Text, TextDataFormat.Rtf);
    WordApp.Selection.Paste();
    string path = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments);
    object filename = path + @"\MyWord.doc";

    adoc.SaveAs(ref filename, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing, ref missing);

    WordApp.Visible = true;
}
catch (Exception ex)
{
    MessageBox.Show(ex.Message);
}