Jump to content

Control Word with visual lisp


Montinho

Recommended Posts

Hi Bigal.

Thanks for your tip.

The texts I intend to transfer to word are extracted from autocad entities lists, i.e. (-3 (NEWDATA (1000 . F. 0001-5))) and (-3 (NEWDATA (1000 . F. 0002-10)))

So, in MS Word report I will have

 

Code Thick

F. 0001 5

F. 0002 10

Thats why I cant't solve it with copy and paste.

 

Thanks for your help.

Link to comment
Share on other sites

If you are already pulling the values out just make a mtext use copyclip, erase last then just have word open and paste. You should be able to do this paste automatically into word.

 

Had another look.

 

Find this in fixo code (write_to_end wrdapp "Now it is the last line in the document" ) you should be able to have a string value here say newTEXT = "F001 5" (write_to_end wrdapp newTEXT)

Link to comment
Share on other sites

I had a play with the fixo code and it took a little bit of trial and error as I have a newer version of word but it worked I was able to add lines of text that I entered (setq ans "Bigal was here")

 

It needs to be looked at carefully as it closes the doc so you dont see what is happening, the other thing is you need to do like a regen in Word (vlax-put-property wrdapp 'ScreenUpdating :vlax-true) or you wont see it. So baiscaly its about using the relevant parts of the code.

 

; writes 3 lines at end note the \n for new line
; else it will put all on 1 line
(repeat (setq x 4)
(write_to_end wrdapp (strcat "\nThis is line " (rtos (setq x (- x 1)) 2 0))) 
)

 

Can you provide more detail about what it is your pulling the values from or the code your using.

 

Ps has anyone heard any more about Fixo ?

Link to comment
Share on other sites

Bigal,

 

I will try this.

 

Would anyone know something about the vlips functions to set margins on word document?

 

Thanks once more for your help.

Link to comment
Share on other sites

Bigal,

 

these are the information I need transfer from Autocad to MS Word:

(-3 (NEWDATA (1000 . F. 0001-5))), (-3 (NEWDATA (1000 . F. 0002-10))), (-3 (NEWDATA (1000 . F. 0003-15))) , (-3 (NEWDATA (1000 . F. 0004-20)))

From these lists I extracted the informations:

F. 0001, F. 0002, F. 0003, F. 0004 to write under column "Código" (code in english).

5, 10, 15, 20 to write under column "Espessura" (thickness in english), as you can see in one line of my report below. I have used tabs.

And I thank the Fixo codes where I found the skills to do it.

I have almost suceed in my job. The only thing I still need is to set margins to the document, and justify tab columns to the center, to improve formatting.

But, I would like to know a lot more about this matter. So I would like to discover a book, or e-book where I could find deep information about controlling Word

an Excel by vlisp.

LCdjOiiioTgAAAAASUVORK5CYII=

Link to comment
Share on other sites

Has anyone heard about Fixo?

Fixo, could you help me about functions to set tabs distance in MS Word?

Thanks for any help.

Link to comment
Share on other sites

I was enquiring as to the health of Fixo, who we have not heard from for some time.

 

You need to do some Word training or at least use macro record this will write VBA code, you just go to the macro option and open for edit.

Link to comment
Share on other sites

  • 3 years later...

Image is simplest can open in paint etc and clip if required then just paste into word.

 

A table is an object in word and theoretically you could read a Autocad table and recreate in Word but just no demand unlike excel.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...