使用怎麼批量修改小說章節名稱,使用word怎麼批量修改txt小說章節名稱?

時間 2021-10-15 00:08:44

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 然後儲存 儲...