Word分词功能

最新推荐文章于 2024-05-12 10:02:53 发布

原创最新推荐文章于 2024-05-12 10:02:53 发布 · 772 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vba #access #数据库

Access开发同时被 3 个专栏收录

142 篇文章

订阅专栏

vba

124 篇文章

订阅专栏

Excel

17 篇文章

订阅专栏

本文介绍了如何使用Word的分词功能，通过创建窗体、添加代码实现从中文文本中简单提取词语。步骤包括创建文本框、编写代码处理用户输入并获取分词结果，适合初学者理解中文文本处理基础。

哈喽，手机边亲爱的你好呀！

今天要给大家分享一个“分开”示例。

假设我们现在提供给大家一长段的文字，需要从这长段的文字中提取出词语，要求不用太高，不需要非常的精准，当看到这个需求时，感觉无从下手，不知道该怎么来操作，直到遇到了word的一个分词的功能。

分词就是将连续的字序列按照一定的规范重新组合成词序列的过程。在英文中，单词之间会以空格作为分割符，将词与词之间进行分割，但是对于中文，没有一个显式的分割符。我们接下去看一下这个东西该怎么做。

01、创建窗体

我们在窗体上放两个文本框，一个用来输入文字，一个用来输出

02、添加代码

接下去我们来添加一下代码

Private Sub btnOK_Click()
    Dim sentence As String
    Dim words As String
    Dim WordApp As Object
    If IsNull(Me.txt文字) Then
        MsgBox "请输入内容。", vbExclamation
        Me.txt文字.SetFocus
        Exit Sub
    End If
    sentence = Me.txt文字
    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.txt分词 = words
    End
End Sub

03、运行测试

输入一段文字后，然后运行测试。