如何将ListBox多选内容传递至Word指定书签位置

修改后的按钮点击事件代码 #

Private Sub CommandButton1_Click()  

    Dim DataSub1 As Range  
    Set DataSub1 = ActiveDocument.Bookmarks("DataSub1").Range  
    DataSub1.Text = Me.DataSub1.Value  
    ' 重新添加书签，避免替换文本后丢失
    ActiveDocument.Bookmarks.Add Name:="DataSub1", Range:=DataSub1

    Dim dAddress As Range  
    Set dAddress = ActiveDocument.Bookmarks("dAddress").Range  
    dAddress.Text = Me.dAddress.Value  
    ' 重新添加地址书签
    ActiveDocument.Bookmarks.Add Name:="dAddress", Range:=dAddress

    ' 处理ListBox多选内容
    Dim selectedText As String
    Dim ii As Integer  

    ' 遍历ListBox收集选中项，用逗号+空格分隔（可自行修改分隔符）
    For ii = 0 To ListBox1.ListCount - 1  
        If ListBox1.Selected(ii) Then  
            If selectedText <> "" Then
                selectedText = selectedText & ", "
            End If
            selectedText = selectedText & ListBox1.List(ii)
        End If  
    Next ii  

    ' 将拼接好的内容写入指定书签位置
    Dim lstRange As Range
    Set lstRange = ActiveDocument.Bookmarks("lstSelectedItems").Range ' 替换为你的目标书签名称
    lstRange.Text = selectedText
    ' 重新添加书签，确保后续可再次使用
    ActiveDocument.Bookmarks.Add Name:="lstSelectedItems", Range:=lstRange

    Application.ScreenRefresh  

    Me.Repaint
    Me.Hide
  
End Sub

关键说明 #

• 收集选中项：遍历ListBox时，用字符串拼接选中内容，通过", "分隔保证内容在同一行，可根据需求换成其他分隔符（比如顿号、）。
• 书签保留：替换书签位置的文本后，原书签会被删除，所以每次替换后要重新添加书签，确保后续操作还能定位到该位置。
• 书签名称：把代码里的lstSelectedItems换成你实际在Word文档中设置的目标书签名称即可。

ListBox初始化代码（保持不变） #

With ListBox1
    .AddItem "name"  
    .AddItem "address"  
    .AddItem "secondary address"  
    .AddItem "Social Security Number"  
    .AddItem "financial account number"  
    .AddItem "date of birth"  
    .AddItem "email address"  
End With  

内容的提问来源于stack exchange，提问作者JSmith099