这样,先引用word对象 Private Sub Command1_Click() Dim AppWord As Word.Application Set AppWord = New Word.Application Dim mDoc As Word.Document Set mDoc = AppWord.Documents.Open("d:\nn\123.doc")'换成你的文件路径 Dim mLists As Word.Lists Set mLists = mDoc.Lists MsgBox mLists.Count Set mLists = Nothing mDoc.Close Set mDoc = Nothing AppWord.Quit Set AppWord = Nothing End Sub
判断word 文档里面
有没有插入项目符号
http://www.24xuexi.com/tutorial/computer/jichu/Word/2006-01-18/1137542400d155402.html
Private Sub Command1_Click()
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Dim mDoc As Word.Document
Set mDoc = AppWord.Documents.Open("d:\nn\123.doc")'换成你的文件路径
Dim mLists As Word.Lists
Set mLists = mDoc.Lists
MsgBox mLists.Count
Set mLists = Nothing
mDoc.Close
Set mDoc = Nothing
AppWord.Quit
Set AppWord = Nothing
End Sub