如何从WORD中截取几段文字并存
以下是今天小的和几个同学一起研究的结果,不过问题还没有解决,您可以简单测试一下如下代码,剩下的就交给您自己完成吧,累啊T T
'在窗体中添加一个命令按钮:
Private Sub Command1_Click()
Dim MyWord As Object
'创建宏对象
Set MyWord = CreateObject("Word。 Application")
With MyWord
'创建一个Word文档
。Documents。Add。SaveAs FileName:=App。Path & "\test。 doc"
'返回这个文档中的第一个单词
StrText = 。ActiveDo...全部
以下是今天小的和几个同学一起研究的结果,不过问题还没有解决,您可以简单测试一下如下代码,剩下的就交给您自己完成吧,累啊T T
'在窗体中添加一个命令按钮:
Private Sub Command1_Click()
Dim MyWord As Object
'创建宏对象
Set MyWord = CreateObject("Word。
Application")
With MyWord
'创建一个Word文档
。Documents。Add。SaveAs FileName:=App。Path & "\test。
doc"
'返回这个文档中的第一个单词
StrText = 。ActiveDocument。Words(1)。Text
'因为这个新建的Word文档没有写入任何内容,因此StrText的值为""
'保存文档
。
ActiveDocument。SaveAs FileName:=App。Path & "\test。doc"
。Documents(App。Path & "\test。doc")。Close '关闭文档
End With
Set MyWord = Nothing
'返回变量StrText
MsgBox StrText
End Sub
这段代码会在您的当前目录下生成一个标准Word文档,文件名为"test。
doc",最后的对话框会返回文档中第一个单词""(因为没有写入内容。)
以下代码用于读取Word文档中的第一个单词,直接复制即可:
Private Sub Command1_Click()
Dim MyWord As Object
Set MyWord = CreateObject("Word。
Application") '创建宏对象
With MyWord
。Documents。Open FileName:="YourWordName" '打开文档,这里是您要读取的文档的名字,您必须自行修改
StrText = 。
ActiveDocument。Words(1)。Text '返回这个文档中的第一个单词
。Documents("YourWordName")。Close '关闭文档,这里的文件名必须和打开的文件名一致,请自行修改
End With
Set MyWord = Nothing
MsgBox StrText '返回读取到的文档内容
End Sub
这此代码是一定要用上的,绝对会对你有帮助。
看到如上代码,您应该已经知道这个问题的难度了。收起