txt小说数字章节怎么写

⑴ 使用word怎么批量修改txt小说章节名称

1. ctrl+H打开替换对话框，单击高级，勾选使用通配符，在查找框中原样输入：第[一二三四五六七八九十]@章

2. 在替换为框中输入：究极武装^&

3. 单击全部替换即可。熟悉word的通配符替换，可以实现很多你意向不到的功能。

4. 第二个问题要采用VBA编程才能实现！

5. 在工具=宏-宏...中，打开对话框，新建一个宏，创建，打开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章以后的就是

1. 在word中黏贴第1000章后面的内容

2. 然后ctrl+h调出替换对话框

3. 查找内容输入：^13([0-9]{1,3}{1,3})

4. 替换为输入：^p第1节
   高级或更多选择“使用通配符”
   点击全部替换

5. 这样就可以了（记住1000章前面的内容和1000章后面的内容一定要分开设置替换）