• Home
 · 
• Files/File Controls/Input/Output
 · 
• Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a

Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a

Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a Word document

Rate Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

' Before running this code please attach microsoft office 9.0 library
' using reference in project menu

' Objects  for automation
Dim wdApp      As Word.Application
Dim docNew     As Word.Document

' variables to display builtin properties
Dim vPages         As Variant
Dim vParas         As Variant
Dim vLines         As Variant
Dim vWords         As Variant
Dim vChars         As Variant

On Error GoTo ERR

'  Setting objects
    Set wdApp = New Word.Application
    Set docNew = wdApp.Documents.Open("c:\faltu\AAREL-MC.A23.doc")
    
    wdApp.ActiveDocument.Repaginate
    
    Debug.Print "Pages   " & wdApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
    Debug.Print "Paras   " & wdApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyParas)
    Debug.Print "Lines   " & wdApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyLines)
    Debug.Print "Words   " & wdApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
    Debug.Print "Chars   " & wdApp.ActiveDocument.BuiltInDocumentProperties(wdPropertyCharacters)
    
    'Closing application
    wdApp.Quit (0)
    ' Releasing objects
    Set wdApp = Nothing

ERR:
    wdApp.Quit (0)
    Set wdApp = Nothing
    
End Sub