! taskkill /F /IM WINWORD.EXE /T

cd C:\Users\Administrator\Desktop  //指定路径

putdocx begin  //声明我们要开始putdocx了

putdocx paragraph, halign(center)  //写入一段，将段落内容居中

putdocx text ("这是我们的图表"), font("华文隶书",40,blue)  //输入文本"这是我们的图表"，并在结尾处换行 字体为华文隶书，字号为40，颜色为蓝色

putdocx save mytable.docx, replace  //将文本内容保存成默认路径下的mytable.docx文件

sysuse auto, clear

histogram mpg //生成直方图

graph export hist.png,replace  //保存直方图

putdocx begin  //声明我们要开始putdocx了

putdocx paragraph,halign(center)  // 写入一段，将段落内容居中

putdocx text ("每加仑耗油量直方图"), bold linebreak  //输入加粗的文本"每加仑耗油量直方图"，并在结尾处换行。

putdocx paragraph,halign(center)   // 写入一段，将段落内容居中

putdocx image hist.png, width(4)  //导入图表并设置文档宽度为4

putdocx save hist.docx,replace

sysuse auto, clear

reg mpg weight length headroom foreign

mat list r(table) //回归中各个变量的系数、标准误、t值等信息都存储在了矩阵r(table)中，用mat list命令看到矩阵的内容。

mat rt=r(table)'  //转秩矩阵

mat list rt

putdocx begin

putdocx paragraph,halign(center)  // 写入一段，将段落内容居中

putdocx text ("回归变量表"), bold linebreak  //输入加粗的文本"回归变量表"，并在结尾处换行。

putdocx table tbl2 = matrix(rt), rownames colnames nformat(%7.2f)

putdocx save table.docx, replace

putdocx append  mytable.docx hist.docx table.docx  //合并mytable.docx hist.docx table.docx三个文件

winexec "C:\Program Files\Microsoft Office\Office12/WINWORD.EXE" mytable.docx  //打开mytable.docx文件

另外我们也可以合并文件后并重命名，只需在后边加一行命令：

, saving(新文件名,replace)

putdocx append  mytable.docx hist.docx table.docx  , saving(all.docx,replace)  //合并mytable.docx hist.docx table.docx三个文件 并重命名为all.docx

winexec "C:\Program Files\Microsoft Office\Office12/WINWORD.EXE" all.docx   //打开mytable.docx文件

以上就是今天给大家分享的内容了，说得好就赏个铜板呗！有钱的捧个钱场，有人的捧个人场~。

应广大粉丝要求，爬虫俱乐部的推文公众号打赏功能可以开发票啦，累计打赏超过1000元我们即可给您开具发票，发票类别为“咨询费”。用心做事，只为做您更贴心的小爬虫。第一批发票已经寄到各位小主的手中，大家快来给小爬虫打赏呀~