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

Access 2021-12-07

一、问题描述：

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

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

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 如何利用Word对一段文字进行分词

演示