当前位置:萝卜系统下载站 > 办公软件教程 > 详细页面

Access 如何运用Word对一段文字进行分词

Access 如何运用Word对一段文字进行分词

更新时间:2023-07-06 文章作者:未知 信息来源:网络 阅读次数:

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点,是 Microsoft Office 的系统程序之一。Microsoft Office Access是微软把数据库引擎的图形用户界面和软件开发工具结合在一起的一个数据库管理系统。它是微软OFFICE的一个成员, 在包括专业版和更高版本的office版本里面被单独出售。2018年9月25日,最新的微软Office Access 2019在微软Office 2019里发布。

一、问题描述:

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

二、解决方法:

可以利用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对一段文字进行分词

演示


Microsoft Access在很多地方得到广泛使用,例如小型企业,大公司的部门。

温馨提示:喜欢本站的话,请收藏一下本站!

本类教程下载

系统下载排行

网站地图xml | 网站地图html