欧非资源网：安全、免费、专业放心的资源下载站！ 最新软件|软件分类

excel怎么制作表格 office 2020激活版下载

• 网站首页安卓应用安卓游戏电脑软件office教程

Office专区Word专区Excel专区PPT专区电脑专区手机专区其他专区

您的位置：欧非资源网 > 其他专区 > Access > Access 如何利用Word对一段文字进行分词

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

时间：2020-04-07 19:12作者：admin来源：未知人气：380我要评论(0)

一、问题描述：

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

二、解决方法：

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

三、演 示:

演示

相关阅读 ​access怎么做点击选择学历的效果​access怎么取消冻结字段​access怎么冻结字段​access怎么删除子数据表​access怎么在表格中插入子数据表​access设置快速访问栏在功能区下方显示​access设置快速访问栏在功能区上方显示​access怎么将设计视图加到快速访问栏​access怎么将导出Excel表格加到快速访问栏​access怎么将数据表视图加到快速访问栏

文章评论

查看所有0条评论>>

发表评论

提交评论

分类索引

• WPS教程
• Outlook
• Visio
• OneNote
• Access
• Publisher
• SharePoint
• Project
• EndNote

热门文章 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩

最新文章 ​access怎么做点击选择学历的效果​access怎么取消冻结字段 ​access怎么冻结字段​access怎么删除子数据表​access怎么在表格中插入子数据表​access设置快速访问栏在功能区下方显示

人气排行 Microsoft Office Access 2019 官方版激活版 免费下载如何设计一个简单的Access登录窗体Access创建数据库实现图解教程access怎么求平均成绩怎么在Access报表的页面页脚区添加一个计算控件Access 2007、2010、2016三个版本的使用心得Access查询标准(条件)详解电脑没有access怎么办？ access文件打不开怎么办？