作者：乔山办公网日期：
返回目录：word文档
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.IO.Directory.CreateDirectory("C:\我的文件夹") '创建百度目录,路径就自己改吧,如果路径存在,就没必版要创建了权
System.IO.File.Create("C:\我的文件夹\我的文件.doc") '在指定目录下创建word文档
End Sub
判断指定的WORD文档是否被打开e799bee5baa6e997aee7ad94e78988e69d83362的函数代码如下：
Function WordDocIsOpen(ByVal strDocName As String) As Boolean
Dim objWordApp As Object
Dim objWordDoc As Object
On Error Resume Next '此句不能少
strDocName = UCase(strDocName)
Set objWordApp = GetObject(, "Word.Application")
For Each objWordDoc In objWordApp.Documents
If UCase(objWordDoc.FullName) = strDocName Then
WordDocIsOpen = True
Exit For
End If
Next
Set objWordDoc = Nothing
Set objWordApp = Nothing
End Function
调用代码：
Private Sub main()
If WordDocIsOpen("e:/1.doc") Then
MsgBox "该文档已被打开"
Else
MsgBox "该文档未被打开"
End If
End Sub
按住Alt键，同时按住鼠标左键并移动鼠标进行指定区域选择，然后按Ctrl+C,进行复制，即可读取指定区域的内容。
把copy objWordApp = GetObject("Word.Application")
改成 objWordApp = GetObject("", "Word.Application")，同时百最度好不问要用
On Error Resume Next,改用答
Try
Catch ex As Exception
End Try