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

【Access示例】利用Word分词/利用Word对字符进行分词操作

时 间: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群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

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