查找中文字间多余空格，但“见”字除外

margaouyang

我有一篇文档里中文多处出现多与空格，欲删之。但有些带“见”字的地方是合理空格，不应删掉。
例如：
撤销发盘 见“撤销报盘”条    （此处“盘”和“见”之间的空格不应删除）
撤销合 同                                 （多与空格）
超声波 诊  断仪                        （多与空格）
请问如何处理？
另外，有没有方法用vba批量把“某某某 见XXX条”中的某某某直接合并到XXX词条中。不太好解释，见附件！

[ 本帖最后由 margaouyang 于 2010-12-31 09:15 编辑 ]

zio

我有个比较笨的办法：
1。查找  [一-隝]^32[一-隝]       选中    汉字+空格+汉字
2。在刚才选中项内查找   ^32        即空格   后删除
3.。替换：      见“     为       ^32见“


[ 本帖最后由 zio 于 2010-12-31 14:32 编辑 ]

margaouyang

其实我主要是想问，很多时候我都会遇到要修改XXX条件的地方，但NNN除外。不知道能不能通过一步做到

honggexjq

word的通配符好像没有“与”的关系，所以如果要查找除某一汉字外的汉字没有很直接的方法
针对你的附件可以这样
查找：([!^1-^127见])^32@([!^1-^127见])
替换：\1\2
勾选通配符

honggexjq

第二个问题试做了下，为了测试正确性对你的原文件稍作修改，另外因有些地方可能考虑不周，建议使用前做好备份
请启用宏

1. Sub test()
   
2. Dim dic As Object, arr
   
3. Dim str$, temp1$, temp2$, i%
   
4. Set dic = CreateObject("Scripting.Dictionary")
   
5. Selection.HomeKey wdStory
   
6. With Selection.Find
   
7.     .ClearFormatting
   
8.     .Text = "见*条"
   
9.     .MatchWildcards = True
   
10.     .Forward = True
    
11.     Do While .Execute
    
12.         With .Parent
    
13.         .Expand wdParagraph
    
14.         str = .Range.Text
    
15.         temp1 = Left(str, InStr(str, Chr(32)) - 1)
    
16.         temp2 = Mid(str, InStr(str, "“") + 1, InStr(str, "”") - InStr(str, "“") - 1)
    
17.         dic(temp2) = dic(temp2) & "，" & temp1
    
18.         .Range.Delete
    
19.         .Collapse wdCollapseEnd
    
20.         End With
    
21.     Loop
    
22.     arr = dic.keys
    
23.     For i = 0 To UBound(arr)
    
24.         Selection.HomeKey wdStory
    
25.         .Text = arr(i)
    
26.         .Replacement.Text = "^&" & dic(arr(i))
    
27.         .Execute Replace:=wdReplaceAll
    
28.     Next
    
29. End With
    
30. Set dic = Nothing
    
31. End Sub

复制代码

lucifer_998889

查找：^32[!见]