Display full version of the post: Insert and format text in word with visual lisp

hildevasco_br
04.03.2018, 21:03
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