Print Page | Close Window

Insert and format text in word with visual lisp

Printed From: CAD Forum
Category: EN
Forum Name: AutoCAD
Forum Description: Discussion about AutoCAD and AutoCAD LT, viewers, DWG and DWF formats, Design Review, AutoCAD 360, add-ons
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=12646
Printed Date: 31.May.2026 at 21:40


Topic: Insert and format text in word with visual lisp
Posted By: hildevasco_br
Subject: Insert and format text in word with visual lisp
Date Posted: 04.Mar.2018 at 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



-------------
Thanks


Print Page | Close Window