列表框中的所有文本到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 

，并用它liike所以

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