如何不依赖剪贴板将Word含软连字符文本复制到Excel/Access

核心思路 #

软连字符（Unicode U+00AD） 在Word的Range.Text中不会直接暴露，Range.XML也会过滤掉这类格式标记，剪贴板方法稳定性差，因此需要直接读取Word对象模型中的字符细节，提取包含软连字符的完整文本。

可行方法 #

1. 遍历Word单元格字符手动拼接文本 #

逐个检查Word单元格Range中的每个字符，判断是否为软连字符，拼接成完整字符串后写入目标文件。这种方法完全不依赖剪贴板，稳定性拉满：

Sub TransferSoftHyphens()
    Dim wordCell As Word.Cell
    Dim excelSheet As Excel.Worksheet
    Dim charIndex As Integer
    Dim fullText As String
    
    ' 替换为你的目标Word单元格和Excel工作表
    Set wordCell = ActiveDocument.Tables(1).Cell(1, 1)
    Set excelSheet = GetObject(, "Excel.Application").ActiveSheet
    
    fullText = ""
    ' 遍历单元格内所有字符
    For charIndex = 1 To wordCell.Range.Characters.Count
        With wordCell.Range.Characters(charIndex)
            ' 匹配软连字符的Unicode编码U+00AD
            If .Unicode = &HAD Then
                fullText = fullText & ChrW(&HAD)
            Else
                fullText = fullText & .Text
            End If
        End With
    Next charIndex
    
    ' 写入Excel单元格
    excelSheet.Range("A1").Value = fullText
End Sub

2. 用FormattedText直接复制（适用于Excel） #

如果不介意同时复制Word单元格的格式，可以直接将Word的格式化文本赋值给Excel单元格，软连字符会被完整保留：

Sub TransferWithFormattedText()
    Dim wordCell As Word.Cell
    Dim excelRange As Excel.Range
    
    Set wordCell = ActiveDocument.Tables(1).Cell(1, 1)
    Set excelRange = GetObject(, "Excel.Application").ActiveSheet.Range("A1")
    
    ' 直接传递格式化文本
    excelRange.FormattedText = wordCell.Range.FormattedText
End Sub

注意：此方法会同步Word的字体、对齐等格式，仅需要纯文本时优先用第一种方法。

3. Access适配方案 #

Access的文本字段支持Unicode软连字符，直接用第一种方法生成的字符串写入即可：

Sub TransferToAccess()
    Dim wordCell As Word.Cell
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim fullText As String
    Dim charIndex As Integer
    
    Set wordCell = ActiveDocument.Tables(1).Cell(1, 1)
    ' 替换为你的Access数据库路径和表名
    Set db = OpenDatabase("C:\YourDatabase.accdb")
    Set rs = db.OpenRecordset("YourTable", dbOpenDynaset)
    
    ' 生成含软连字符的完整文本
    fullText = ""
    For charIndex = 1 To wordCell.Range.Characters.Count
        With wordCell.Range.Characters(charIndex)
            If .Unicode = &HAD Then
                fullText = fullText & ChrW(&HAD)
            Else
                fullText = fullText & .Text
            End If
        End With
    Next charIndex
    
    ' 写入Access记录
    rs.AddNew
    rs("YourTextField") = fullText
    rs.Update
    
    rs.Close
    db.Close
End Sub

关键提示 #

• 软连字符的Unicode编码为U+00AD，VBA中用ChrW(&HAD)调用
• 彻底放弃剪贴板方案，避免多次操作时被系统或其他程序干扰
• Range.Text会自动忽略软连字符，Range.XML中软连字符以<w:softHyphen/>标记存在，解析XML也可行，但效率不如直接遍历字符

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