查看完整版本: [原创]制作本网站小说区的小说txt版本的简单办法

[原创]制作本网站小说区的小说txt版本的简单办法

小说区的小说大多格式有点问题，就是多了一个段落标记，也就是说每行一个分段;
这个问题在网页上看不明显，但是制作txt小说，自己放在手机上看就问题大了，段落一塌糊涂,不该分段的地方也是分段。

我提供一小段代码，用word的新建宏命令，然后复制粘贴进去，做成一个按钮，解决这个问题就方便多了，一键搞定[code]'
' 去单行换行符 Macro
'
    ActiveWindow.ActivePane.VerticalPercentScrolled = 0
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p^p"
        .Replacement.Text = "^l"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "^p"
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub[/code]

以上代码绝对不含病毒！ID保证！
制作方法：用word菜单里的”工具“-”宏“-”创建新宏“
然后复制粘贴代码

一般都是用emeditor脚本中“段落重排”搞定的:smoke

谢谢 kongcheng兄，我没用过emedit，刚才下载了一个，仔细找了一下，没看见“段落重排”，能说详细点吗？

下载这个帖子中的脚本[url]http://67.220.91.28/bbs/thread-2108017-1-1.html[/url]

在“宏”的下拉项里选择加载这个脚本，段落重排在“格式整理”那个分类里边。

仔细研究这个脚本吧，可以省很多功夫。:teeth

谢谢kongcheng兄！我去那个链接看了，因为所在的用户组无法下载或查看附件，没法尝试
不知要怎样条件才够，也许以后可以吧，不管怎样，多谢kongcheng兄的指点！:excellence

刚才搜索了一下，在别的网站下载了脚本，但是好像没有文心阁专用脚本，再琢磨琢磨~~

来学习一下，看来很多东西都不知道呢
以前只看电子书，不知道怎么知作的

此方法仅限于本论坛的txt小说复制哦
emedit我试过了，脚本相当复杂，不如这个简便。。。。

谢谢楼主提供的编程方面的知识！去研究下别的论坛的方法。

不错哦，受教了，下次可以自己制作电子书了

一般都是用emeditor脚本中“段落重排”搞定的

高手挺多的嘛，受教了，收藏一下，以后遇到问题也能学习一下。