wps怎么批量修改小说章节 使用word怎么批量修改txt小说章节名称？
\u600e\u4e48\u5728wps word\u91cc\u6279\u91cf\u66f4\u6539\u7ae0\u8282\u540d\u79f0\u5462\u6253\u5f00Word\u5728\u4f60\u9700\u8981\u4fee\u6539\u7684\u6807\u9898\u91cc\u5355\u51fb\u53f3\u952e\uff0c\u7136\u540e\u4f1a\u51fa\u73b0\u5b57\u4f53\u3001\u6bb5\u843d\u7b49\u7684\u9879\u76ee\uff0c\u70b9\u8fdb\u53bb\u6309\u7167\u4f60\u7684\u8981\u6c42\u8fdb\u884c\u4fee\u6539\u5373\u53ef\u3002
ctrl+H\u6253\u5f00\u66ff\u6362\u5bf9\u8bdd\u6846\uff0c\u5355\u51fb\u9ad8\u7ea7\uff0c\u52fe\u9009\u4f7f\u7528\u901a\u914d\u7b26\uff0c\u5728\u67e5\u627e\u6846\u4e2d\u539f\u6837\u8f93\u5165\uff1a\u7b2c[\u4e00\u4e8c\u4e09\u56db\u4e94\u516d\u4e03\u516b\u4e5d\u5341]@\u7ae0
\u5728\u66ff\u6362\u4e3a\u6846\u4e2d\u8f93\u5165\uff1a\u7a76\u6781\u6b66\u88c5^&
\u5355\u51fb\u5168\u90e8\u66ff\u6362\u5373\u53ef\u3002\u719f\u6089word\u7684\u901a\u914d\u7b26\u66ff\u6362\uff0c\u53ef\u4ee5\u5b9e\u73b0\u5f88\u591a\u4f60\u610f\u5411\u4e0d\u5230\u7684\u529f\u80fd\u3002
\u7b2c\u4e8c\u4e2a\u95ee\u9898\u8981\u91c7\u7528VBA\u7f16\u7a0b\u624d\u80fd\u5b9e\u73b0\uff01
\u5728\u5de5\u5177=\u5b8f-\u5b8f...\u4e2d\uff0c\u6253\u5f00\u5bf9\u8bdd\u6846\uff0c\u65b0\u5efa\u4e00\u4e2a\u5b8f\uff0c\u521b\u5efa\uff0c\u6253\u5f00VBA\u7f16\u8f91\u5668\uff0c\u5c06\u91cc\u9762\u7684\u5185\u5bb9\u6e05\u7a7a\uff0c\u7136\u540e\u5c06\u5982\u4e0b\u4ee3\u7801\u7c98\u8d34\u8fdb\u53bb\u540e\u6309F5\u952e\u8fd0\u884c\u5373\u53ef\u3002\uff08\u53ea\u9002\u7528\u4e8e<1000\u7684\u60c5\u5f62\u4e0b\uff09
Sub MyReplace()
Selection.HomeKey
Selection.WholeStory
WholeText = Selection.Text
Debug.Print WholeText
WholeTextTmp = ""
Do Until WholeText = ""
MyChTmp = Left(WholeText, 1)
If InStr("\u4e00\u4e8c\u4e09\u662f\u4e94\u516d\u4e03\u516b\u4e5d\u5341\u767e", MyChTmp) Then
MyCh = MyCh + MyChTmp
Else
If Len(MyCh) = 1 Then
Select Case MyCh
Case "\u4e00": MyCh = "001"
Case "\u4e8c": MyCh = "002"
Case "\u4e09": MyCh = "003"
Case "\u56db": MyCh = "004"
Case "\u4e94": MyCh = "005"
Case "\u516d": MyCh = "006"
Case "\u4e03": MyCh = "007"
Case "\u516b": MyCh = "008"
Case "\u4e5d": MyCh = "009"
Case "\u5341": MyCh = "010"
End Select
ElseIf Len(MyCh) = 2 Then
Select Case MyCh
Case "\u4e8c\u5341": MyCh = "020"
Case "\u4e09\u5341": MyCh = "030"
Case "\u56db\u5341": MyCh = "040"
Case "\u4e94\u5341": MyCh = "050"
Case "\u516d\u5341": MyCh = "060"
Case "\u4e03\u5341": MyCh = "070"
Case "\u516b\u5341": MyCh = "080"
Case "\u4e5d\u5341": MyCh = "090"
Case "\u4e00\u767e": MyCh = "100"
Case "\u5341\u4e00": MyCh = "011"
Case "\u5341\u4e8c": MyCh = "012"
Case "\u5341\u4e09": MyCh = "013"
Case "\u5341\u56db": MyCh = "014"
Case "\u5341\u4e94": MyCh = "015"
Case "\u5341\u516d": MyCh = "016"
Case "\u5341\u4e03": MyCh = "017"
Case "\u5341\u516b": MyCh = "018"
Case "\u5341\u4e5d": MyCh = "019"
End Select
ElseIf Len(MyCh) = 3 Then
Select Case Left(MyCh, 1)
Case "\u4e8c": a = "2"
Case "\u4e09": a = "3"
Case "\u56db": a = "4"
Case "\u4e94": a = "5"
Case "\u516d": a = "6"
Case "\u4e03": a = "7"
Case "\u516b": a = "8"
Case "\u4e5d": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "\u4e00": b = "1"
Case "\u4e8c": b = "2"
Case "\u4e09": b = "3"
Case "\u56db": b = "4"
Case "\u4e94": b = "5"
Case "\u516d": b = "6"
Case "\u4e03": b = "7"
Case "\u516b": b = "8"
Case "\u4e5d": b = "9"
End Select
MyCh = "0" + a + b
ElseIf Len(MyCh) = 4 Then
Select Case Left(MyCh, 1)
Case "\u4e00": a = "1"
Case "\u4e8c": a = "2"
Case "\u4e09": a = "3"
Case "\u56db": a = "4"
Case "\u4e94": a = "5"
Case "\u516d": a = "6"
Case "\u4e03": a = "7"
Case "\u516b": a = "8"
Case "\u4e5d": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "\u4e00": b = "1"
Case "\u4e8c": b = "2"
Case "\u4e09": b = "3"
Case "\u56db": b = "4"
Case "\u4e94": b = "5"
Case "\u516d": b = "6"
Case "\u4e03": b = "7"
Case "\u516b": b = "8"
Case "\u4e5d": b = "9"
End Select
MyCh = a + "0" + b
ElseIf Len(MyCh) = 5 Then
Select Case Left(MyCh, 1)
Case "\u4e00": a = "1"
Case "\u4e8c": a = "2"
Case "\u4e09": a = "3"
Case "\u56db": a = "4"
Case "\u4e94": a = "5"
Case "\u516d": a = "6"
Case "\u4e03": a = "7"
Case "\u516b": a = "8"
Case "\u4e5d": a = "9"
End Select
Select Case Mid(MyCh, 3, 1)
Case "\u4e00": b = "1"
Case "\u4e8c": b = "2"
Case "\u4e09": b = "3"
Case "\u56db": b = "4"
Case "\u4e94": b = "5"
Case "\u516d": b = "6"
Case "\u4e03": b = "7"
Case "\u516b": b = "8"
Case "\u4e5d": b = "9"
End Select
Select Case Right(MyCh, 1)
Case "\u4e00": c = "1"
Case "\u4e8c": c = "2"
Case "\u4e09": c = "3"
Case "\u56db": c = "4"
Case "\u4e94": c = "5"
Case "\u516d": c = "6"
Case "\u4e03": c = "7"
Case "\u516b": c = "8"
Case "\u4e5d": 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 "\u67e5\u627e\u66ff\u6362\u5b8c\u6bd5!"
End Sub
直接在目录里修改不行，到正文中修改，然后在目录中更新目录就可以了
右键就可以看到了
绛旓細鐩存帴鍦ㄧ洰褰曢噷淇敼涓嶈锛屽埌姝ｆ枃涓慨鏀癸紝鐒跺悗鍦ㄧ洰褰曚腑鏇存柊鐩綍灏卞彲浠ヤ簡 鍙抽敭灏卞彲浠ョ湅鍒颁簡
绛旓細鍕鹃夐氶厤绗
绛旓細1銆侀鍏坈trl+f鎵撳紑鏌ユ壘鍜屾浛鎹 2銆佺偣鍑诲脊绐椾腑楂樼骇鎼滅储锛岄変腑浣跨敤閫氶厤绗 3銆佸彲鍏堣緭鍏 (<[0-9]{3}) 灏濊瘯鏄惁鍙互鏌ユ壘鍑烘枃鏈唴绔犺妭鍚嶏紝鍙互鎵惧埌鐨勮瘽杩涜涓嬩竴姝 4銆佸垏鎹㈠埌鏇挎崲tab锛屾浛鎹负杈撳叆妗嗗唴杈撳叆绗琝1绔狅紝涔嬪悗鐐瑰嚮搴曢儴鍏ㄩ儴鏇挎崲锛屽嵆鍙皢绔犺妭鍚嶆浛鎹负闇瑕佺殑鍐呭 ...
绛旓細1銆佸惎鍔ㄦ墜鏈wps鏂囧瓧锛岀偣鍑讳綘鎯宠緭鍏ユ爣棰樼殑浣嶇疆锛屾帴鐫鐐瑰嚮宸ュ叿鎸夐挳銆2銆佹壘鍒扳滃紑濮嬧濊彍鍗曚笅鐨勬洿澶氭寜閽爣棰樻寜閽紝鍗斥滄爣棰3鈥濇梺杈圭殑3涓偣銆3銆侀変腑鈥滄爣棰樷濋夐」銆4銆佹帴鐫杈撳叆鏂囧瓧锛屾枃瀛楀氨浼氳嚜鍔ㄥ眳涓樉绀烘垚鏍囬鏍峰紡浜嗐
绛旓細鍏堟悳绱竴涓嬧滅珷 鈥濓紙鍗斥滅珷鈥濆瓧鍔犱竴涓┖鏍硷紝涓嶇敤寮曞彿锛夛紝鐪嬬湅鍑烘潵鐨勭粨鏋滄槸涓嶆槸閮芥槸鈥滅*绔犫濓紝濡傛灉鏄殑璇濓紝鎭枩锛屾帴涓嬫潵鐩存帴鏇挎崲灏辫锛堝叿浣撴楠ゆ槸鎶婂厜鏍囧厛鐐硅繘鏇挎崲鐨勮緭鍏ユ閲岋紝鍐嶇偣鍒颁笅闈㈢殑鈥滄洿澶氣-鈥滄牸寮忊-鈥滄牱寮忊濓紝閫夋嫨鎯宠鐨勬爣棰樻牸寮忓嵆鍙傛敞鎰忕湅涓涓嬫渶鍚庢槸涓嶆槸閫夋嫨鈥滄浛鎹负鐨勬牱寮忊濓紝鑰...
绛旓細鎸塩trl+h鎵撳紑鏇挎崲瀵硅瘽妗嗭紝鍗曞嚮楂樼骇鎴栬呮洿澶氾紝鍕鹃変娇鐢ㄩ氶厤绗 鍦ㄦ煡鎵惧唴瀹规涓緭鍏<[0-9]{1,}> 鏇挎崲涓烘涓緭鍏ョ^&绔燸32 鍗曞嚮鍏ㄩ儴鏇挎崲 妤间富鏈濂借兘澶熸埅鍥撅紝浣犵殑鎻忚堪寰堥毦鎵惧埌瑙勫緥锛屼篃鍙兘鐚滀簡
绛旓細鐢佃剳涓嶅湪韬竟锛屾ラ渶淇敼word鏂囨。閲岄潰鐨勫唴瀹癸紵鍊熷姪鎵嬫満鐗wps灏卞彲浠ヤ慨鏀箇ord鏂囨。鍟︼紒涓嬮潰鍚戝ぇ瀹朵粙缁嶄竴涓嬫搷浣滄柟娉曪細http://jingyan.baidu.com/article/020278116fd0811bcc9ce5f6.html
绛旓細姝ｅ垯琛ㄨ揪寮忓氨琛 鎶 Chapter(\d+) 鏇挎崲涓 绗$1绔 鏁板瓧鏈鍚庢浛鎹负姹夊瓧
绛旓細閫夋嫨鑷繁鍠滄鐨勬牱寮忥紝鎸夋牸寮忕紪杈戙
绛旓細^p(绗*绔?{1,9}^p)^m\1 绗﹀彿閮藉繀椤绘槸鑻辨枃鐨
