[原创]上班记（四十四）----网站编辑节约时间必杀技的开发

我仔细分析了所有编辑的工作，因为我自己也在做编辑，我发现我们一上午顶多能传15篇文章，还要耗费下午1个多小时，除了要花一点时间找和筛选以外，最大时间居然花费在排版上！

说起来大家可能不相信，当时我们网站要求所有文章排版要统一，段落间距要一致，体现出我们网站的规范性，不要象以往随便从一个网站转过来一复制，其实排版都是乱的。

这样的话，我们就需要把无数个网站编辑的排版风格一个一个修改成我们网站的格式，一篇文章找5分钟，上传1分钟，但编辑格式可能需要10分钟！

为了缩短这个时间，大家想了很多办法，例如有的编辑喜欢复制文章到记事本中，然后一一修改，把段落空行等格式给它复制过去。

这个时候我想到其实这无非是个替换操作，包括替换一些特殊字符而已，例如段落标记之类，可以到WORD中操作，怎样的字符都可以替换，效率果然大大提高，我渐渐发现，替换是有规律的，如果按照一定规律替换，基本上可以做到没问题。

这样我就想到写一个宏，这个WORD宏可以把文章复制下来后， 全部自动替换成你想要的HTML格式，然后复制到后台用HTML格式上传，一定OK。

整个编辑过程只需要5秒钟，太爽了！这样的话我每天至少节约了20*6=120分钟，也就是两个小时的时间，这些时间，自然可以用来做社区推广了，更重要的是，由于我发明了这个工具，极大解放了编辑的劳动，他们非常佩服我的IT编程能力（其实也就是一个小宏），只要我把文章给他们，他们都愿意主动帮我发，因为总的时间节约了太多了。

这个宏写出来后，我就从编辑工作中解放出来了。从此可以专心研究如何推广社区了。

这个事情很让我得意，我不由想起一句话：没有简单的工作，把简单的工作做出不平凡，就是不简单。

张瑞敏先生，在这个事情上，我做到了！

顺便把这个宏代码写出来，也许对一些编辑有帮助，现在用一样可以的。在WORD中建立一个宏命令，给他一个操作快捷键，然后复制进宏代码区域，就可以用了。

Selection.HomeKey Unit:=wdStory
    Selection.TypeText Text:="    "
    Selection.HomeKey Unit:=wdStory
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .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.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "　"
        .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.HomeKey Unit:=wdStory
    With Selection.Find
        .Text = "_"
        .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.HomeKey Unit:=wdStory

    With Selection.Find
        .Text = ""
        .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.HomeKey Unit:=wdStory
   
    With Selection.Find
        .Text = "-"
        .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.HomeKey Unit:=wdStory
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "<BR>&nbsp;&nbsp;&nbsp;&nbsp;"
        .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.HomeKey Unit:=wdStory
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^l"
        .Replacement.Text = "<BR>&nbsp;&nbsp;&nbsp;&nbsp;"
        .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.HomeKey Unit:=wdStory
   
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp;&nbsp;"
        .Replacement.Text = "<BR>&nbsp;&nbsp;&nbsp;&nbsp;"
        .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