在Microsoft Word中，你可以使用尋找和取代功能來移除中文字之間的空格，而不會刪除英文字之間的空格。 以下是步驟：

1. 打開你要編輯的Word文檔。
2. 按下「Ctrl + H」 打開查找和替換對話框。
3. 在 「尋找目標」 欄位中輸入以下內容：([一-龯]) ([一-龯])。 這個正則表達式將匹配中文字符之間的空格。在 「取代為」 欄位中輸入：\1\2。 這將移除中文字之間的空格。確保勾選「使用萬用字元」 。
4. 在 「尋找目標」 欄位中輸入以下內容：([A-Za-z]) ([A-Za-z])。這個正則表達式將匹配英文字之間的空格。在 「取代為」 欄位中輸入：\1~^s\2。這將保留英文字之間的空格。確保勾選「使用萬用字元」 。
5. 點擊 「全部替換」 或 「替換」 按鈕。
6. 這樣，中文字符之間的空格將被刪除，而英文字符之間的空格將保留不變。
7. 請注意，這個方法基於中文字符和英文字符之間的空格模式，因此在執行操作之前，最好先備份你的文檔以防萬一。

Sub RemoveChineseSpaces()
    Dim rng As Range
    Dim pattern As String
    
    ' 设置要查找的范围
    Set rng = ActiveDocument.Content
    
    ' 设置要查找的模式，这个模式将匹配中文字符之间的空格
    pattern = "([一-龯]) ([一-龯])"
    
    ' 开始替换操作
    With rng.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        
        ' 设置替换的模式，将中文字符之间的空格替换为空
        .Text = pattern
        .Replacement.Text = "\1\2"
        
        ' 设置查找选项，忽略大小写
        .MatchCase = False
        .MatchWildcards = True
        
        ' 执行替换操作
        .Execute Replace:=wdReplaceAll
    End With
End Sub