Access 如何运用Word对一段文字进行分词
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
三、演 示:
演示
Microsoft Access在很多地方得到广泛使用，例如小型企业，大公司的部门。
……