word如何替换括号符号

1.word 用宏如何替换括号中间所有字符

'如果是"（。.）"，就把程序中的 "（"改成"（"， "）"改成"）"

Sub DeleteTextBracketed()

'------------------------------------

Dim C As Integer, cnt As Integer, start_ As Long: C = 0

With ActiveDocument.Content.Find

.ClearFormatting: .Text = "("

.Forward = -1: .Wrap = wdFindStop

Do While .Execute

With .Parent

start_ = .Start + 1:

cnt = .MoveUntil(Cset:=")", Count:=wdForward)

If cnt 0 Then

C = C + 1

.Start = start_

' .Select: MsgBox "找到了第 " & C & " 个目标文字：" & .Text

statusbar = "找到了第 " & C & " 个目标文字：" & .Text

.Delete

End If: .SetRange Start:=start_, End:=start_

End With

Loop

End With: MsgBox "总共删除了 " & C & " 个。"

'------------------------------------

End Sub

2.这样在WORD里选中替换所有不在小括号内的字符

办法肯定有，但问题还不够具体，得根据具体情况才好说。

给你推荐一个办法，是否会操作，就得看你的WORD功底了。

1、编辑→替换→查找^p（段落标记）→替换成DL。目的是删除所有段落标记，使全部内容为一整段。

2、编辑→替换→查找“）”（右括号）→替换成“）^p ”（右括号加段落标记）

这时，所有小括号里的内容都在每一段的最后。

3、编辑→替换→查找“（”（左括号）→替换成“@（”（特殊符号加左括号，这里的特殊符号可以是空格、标点，只要区别于原文本内容）

4、选择全文→表格→文本转换成表格→指定分隔符“@”→确定

这时，所有内容在一个两列的表格里，所有小括号的内容都在表格的右列。

5、把右列内容剪切到别处，对剩下的左列内容进行你需要的替换。

6、把右列内容粘贴回来。

7、全选表格内容，在另页空白处“选择性粘贴→粘贴文本”。删除表格。

8、进行第2步的反向操作。

9、进行第1步的反向操作。

OK