MS Word文書内の特定の場所にリストボックスのすべてのテキスト

Question

リストボックスのすべてのテキストをブックマークと同様にMS Word文書の特定の場所に転送しようとしています。私はブックマークしてスタイルをやってみましたが、最初の行だけが表示されています。

私が持っている問題は、ListBoxの内容をWordのドキュメントに転送する必要があり、それを行う手がかりがないことです。

できれば助けてください。

ここに私のコードです。

Imports Word = Microsoft.Office.Interop.Word 

Public Class Form1 
    #Region "dim" 
     Dim exeDir As New IO.FileInfo(Reflection.Assembly.GetExecutingAssembly.FullName) 
     Dim WPath = IO.Path.Combine(exeDir.DirectoryName, "SampleReceipt.doc") 
     Dim Word As Word.Application 
     Dim Doc As Word.Document 
    #End Region 

    Private Sub NAR(ByVal o As Object) 
     Try 
      System.Runtime.InteropServices.Marshal.ReleaseComObject(o) 
     Catch ex As Exception 
      o = Nothing 
     Finally 

     End Try 
    End Sub 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Try 
      Word = New Word.Application 
      Word.Visible = True 
      Doc = Word.Documents.Open(WPath) 
      Word.ActiveDocument.Bookmarks("txtDate").Select() 
      Word.Selection.Text = (TextBox1.Text) 
      Word.ActiveDocument.Bookmarks("txtSchoolYear").Select() 
      Word.Selection.Text = (TextBox2.Text) 
      Word.ActiveDocument.Bookmarks("txtr1").Select() 
      Word.Selection.Text = List1.Text 
     Catch ex As Exception 
      MessageBox.Show(ex.Message) 
     End Try 
    End Sub 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     List1.Items.Add("string1") 
     List1.Items.Add("string2") 
     List1.Items.Add("string3") 
    End Sub 

End Class 

Answer 1

だけ

Private Function GetListBoxStrings() As String 
    Dim tempString As String = "" 
    For Each line As String In List1.Items 
     tempString = tempString & line 
    Next 
    Return tempString 
End Function 

次の関数を使用するので、

Word.ActiveDocument.Bookmarks("txtr1").Select() 
Word.Selection.Text = GetListBoxStrings()