首页 > 其他专区 > Access >

Access 如何利用Word对一段文字进行分词一、问题描述:二、解决方法:三、演 示:

Access 2021-06-25 20:55:38

一、问题描述:

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

二、解决方法:

可以利用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

三、演 示:

利用Word对一段文字进行分词

演示



标签: Access 如何 利用 Word 一段 文字 进行 分词

免责声明: 1、本站部分内容系互联网收集或编辑转载,并不代表本网赞同其观点和对其真实性负责。
2、本页面内容里面包含的图片、视频、音频等文件均为外部引用,本站一律不提供存储。
3、如涉及作品内容、版权和其它问题,请在30日内与本网联系,我们将在第一时间删除或断开链接!
4、本站如遇以版权恶意诈骗,我们必奉陪到底,抵制恶意行为。
※ 有关作品版权事宜请联系客服邮箱:3801085100#qq.com(#换成@)

site教程网 Copyright © 2016-2021 site.net.cn. Some Rights Reserved. 备案号:渝ICP备2023004149号-43