by Raj Diwate (4 Submissions)
Category: Files/File Controls/Input/Output
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 9th March 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a Word document
' 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
No comments have been posted about Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a . Why not be the first to post a comment about Accessing the built-in properties like page numbers, lines, paragraphs, words, and characters in a .