如何修改Word VBA宏以删除未填充的AddressLine书签空白行？

针对你遇到的未填充地址行保留空白的问题，以下提供两种修改方案，适配不同的模板结构：

方案一：保留原有AddressLine书签结构 #

适合不想修改现有模板书签布局的场景，宏会自动过滤空地址行并删除对应的空白段落：

Sub LetterTemplate()
    Dim bookmarkName As String
    Dim bookmarkText As String
    Dim i As Integer
    Dim addressLines As Variant
    Dim nonEmptyAddresses As Collection
    Dim addrLine As Variant
    Dim addrIndex As Integer
    
    ' 拆分非地址类和地址类书签
    Dim nonBookmarkNames As Variant
    nonBookmarkNames = Array("Name", "TitleSurname", "Postcode", "AccountNumber")
    addressLines = Array("AddressLine1", "AddressLine2", "AddressLine3")
    
    ' 处理非地址类书签
    For i = LBound(nonBookmarkNames) To UBound(nonBookmarkNames)
        bookmarkName = nonBookmarkNames(i)
        bookmarkText = InputBox("Enter text for " & bookmarkName & ":", "Enter Text")
        Call InsertIntoBookmark(bookmarkName, bookmarkText)
    Next i
    
    ' 收集非空的地址行输入
    Set nonEmptyAddresses = New Collection
    For i = LBound(addressLines) To UBound(addressLines)
        bookmarkText = InputBox("Enter address line " & (i + 1) & " (leave blank if none):", "Address Line")
        If Trim(bookmarkText) <> "" Then
            nonEmptyAddresses.Add bookmarkText
        End If
    Next i
    
    ' 将非空地址填充到对应书签
    addrIndex = 1
    For Each addrLine In nonEmptyAddresses
        If addrIndex <= UBound(addressLines) + 1 Then
            Call InsertIntoBookmark(addressLines(addrIndex - 1), addrLine)
            addrIndex = addrIndex + 1
        End If
    Next addrLine
    
    ' 删除未使用的地址书签所在段落，消除空白行
    For i = addrIndex To UBound(addressLines) + 1
        If ActiveDocument.Bookmarks.Exists(addressLines(i - 1)) Then
            ActiveDocument.Bookmarks(addressLines(i - 1)).Range.Paragraphs(1).Delete
        End If
    Next i
    
    MsgBox "Action Complete"
End Sub

Sub InsertIntoBookmark(bookmarkName As String, bookmarkText As String)
    Dim bmRange As Range

    If ActiveDocument.Bookmarks.Exists(bookmarkName) Then
        Set bmRange = ActiveDocument.Bookmarks(bookmarkName).Range
        bmRange.Text = bookmarkText
        ActiveDocument.Bookmarks.Add bookmarkName, bmRange
    Else
        MsgBox "Bookmark '" & bookmarkName & "' not found.", vbExclamation, "Bookmark Not Found"
    End If
End Sub

修改说明 #

• 拆分书签分组，单独处理地址行输入
• 只保留用户输入的非空地址内容
• 对未使用的地址书签，直接删除其所在的整个段落，彻底消除空白行
• 移除原代码中无效的AddressBookmark判断分支

方案二：使用统一地址块书签（更简便） #

适合可以调整模板的场景，新增一个覆盖所有地址区域的书签，用户只需一次输入完整地址：

模板调整步骤 #

1. 选中Word模板中所有原AddressLine1、2、3所在的段落
2. 添加名为AddressBlock的书签

修改后的宏代码 #

Sub LetterTemplate()
    Dim bookmarkName As String
    Dim bookmarkText As String
    Dim i As Integer
    
    ' 非地址类书签
    Dim nonBookmarkNames As Variant
    nonBookmarkNames = Array("Name", "TitleSurname", "Postcode", "AccountNumber")
    
    ' 处理非地址类书签
    For i = LBound(nonBookmarkNames) To UBound(nonBookmarkNames)
        bookmarkName = nonBookmarkNames(i)
        bookmarkText = InputBox("Enter text for " & bookmarkName & ":", "Enter Text")
        Call InsertIntoBookmark(bookmarkName, bookmarkText)
    Next i
    
    ' 接收多行地址输入，自动过滤空行
    bookmarkText = InputBox("Enter full address (press Enter for new lines):", "Full Address", , , , vbMultiLine)
    bookmarkText = Replace(bookmarkText, vbCrLf & vbCrLf, vbCrLf) ' 移除连续空行
    bookmarkText = Trim(bookmarkText) ' 移除首尾空白
    
    ' 更新地址块书签
    If ActiveDocument.Bookmarks.Exists("AddressBlock") Then
        Dim bmRange As Range
        Set bmRange = ActiveDocument.Bookmarks("AddressBlock").Range
        bmRange.Text = bookmarkText
        ActiveDocument.Bookmarks.Add "AddressBlock", bmRange
    Else
        MsgBox "Bookmark 'AddressBlock' not found.", vbExclamation, "Bookmark Not Found"
    End If
    
    MsgBox "Action Complete"
End Sub

Sub InsertIntoBookmark(bookmarkName As String, bookmarkText As String)
    Dim bmRange As Range

    If ActiveDocument.Bookmarks.Exists(bookmarkName) Then
        Set bmRange = ActiveDocument.Bookmarks(bookmarkName).Range
        bmRange.Text = bookmarkText
        ActiveDocument.Bookmarks.Add bookmarkName, bmRange
    Else
        MsgBox "Bookmark '" & bookmarkName & "' not found.", vbExclamation, "Bookmark Not Found"
    End If
End Sub

方案优势 #

• 用户操作更简便，无需逐个输入地址行
• 完全适配任意行数的地址，彻底避免空白行问题
• 自动清理输入中的连续空行，保证地址格式整洁

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