注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

濟寬餘語

天空是一樣的,而多變;洞窟是不一樣的,卻難變。(本博客日誌未注出處者皆系原創)

 
 
 

日志

 
 

濟寬之宏(十三):文本_標點的繁簡體轉換  

2011-10-21 20:55:42|  分类: 數碼生活 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

'主程序

Sub 文本标点繁简体转换()

  ReDim ShuZu1(14), ShuZu2(14)

  文本标点符号繁简体 '此命令调用子程序。
   
    For i = 1 To 14
        TEXT1 = ShuZu1(i) '定义繁体标点数组
        TEXT2 = ShuZu2(i) '定义简体标点数组
        ActiveDocument.Range.Text = Replace(ActiveDocument.Range, TEXT1, TEXT2) '此命令为繁体转简体。

'上條命令的活用法:對調TEXT1和TEXT2的位置,即為簡體轉繁體。

'上條命令的活用法2:將TEXT2改為"",即為刪除文本的所有標點,將標點本轉換為白文。

        MsgBox TEXT1 & vbTab & TEXT2 '依次顯示轉換結果。
    Next i
 
End Sub

 

'子程序

Public Sub 文本标点符号繁简体()

    ShuZu1(1) = "<":   ShuZu2(1) = Chr(-24138) '"《"
    ShuZu1(2) = ">":   ShuZu2(2) = Chr(-24137) '"》"
    ShuZu1(3) = ",":    ShuZu2(3) = Chr(-23636) '","
    ShuZu1(4) = ";":    ShuZu2(4) = Chr(-23621) '";"
    ShuZu1(5) = "?":    ShuZu2(5) = Chr(-23617) '"?"
    ShuZu1(6) = ".":    ShuZu2(6) = Chr(-24157) '"。"
    ShuZu1(7) = ":":    ShuZu2(7) = Chr(-23622) '":"
    ShuZu1(8) = "!":   ShuZu2(8) = Chr(-23647) '"!"
    ShuZu1(9) = "「":   ShuZu2(9) = Chr(-24144) ' """
    ShuZu1(10) = "」":  ShuZu2(10) = Chr(-24143) '"""
    ShuZu1(11) = "﹖":  ShuZu2(11) = Chr(-23617) '"?"
    ShuZu1(12) = "『":  ShuZu2(12) = Chr(-24146) '"'"
    ShuZu1(13) = "』":  ShuZu2(13) = Chr(-24145) '"'"
    ShuZu1(14) = "、":  ShuZu2(14) = Chr(-24158)  '"、"
End Sub

  评论这张
 
阅读(263)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017