字体的大小对标点符号的位置有一定的影响，你在备注字段中调整标点符号的位置有什么用，现用现调整。

要實現樓主所希望的功能，其實不難，但正如樓上說的，這個好像沒多大實用價值啊。要百分百完美是不可能的，麻煩在於做到後來，付出與回報將越來越不成比例，而做不完美，等於白做。Word的中文排版，實際上也不完美，WPS的也差不多。

[ 本帖最后由 TonyDeng 于 2014-3-3 20:21 编辑 ]

*!* 校验行首是否为中文标点符号（包括"，"。"》"三种），如果是则把标点符号删掉在它前一行尾增加此标点符号
*!* 用法bdfh(首行变量，下一行变量，1或2），如果是1则返回首行，2则返回第二行
*!*    如bdfh(a1,b1,1)则返回a1值，bdfh(a1,b1,2)则返回b1值
FUNCTION bdfh
  PARAMETERS sbdfhtmp,wbdfhtmp,bdfhtmp
  IF TYPE("sbdfhtmp")#"C" OR TYPE("wbdfhtmp")#"C" OR TYPE("bdfhtmp")#"N"
    RETURN ""
  ENDIF
  cCode=SUBSTRC(wbdfhtmp,1,1)
  DO WHILE cCode$"，》。、？！；：”"
    sbdfhtmp=sbdfhtmp-cCode
    wbdfhtmp=SUBSTRC(wbdfhtmp,2)
  ENDDO
  RETURN IIF(bdfhtmp=1,sbdfhtmp,wbdfhtmp)
ENDFUNC

*!* 校验行首是否为中文标点符号（包括"，"。"》"三种），如果是则把标点符号删掉在它前一行尾增加此标点符号
*!* 用法bdfh(首行变量，下一行变量，1或2），如果是1则返回首行，2则返回第二行
*!*    如bdfh(a1,b1,1)则返回a1值，bdfh(a1,b1,2)则返回b1值
FUNCTION bdfh
  PARAMETERS sbdfhtmp,wbdfhtmp,bdfhtmp
  IF TYPE("sbdfhtmp")#"C" OR TYPE("wbdfhtmp")#"C" OR TYPE("bdfhtmp")#"N"
    RETURN ""
  ENDIF
  cCode=SUBSTRC(wbdfhtmp,1,1)
  DO WHILE cCode$"，》。、？！；：”"+",.?!:;"&&考虑到部分单字节标点符号
    sbdfhtmp=sbdfhtmp-cCode
    wbdfhtmp=SUBSTRC(wbdfhtmp,2)
  ENDDO
  RETURN IIF(bdfhtmp=1,sbdfhtmp,wbdfhtmp)
ENDFUNC

收到的鲜花

• qczx3358 于 2014-03-04 20:57 送鲜花  5朵   附言：我很赞同

我有更好的思路：将备注文件的内容整体导出到WORD文件中，因为WORD具有处理行尾标点符号的功能。

我用这段代码，计算机就不响应了。

*!* 校验行首是否为中文标点符号（包括"，"。"》"三种），如果是则把标点符号删掉在它前一行尾增加此标点符号
*!* 用法bdfh(首行变量，下一行变量，1或2），如果是1则返回首行，2则返回第二行
*!* 如bdfh(a1,b1,1)则返回a1值，bdfh(a1,b1,2)则返回b1值
Function bdfh
Parameters sbdfhtmp,wbdfhtmp,bdfhtmp
If Type("sbdfhtmp")#"C" Or Type("wbdfhtmp")#"C" Or Type("bdfhtmp")#"N"
    Return ""
Endif
cCode=Substrc(wbdfhtmp,1,1)
IF cCode$"，》。、？！；：”"+",.?!:;"&&考虑到部分单字节标点符号
    sbdfhtmp=sbdfhtmp-cCode
    wbdfhtmp=Substrc(wbdfhtmp,2)
ENDIF
Return Iif(bdfhtmp=1,sbdfhtmp,wbdfhtmp)
Endfunc

把do while改成if就正常用了。

非常感谢！

其实用do while ... enddo语句，是为了防止如下类似的东西存在
第一行：    我看过一本书《潜水员是如何练成的
第二行：？》。该书写的是一个人如何成为优秀的
第三行：潜水员。
其中第二行应该将三个双字节往上一行移动才行。
程序出了点问题，修改如下
FUNCTION bdfh
  PARAMETERS sbdfhtmp,wbdfhtmp,bdfhtmp
  IF TYPE("sbdfhtmp")#"C" OR TYPE("wbdfhtmp")#"C" OR TYPE("bdfhtmp")#"N"
    RETURN ""
  ENDIF
  DO WHILE SUBSTRC(wbdfhtmp,1,1)$"，》。、？！；：”"
    sbdfhtmp=sbdfhtmp-SUBSTRC(wbdfhtmp,1,1)
    wbdfhtmp=SUBSTRC(wbdfhtmp,2)
  ENDDO
  RETURN IIF(bdfhtmp=1,sbdfhtmp,wbdfhtmp)
ENDFUNC

[ 本帖最后由 Tiger5392 于 2014-3-6 10:04 编辑 ]

非常感谢你噢。。