如何在VBA中使用RemoveAtWords函数移除MS Access文本字段指定单词？

API 探路者

2026-8-15

在MS Access文本字段中移除指定单词的解决方案

问题场景

有人能告诉我如何使用您的函数移除长字符串中的"NONE"单词吗？例如 str = Me.Combo1.Column(2) & Me.Combo2.Column(2) 等。

现有代码的问题

你当前的RemoveAtWords函数逻辑错误：Left(strParts(i), 1) <> "NONE" 是拿每个拆分单词的首字符和完整单词"NONE"做比较，这完全不符合需求，会导致所有单词都被保留，根本无法移除"NONE"。

修正后的移除函数

以下是能准确移除"NONE"单词的修正版函数，同时会保留单词间的正常空格：

Public Function RemoveAtWords(strOriginal As String) As String
    Dim strParts() As String
    Dim i As Integer
    Dim result As String
    
    ' 按空格拆分原始字符串
    strParts() = Split(strOriginal, " ")
    
    ' 遍历每个拆分后的单词
    For i = LBound(strParts) To UBound(strParts)
        ' 判断当前单词是否为"NONE"，不等于则保留
        ' 如需忽略大小写，可改为 LCase(strParts(i)) <> "none"
        If strParts(i) <> "NONE" Then
            result = result & strParts(i) & " "
        End If
    Next
    
    ' 去除首尾多余空格后返回结果
    RemoveAtWords = Trim(result)
End Function

整合剪贴板复制功能

如果要把处理后的文本复制到剪贴板，需要先调用修正后的函数处理内容，再执行复制操作：

Private Sub Command1_Click()
    Dim processedText As String
    ' 处理Text1中的文本
    processedText = RemoveAtWords(Me.Text1.Value)
    ' 将处理后内容赋值到Text1（或临时控件）再复制
    Me.Text1.Value = processedText
    Me.Text1.SetFocus
    DoCmd.RunCommand acCmdCopy
    ' 可选：如果需要保留原始文本，可提前保存后恢复
    ' Me.Text1.Value = originalText
End Sub

扩展说明

若要移除多个指定单词，可修改判断条件，比如同时移除"NONE"、"NULL"：
```
If Not (strParts(i) = "NONE" Or strParts(i) = "NULL") Then
```
如需忽略大小写匹配，用统一转换后对比：
```
If UCase(strParts(i)) <> "NONE" Then
```