如何使用VBA在word文檔中查找中文括號並將找到的括號中的單詞替換為1，2，3等序號？

(比)中國人民* *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民* * *和中國人民。中華人民共和國與中華人民共和國，中華人民共和國與中華人民共和國，中華人民共和國與中華人民共和國，中華人民共和國與中華人民共和國。

(22)((((((((((組織)))))

(工人)中華人民共和國* * *和中華人民共和國* * *和中華人民共和國* * *和中華人民共和國* * *和中華人民共和國* * * *

(aa)中華人民共和國和中華人民共和國和中華人民共和國。

代碼:

子測試()

對於本文檔，i = 1。段落數

有了這份文件。第(壹)段

Z = .Range.Text

選擇左側案例(修剪(Z)，1)

案例”(“

D = D + 1

s = InStr(Z，"("):E = InStr(Z，")")

. Range.Text = Left(Z，s)& amp；D & amp中部(Z，E)

案例”(“

D = D + 1

s = InStr(Z，"("):E = InStr(Z，")")

. Range.Text = Left(Z，s)& amp；D & amp中部(Z，E)

結束選擇

以…結尾

然後

末端接頭