Access数据库培训
网站公告
·Access快速平台QQ群号:277422564    ·Access快速开发平台下载地址及教程    ·欢迎添加微信交流账号:Accessoft7    ·如何快速搜索本站文章|示例|资料!    
您的位置: 首页 > 技术文章 > Access数据库-窗体/数据页

黑龙江22选5官网:【Access示例】利用Word分词/利用Word对字符进行分词操作

黑龙江22选5 www.xyf1x.cn 时 间:2018-07-27 08:44:03
作 者:缪炜   ID:24010  城市:江阴
摘 要:利用Word分词/利用Word对字符进行分词操作
正 文:

比如现在有一串字符串内容,想自动识别出词语,这个该怎么来实现?

答案是可以利用word分词的功能来实现,代码如下:


    Dim sentence As String
    Dim words As String
    Dim WordApp As Object
    If IsNull(Me.Text74) Then
        MsgBox "请输入内容。", vbExclamation
        Me.Text74.SetFocus
        Exit Sub
    End If
    sentence = Me.Text74
    words = ""
    Set WordApp = CreateObject("Word.Application")
    WordApp.Documents.Add
    WordApp.Selection.TypeText Text:=sentence
    WordApp.Selection.HomeKey
    Do
        WordApp.Selection.MoveRight Unit:=2, Count:=1, Extend:=1
        If WordApp.Selection.Text = vbCr Then Exit Do
        words = words & WordApp.Selection.Text & ";"
        WordApp.Selection.MoveRight Unit:=1, Count:=1
    Loop
    WordApp.Quit SaveChanges:=0
    Set WordApp = Nothing
    Me.Text76 = words
    End


附   件:

点击下载此附件


演   示:



Access软件网官方交流QQ群 (群号:115120150)       access源码网店

最新评论 查看更多评论(1)

2018/7/27 9:28:11麥田

发表评论您的评论将提升作者分享的动力!快来评论一下吧!

用户名:
密 码:
内 容:
 

常见问答

技术分类

相关资源

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助