Set oApp = CreateObject("Word。Application")
oApp。Visible = False
Set oDoc = oApp。Documents。Open(strFile)'strFile为文件路径
'获得最后一段的内容
Dim length As Long '整个文档的长度
Dim i As Long
length = oDoc。
Content。StoryLength
Content = oDoc。Content。Text
Dim s As String
For i = 1 To length
If Mid$(Content, i, 1) = Chr$(13) Then
s = s + vbCrLf
Else
s = s + Mid$(Content, i, 1)
End If
Next i
oDoc。
Close True
oApp。Quit False
txtMx = s。
问：我的MVBOX摄像头打不开总是提示打开失败，请检查摄像头1设备驱动异常，请重新安装摄像头
答：如果笔记本有预装的内置摄像头设备，但是无法使用：1.建议进入设备管理器查看图形图像设备下是否有正常的hpwebcam设备，或者usbdevice（如果摄像头驱动...详情>>
答：'不需要任何控件,需要的是如下代码: '因为您的分值为0,并且考虑到您并不一定会采纳,所以请原谅小的不写注释.以下代码只帖出两天,若您觉得没用,那小的自会删除,...详情>>
