⑴ 使用word怎麼批量修改txt小說章節名稱
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
⑵ txt全集小說怎麼分章啊
自己按章分割吧,用Replace Pioneer,步驟見:
用什麼軟體可以按章節分割txt電子書?
http://..com/question/53926094.html
注意,不要安裝在中文路徑下,否則運行不了
參考資料:http://www.mind-pioneer.com
0回答者: qiran
⑶ 為什麼下載的TXT格式的小說有些章節里全部是數字和英文
你好
亂碼了,換個閱讀器
小說轉碼的時候經常出錯的,嘗試下刷新
⑷ 用word怎麼把文章里的數字前後加上「第」和「章」字
ctrl + h 調出「查找和替換」,點開「更多」,選中「使用通配符」,在查找內容中輸入: [0-9]{1,4},(注意{1,4}後面有空格)在替換為中輸入: 第^&章,點擊全部替換。如圖即便正文中有我故意設置的數字干擾項,也不會誤殺!標題目錄留個目標,精確替換,我設置的是9999章節以內的(4位數章節)。特別提示TXT文檔下載的小說如果章節只有數字,此時數字單獨一行作為標題,一般數字後面會有空格,因此[0-9]{1,4}後加一個空格,不加空格會誤殺正文中的數字。

⑸ 怎樣將txt的全本小說改成分章節的
MS這種沒什麼軟體吧。只能打開以後多建幾個TXT,分章剪切粘貼咯~其實一點也不麻煩,等答案的這點功夫都能弄好了。
⑹ word或txt中如何給小說作品的章節批量修改章節序號
如果整部小說在一個文檔里,那就用通配符(或正則表達式),先全部刪除原來的編號,然後都改成自動編號。
⑺ word怎麼批量修改txt小說章節名稱:「第幾節」改為「第幾章」
在word中打開要修改的文檔
然後ctrl+h調出替換對話框
查找內容輸入:^13([0-9]{1,3})
替換為輸入:^p第1節
高級或更多選擇「使用通配符」
點擊全部替換。
這樣就修改完第1000章以上的了
然後第1000章以後的就是
在word中黏貼第1000章後面的內容
然後ctrl+h調出替換對話框
查找內容輸入:^13([0-9]{1,3}{1,3})
替換為輸入:^p第1節
高級或更多選擇「使用通配符」
點擊全部替換
這樣就可以了(記住1000章前面的內容和1000章後面的內容一定要分開設置替換)