如何在vb.net中将所选行DataGridView导出到Word文档

Dim wordApp As New Microsoft.Office.Interop.Word.Application()
Dim wordDoc As Microsoft.Office.Interop.Word.Document = wordApp.Documents.Add()

For Each row As DataGridViewRow In DataGridView1.SelectedRows
    For Each cell As DataGridViewCell In row.Cells
        wordDoc.Content.Text += cell.Value.ToString() & " "
    Next
    wordDoc.Content.Text += vbCrLf
Next

Dim savePath As String = "C:\path\to\save\document.docx"
wordDoc.SaveAs2(savePath)
wordDoc.Close()

Imports Microsoft.Office.Interop.Word

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim wordApp As New Microsoft.Office.Interop.Word.Application()
        Dim wordDoc As Microsoft.Office.Interop.Word.Document = wordApp.Documents.Add()

        For Each row As DataGridViewRow In DataGridView1.SelectedRows
            For Each cell As DataGridViewCell In row.Cells
                wordDoc.Content.Text += cell.Value.ToString() & " "
            Next
            wordDoc.Content.Text += vbCrLf
        Next

        Dim savePath As String = "C:\path\to\save\document.docx"
        wordDoc.SaveAs2(savePath)
        wordDoc.Close()

        MessageBox.Show("导出成功！")
    End Sub
End Class