能用vlisp生成word文档吗？

yhyqyx

怎样用vlisp生成word文档，包含图片和文字

vormittag

不如想办法输出 *.tex 用 latex 编译成 pdf 文档。
Word 文档既丑又不好用。

中国梦

Word 文档既丑又不好用。

ytianxia

https://www.cadtutor.net/forum/topic/58928-generate-a-word-doc-with-vlisp/
可以参考一下。
vlisp 支持调用com接口，通过com接口来操作word就是了。

vitalgg

1. (defun word:example (filename str / ax-word ax-doc)
   
2.   "word 类函数调用示例"
   
3.   "nil"
   
4.   ""
   
5.   "建立 word app"
   
6.   (setq ax-word (word:open filename nil))
   
7.   "文档对象 ax-doc"
   
8.   (setq ax-doc (vlax-get-property ax-word 'ActiveDocument))
   
9.   "向文档对象写内容"
   
10.   (word:write-line ax-doc str)
    
11.   "关闭文档"
    
12.   (word:close ax-doc)
    
13.   "关闭 app"
    
14.   (word:quit ax-word t))
    
15. ;; 向word文档 abc.docx 末尾写一段内容。
    
16. (word:example "d:\\abc.docx" "\naaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")

(defun word:example (filename str / ax-word ax-doc)<br />   "word 类函数调用示例"<br />   "nil"<br />   ""<br />   "建立 word app"<br />   (setq ax-word (word:open filename nil))<br />   "文档对象 ax-doc"<br />   (setq ax-doc (vlax-get-property ax-word 'ActiveDocument))<br />   "向文档对象写内容"<br />   (word:write-line ax-doc str)<br />   "关闭文档"<br />   (word:close ax-doc)<br />   "关闭 app"<br />   (word:quit ax-word t))<br /> ;; 向word文档 abc.docx 末尾写一段内容。<br /> (word:example "d:\\abc.docx" "\naaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa")

word 应用及 文档对象 参考内容见： https://learn.microsoft.com/zh-cn/office/vba/api/word.document
内容很庞大。

安装 @lisp 核心后即可运行以上代码。

菜卷鱼

有本书里提到过，因为用不上，所以没试过

你帮我试一试

统计块的

whg587081

菜卷鱼 发表于 2022-11-30 17:20
有本书里提到过，因为用不上，所以没试过

你帮我试一试

测试通过，很好用

yhly555

菜卷鱼 发表于 2022-11-30 17:20
有本书里提到过，因为用不上，所以没试过

你帮我试一试

我也研究一下

layys

研究一下试试

xcmdos

菜卷鱼 发表于 2022-11-30 17:20
有本书里提到过，因为用不上，所以没试过

你帮我试一试

我也试试