1樓:匿名使用者
ctrl+h開啟替換對話方塊,單擊高階,勾選使用萬用字元,在查詢框中原樣輸入:第[一二三四五六七**十]@章
在替換為框中輸入:究極武裝^&
單擊全部替換即可。熟悉word的萬用字元替換,可以實現很多你意向不到的功能。
第二個問題要採用vba程式設計才能實現!
在工具=巨集-巨集...中,開啟對話方塊,新建一個巨集,建立,開啟vba編輯器,將裡面的內容清空,然後將如下**貼上進去後按f5鍵執行即可。(只適用於<1000的情形下)
sub myreplace()
selection.homekey
selection.wholestory
wholetext = selection.text
debug.print wholetext
wholetexttmp = ""
do until wholetext = ""
mychtmp = left(wholetext, 1)
if instr("一二三是五六七**十百", mychtmp) then
mych = mych + mychtmp
else
if len(mych) = 1 then
select case mych
case "一": mych = "001"
case "二": mych = "002"
case "三": mych = "003"
case "四": mych = "004"
case "五": mych = "005"
case "六": mych = "006"
case "七": mych = "007"
case "八": mych = "008"
case "九": mych = "009"
case "十": mych = "010"
end select
elseif len(mych) = 2 then
select case mych
case "二十": mych = "020"
case "三十": mych = "030"
case "四十": mych = "040"
case "五十": mych = "050"
case "六十": mych = "060"
case "七十": mych = "070"
case "八十": mych = "080"
case "九十": mych = "090"
case "一百": mych = "100"
case "十一": mych = "011"
case "十二": mych = "012"
case "十三": mych = "013"
case "十四": mych = "014"
case "十五": mych = "015"
case "十六": mych = "016"
case "十七": mych = "017"
case "十八": mych = "018"
case "十九": mych = "019"
end select
elseif len(mych) = 3 then
select case left(mych, 1)
case "二": a = "2"
case "三": a = "3"
case "四": a = "4"
case "五": a = "5"
case "六": a = "6"
case "七": a = "7"
case "八": a = "8"
case "九": a = "9"
end select
select case right(mych, 1)
case "一": b = "1"
case "二": b = "2"
case "三": b = "3"
case "四": b = "4"
case "五": b = "5"
case "六": b = "6"
case "七": b = "7"
case "八": b = "8"
case "九": b = "9"
end select
mych = "0" + a + b
elseif len(mych) = 4 then
select case left(mych, 1)
case "一": a = "1"
case "二": a = "2"
case "三": a = "3"
case "四": a = "4"
case "五": a = "5"
case "六": a = "6"
case "七": a = "7"
case "八": a = "8"
case "九": a = "9"
end select
select case right(mych, 1)
case "一": b = "1"
case "二": b = "2"
case "三": b = "3"
case "四": b = "4"
case "五": b = "5"
case "六": b = "6"
case "七": b = "7"
case "八": b = "8"
case "九": b = "9"
end select
mych = a + "0" + b
elseif len(mych) = 5 then
select case left(mych, 1)
case "一": a = "1"
case "二": a = "2"
case "三": a = "3"
case "四": a = "4"
case "五": a = "5"
case "六": a = "6"
case "七": a = "7"
case "八": a = "8"
case "九": a = "9"
end select
select case mid(mych, 3, 1)
case "一": b = "1"
case "二": b = "2"
case "三": b = "3"
case "四": b = "4"
case "五": b = "5"
case "六": b = "6"
case "七": b = "7"
case "八": b = "8"
case "九": b = "9"
end select
select case right(mych, 1)
case "一": c = "1"
case "二": c = "2"
case "三": c = "3"
case "四": c = "4"
case "五": c = "5"
case "六": c = "6"
case "七": c = "7"
case "八": c = "8"
case "九": c = "9"
end select
mych = a + b + c
end if
wholetexttmp = wholetexttmp + mych + mychtmp
mych = ""
end if
wholetext = mid(wholetext, 2)
loop
selection.wholestory
selection.text = wholetexttmp
msgbox "查詢替換完畢!"
end sub
2樓:灰姑娘的霸氣
用 word 開啟這個文字檔案
ctrl+h 開啟替換視窗 查詢裡 填寫 章。 替換裡 輸入 第^&章 這樣全部替換 一次……
然後再在查詢裡 輸入 第章 替換裡輸入 第 全部替換……這樣兩次替換 基本上就可以了……一般來說 ** 正文中 不會涉及到 類似:「章一」、「第章」 這樣的文字的 但是 如果 你的正文中 也有類似 章x 這樣的詞的話 似乎也要被替換了……
所以 更準確的處理方法 要知道 你的文字的排列方式……用word 開啟 是什麼樣子的 貼圖上來比較好……如果在word 中有不同的格式的話,附加上格式會比較好些
3樓:匿名使用者
強烈推薦word文件批量處理大師,該軟體最新版增加了批量執行vba巨集**的功能,有了該功能,所有使用者都可以自己定製適合自己的功能了。只要把可以實現該功能的**(從網上蒐集到的或者是好心人提供的正確**)貼上到軟體中,就可以批量處理海量的word文件了!超級夢幻工具
使用word怎麼批量修改txt**章節名稱?
4樓:匿名使用者
用 word 開啟這個文字檔案
ctrl+h 開啟替換視窗 查詢裡 填寫 章? 替換裡 輸入 第^&章 這樣全部替換 一次……
然後再在查詢裡 輸入 第章 替換裡輸入 第 全部替換……這樣兩次替換 基本上就可以了……一般來說 ** 正文中 不會涉及到 類似:「章一」、「第章」 這樣的文字的 但是 如果 你的正文中 也有類似 章x 這樣的詞的話 似乎也要被替換了……
所以 更準確的處理方法 要知道 你的文字的排列方式……用word 開啟 是什麼樣子的 貼圖上來比較好……如果在word 中有不同的格式的話,附加上格式會比較好些
5樓:
直接用替換的方法:章一 替換成 第一章 【如超過10章,則該方法慎用】
6樓:匿名使用者
用word開啟該文件,ctrl+h開啟替換對話方塊,勾選使用萬用字元,在查詢框中輸入:章([一二三四五六七**十零〇]@),替換為框中輸入:第\1章
單擊全部替換即可。 這是正確高效的方法!
有關檔案批量處理的功能需求,可參見 檔案批量處理百寶箱v9.0中的相應功能,本例可以使用其的主介面上的 批替換 功能卡。
一篇**,每章的章節名都重複了一遍,怎麼用word批量刪除重複的章節名? 70
7樓:匿名使用者
(第[一二三四五六七**十〇]@章*^13)(第[一二三四五六七**十〇]@章*^13)\1
word或txt中如何給**作品的章節批量修改章節序號
8樓:匿名使用者
用這個軟體(網頁連結) ,裡面的「章節設定」功能,可以一次性批量設定章節格式。
怎麼批量修改部分檔名,怎麼批量修改替換檔名稱
碼不亭蹄 windows10系統,怎樣批量修改檔名? 用批處理實現啊,很簡單的,你把情況說得再詳細點兒,我跟你寫個批處理,雙擊後幾秒鐘就改完了。比如說這批 是不是放在一個資料夾裡啊,資料夾的路徑和名稱,全部都是在前面加上 初音 假設所有的 檔案放在e music目錄下,可以用如下的批處理實現 ech...
批量修改檔名的幾種方法,怎麼批量修改替換檔名稱
碼不亭蹄 windows10系統,怎樣批量修改檔名? 很簡單的,分兩步 第一步 在excle裡面,把名字合併,用 命令就行第二步 然後生成一個批量處理的改名字批處理檔案,就可以了。不過說起來有點麻煩,因為你提問題的時間太長了,就不作詳細解答了 怎麼批量修改替換檔名稱 賀小亠 1 電腦開啟要批量命名的...
怎麼用bat檔案批量修改檔名稱
智者總要千慮 方法 步驟 重新命名資料夾 以幾個新建資料夾為例吧 新建一個txt文字文件,檔名任意 set a 1000 setlocal enabledelayedexpansionfor f tokens i in dir a d b do set a a 1 ren i 電影 a 然後儲存 儲...