Microsoft Office VB. NET programming, get the object of the current edited document, and print it to the console

Microsoft Office VB. NET programming, get the object of the current edited document, and print it to the console

For installation of the pia com component, see Microsoft msdn.

Imports Microsoft. Office. InterOP. Word

Imports system. runtime. interopservices
Module module1

Sub main ()
Dim wdglobal as globalclass
Dim Docs as documents

Dim filename as string
Dim doc as document
Try

'Get the current word Application Object
Wdglobal = new globalclass
Docs = wdglobal. Documents

'Get the object of the current edited document
If docs. Count () <> 0 then
Doc = Docs (1)
End if
If not Doc is nothing then
Console. writeline (Doc. Path + "//" + Doc. Name)

'Print document content on the console
Console. Write (Doc. content. Text)
Console. writeline ()
End if
Catch ex as comexception
Console. writeline (ex. Message)
End try
Console. writeline ("input return key to end ")
Console. Readline ()
End sub

End Module