主题：[求助]这样引用word中的VBA代码，错在哪里？请指教

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    For Each k As object In doc.Paragraphs
        If Len(Trim(k.Range.text)) = 1 Then k.Range.Delete
    Next
    doc.save
    app.quit
catch ex As exception
    msgbox(ex.message)
    app.quit
End try