Hello
I'm having trouble inserting a text file into word and trying to apply font formatting to it.
(defun c:TWORD_1 ( )
(setq txtNomModWor "c:\coco\WD_MODELO01.dotx")
(setq TxtNomArqTmp "c:\coco\ARQTEXTOTMP.TXT")
(setq wordapp (vlax-get-or-create-object "Word.Application"))
(if wordapp
(progn
(vla-put-visible wordapp :vlax-true)
(setq worddocs (vlax-get-property wordapp 'Documents))
(if worddocs
(progn
(vlax-invoke-method worddocs 'Add SLT_ModeloMemorial :vlax-false)
(setq worddoc (vlax-get-property wordapp 'Activedocument))
(if worddoc
(progn
(vlax-put-property wordapp 'ScreenUpdating :vlax-true)
;Insere arquivo texto externo
(setq ObjSelection (vlax-get-property wordapp 'Selection))
(setq ObjRange (vlax-invoke-method ObjSelection 'Goto 3 1 19))
(vlax-invoke-method ObjSelection 'InsertFile TxtNomArqTmp "" :vlax-false :vlax-false :vlax-false)
(setq ObjRange (vlax-invoke-method ObjSelection 'Previous))
(vlax-put-property (vlax-get-property ObjRange 'ParagraphFormat) 'Alignment 3) ;runing ok
;************************************
;problem not runing
(vlax-put-property (vlax-get-property ObjRange 'Font) 'Name "Arial") ;not runing
(vlax-put-property (vlax-get-property ObjRange 'Font) 'Size 10) ;not runing
;************************************
(vlax-release-object ObjSelection)
(vlax-release-object ObjRange)
)
)
(vlax-release-object worddoc)
)
)
(vlax-release-object worddocs)
)
)
(vlax-release-object wordapp)
)
(defun c:TWORD_2 ( )
(setq txtNomModWor "c:\coco\WD_MODELO01.dotx")
(setq TxtNomArqTmp "c:\coco\ARQTEXTOTMP.TXT")
(setq wordapp (vlax-get-or-create-object "Word.Application"))
(if wordapp
(progn
(vla-put-visible wordapp :vlax-true)
(setq worddocs (vlax-get-property wordapp 'Documents))
(if worddocs
(progn
(vlax-invoke-method worddocs 'Add SLT_ModeloMemorial :vlax-false)
(setq worddoc (vlax-get-property wordapp 'Activedocument))
(if worddoc
(progn
(vlax-put-property wordapp 'ScreenUpdating :vlax-true)
;Insere arquivo texto externo
(setq ObjSelection (vlax-get-property wordapp 'Selection))
(setq ObjRange (vlax-invoke-method ObjSelection 'Goto 3 1 19))
(vlax-invoke-method ObjSelection 'InsertFile TxtNomArqTmp "" :vlax-false :vlax-false :vlax-false)
(vlax-invoke-method ObjSelection 'MoveUp 4 5)
(setq NumLinha
(vlax-invoke-method ObjSelection 'MoveDown 5 NumLinha 1) ;NOT
(vlax-put-property (vlax-get-property ObjSelection 'ParagraphFormat) 'Alignment 3)
(vlax-put-property (vlax-get-property ObjSelection 'Font) 'Name "Arial")
(vlax-put-property (vlax-get-property ObjSelection 'Font) 'Size 10)
(setq ObjRange (vlax-invoke-method ObjSelection 'Previous))
(vlax-put-property (vlax-get-property ObjRange 'ParagraphFormat) 'Alignment 3) ;runing ok
;************************************
;problem not runing
(vlax-put-property (vlax-get-property ObjRange 'Font) 'Name "Arial") ;not runing
(vlax-put-property (vlax-get-property ObjRange 'Font) 'Size 10) ;not runing
;************************************
(vlax-release-object ObjSelection)
(vlax-release-object ObjRange)
)
)
(vlax-release-object worddoc)
)
)
(vlax-release-object worddocs)
)
)
(vlax-release-object wordapp)
)
Thanks if anyone can help me
Thank you