1樓：再見圖安
開啟你的文件，按 alt + f11 進入 vbe，在左側的工程資源管理器中新建乙個模組，將下列**複製進去，按 f5 執行即可。
sub test()
dim i, a, b, j, result as integer
dim str as string
dim issure as boolean
i = 1
with activedocument
do while i < .paragraphs.count
issure = false
str = .paragraphs(i).range.text
j = 1
do while j < len(str)
if mid(str, j, 1) = " " then
str = left(str, j - 1) & right(str, len(str) - j)
else
j = j + 1
end if
loop
b = 1
a = 0
do while a < len(str)
a = instr(b, str, "a")
if a = 0 then exit do
if ((mid(str, a - 1, 1) = "(") or (mid(str, a - 1, 1) = "（")) and ((mid(str, a + 1, 1) = ")") or (mid(str, a + 1, 1) = "）")) then
result = 1
issure = true
else
b = a + 1
end if
if issure then exit do
loop
if not (issure) then
a = 0
b = 1
do while a < len(str)
a = instr(b, str, "b")
if a = 0 then exit do
if ((mid(str, a - 1, 1) = "(") or (mid(str, a - 1, 1) = "（")) and ((mid(str, a + 1, 1) = ")") or (mid(str, a + 1, 1) = "）")) then
result = 2
issure = true
else
b = a + 1
end if
if issure then exit do
loop
end if
if not (issure) then
a = 0
b = 1
do while a < len(str)
a = instr(b, str, "c")
if a = 0 then exit do
if ((mid(str, a - 1, 1) = "(") or (mid(str, a - 1, 1) = "（")) and ((mid(str, a + 1, 1) = ")") or (mid(str, a + 1, 1) = "）")) then
result = 3
issure = true
else
b = a + 1
end if
if issure then exit do
loop
end if
if not (issure) then
a = 0
b = 1
do while a < len(str)
a = instr(b, str, "d")
if a = 0 then exit do
if ((mid(str, a - 1, 1) = "(") or (mid(str, a - 1, 1) = "（")) and ((mid(str, a + 1, 1) = ")") or (mid(str, a + 1, 1) = "）")) then
result = 4
issure = true
else
b = a + 1
end if
if issure then exit do
loop
end if
if issure then
select case result
case 1
.paragraphs(i + 2).range.delete
.paragraphs(i + 2).range.delete
.paragraphs(i + 2).range.delete
case 2
.paragraphs(i + 1).range.delete
.paragraphs(i + 2).range.delete
.paragraphs(i + 2).range.delete
case 3
.paragraphs(i + 1).range.delete
.paragraphs(i + 1).range.delete
.paragraphs(i + 2).range.delete
case 4
.paragraphs(i + 1).range.delete
.paragraphs(i + 1).range.delete
.paragraphs(i + 1).range.delete
end select
.paragraphs(i).range.select
selection.moveright 1
selection.moveleft 1
selection.delete
end if
i = i + 1
loop
end with
end sub
2樓：
用段落排序功能，排序前，用查詢替換功能對資料進行處理：
第1次，刪除題幹編號：
查詢：[0-9]、
勾選使用萬用字元
替換為：空
全部替換；
第2次，合併段落：
查詢：^13([a、,b、,c、,d、])勾選使用萬用字元
替換為：^11\1
全部替換；
最後，按ctrl+a，全選文件，進行排序：開始－－段落－－排序。
word如何每個段落按首字母排序
WPS中書名號怎麼打，在WPS裡怎樣將書名號開口朝下
藍藍藍 1 首先在電腦上將wps軟體開啟，接下來選擇 文字 然後新建乙個空白文件。2 接下來在電腦上將輸入法轉換為中文，如下圖紅色箭頭所指處以搜狗輸入法為例演示。3 接下來在鍵盤上按住如圖所示的按鍵，即可輸入左書名號 4 接下來在鍵盤上按住如圖所示的按鍵，即可輸入右書名號 主要還得看你使用的中文輸入...
如何將wps轉換為電子，如何將wps文件轉換為電子文件？
加菲帶你看電影 具體步驟為 1 啟動word，並開啟包含有需要轉換 的文件。2 將游標移至word 的任意單元格中，然後執行 選單的 選定 命令，選定整個 搜尋3 執行 編輯 選單的 複製 命令，將word 拷貝到剪貼簿中。4 啟動excel，然後開啟需要轉換的工作簿，並將游標移至所需的單元格中。5...
WPS中如何將拆成兩個視窗，WPS中如何將一個文件拆成兩個視窗
在wps文字中，將一個文件拆成兩個視窗的操作步驟 單擊檢視選擇卡上的拆分視窗按鈕，在下拉選項中根據需要選擇水平拆分或垂直拆分即可，如圖所示。 執行 檢視 新建視窗 即可將一個文件拆分成兩個視窗。怎麼把一個word文件拆開變成兩個word文件？word文件如何將一個 拆分成兩個? 學姐 1 在來wor...