Topic: lisp to read ms word documents

[andrew_nao]

Error: bad list: "this is a test\r"ActiveX Server returned an
error: The object invoked has disconnected from its clients

any clue what this means?

[andrew_nao]

does anyone know how i can read a header or footer?
i just am not seeing where in the property of the document the header is called out.

[irneb]

You might need to "select" something in the document. It seems the header / footer collection is only obtainable through the selection object:
http://msdn.microsoft.com/en-us/library/office/aa172758%28v=office.11%29.aspx

[andrew_nao]

im prety sure ive been thru all the properties and the properties of properties of the document and i didnt see anything remotely close to being a header but i will go thru it again now that ive had some sleep and im fresh to go.

[andrew_nao]

found it

Command: (vlax-dump-object (vlax-get-property (vlax-get-property
(vlax-get-property(vlax-get-property wa 'ActiveDocument)'sections) 'First)
'Headers))
; HeadersFooters: nil
; Property values:
;   Application (RO) = #<VLA-OBJECT _Application 0000000021ef4af8>
;   Count (RO) = 3
;   Creator (RO) = 1297307460
;   Parent (RO) = #<VLA-OBJECT Section 00000000381311e8>
;   _NewEnum (RO) = #<IUnknown 0000000033591a20>
T

now how to get the text inside the header?

[ronjonp]

Use vlax-for or vla-item.

Code: [Select]

;; Gets all the text and appends them to list 'l'
(vlax-for x (setq headers (vlax-get (vlax-get (vlax-get doc 'sections) 'first) 'headers))
  (setq l (cons (vlax-get (vlax-get x 'range) 'text) l))
)
;; Gets the item at index 1 <-- Use this to drill down and find properties and methods in the VLIDE
(vla-item headers 1)


[andrew_nao]

Use vlax-for or vla-item.

ahhh i was missing something..

i was using

 (setq wrds (cons (vlax-get (vlax-get word 'range) 'text) wrds))
but was getting
; error: bad argument type: VLA-OBJECT nil

thanks for the heads up