【Access示例】利用Word分词/利用Word对字符进行分词操作-will.miao
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-窗体/数据页


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

发表时间:2018/7/27 8:44:03 评论(1) 浏览(5435)  评论 | 加入收藏 | 复制
   
摘 要:利用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群(群号:198465573)
 
 相关文章
【access小品】词组的自动记忆  【todaynew  2010/4/5】
【access源码示例】-word导入导出系列-替换方式导出  【金宇  2012/8/6】
【Access小品】投机取巧---Word文件按模版生成示例  【煮江品茶  2012/8/9】
【Access源码示例】替换方式导出到word模板(含图片)  【宏鹏  2012/9/19】
【Access源码示例】判断WORD文档是否已打开  【宏鹏  2014/12/10】
创建基于模板的Word文档  【杨雪  2016/2/23】
通过文档属性将Access数据合并到Word  【杨雪  2016/3/1】
向WORD文件插入二维码和条形码  【健利宝  2017/6/9】
按单元格读取WORD表格数据  【林岚  2017/11/22】
把WORD表格数据复制粘贴到EXCEL工作表  【林岚  2017/11/22】
逐行读取WORD文档数据  【林岚  2017/11/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

will.miao

文章分类

文章存档

友情链接