CCED文件向Word文件的转换技巧

Author: 四川陈晓敏 Date: 1995-12-01

        在录入CCED文件时，可随意设定左右边界，按CCED的排版方式进行排版(不必设定控制码)，只能按原码格式存盘退出(若按文本文件、分离模式、加密方式存盘，将不能正确分段和读出)。
        在中文Word下，调出CCED文件，选择文本文件类型，即可将CCED文件调入中文Word环境下。调入后的CCED文件存在三个问题：一是每段行首出现四个字符的空格：二是自动换行(即软回车)处出现了一个字符的空白(不是空格)：三是CCED排版时在文字间插入的软空格在Word下显示为“”。行首出现的空格可用替换的方法加以消除；软回车和软空格却不能用一般的替换法进行替换，如执行人工替换，会出现“未找到搜索字符串”信息，因而无法消除。若人工删除，不仅工作量大，而且容易漏删。笔者通过摸索，编制了一个WordBasic宏文件进行替换，即可消除。值得注意的是：录入该宏文件时，需替换的软回车、软空格不能直接输入，而要从CCED调入Word后的文件里复制。将此宏文件存在Normal模板文件下，加入到Word菜单或工具栏里，就可以方便使用了。
        完整的宏文件如下：
        Sub MAIN
        For i=1 To 20
        Beep    '设置音响
        Next
        Start0fDocument
        EditReplace,Find="W",.Replace=" ",.MatchByte=
        1,.MatchCase=0,.Format=0,\   '替换空格
        .ReplaceAll=1
        EditReplace .Find="",.Replace=" ",.MatchByte=1,.MatchCase=0,.Format=0,\  '替换软空格，只能用复制和粘贴的办法录入。
        .ReplaceAll=1
        EditReplace.Find="",.Replace="",.MatchBtye=1,.MatchCase=0,.Format=0,\  '替换软回车，只能用复制和粘贴的办法录入。
        .ReplaecAll=1
        End Sub
        (四川  陈晓敏)