王者被动是什么意思:如何用Excel的宏功能向Word中拷贝数据
来源:百度文库 编辑:偶看新闻 时间:2024/04/29 01:01:15
Copy something to Word using Macro
在工作中有个任务,就是要在有限元分析程序Femap中,需要对大量不同的结过进行分析,比如说100个结果。
过程就是点击结果,等待1秒出现位移变形图,然后Ctrl+C拷贝图片,点击Word,新建页面,拷贝,回到Femap。
因此考虑用Excel中的宏功能,自动拷贝一些东西,然后在Word中粘贴。 下面的一个简单例子,建立新文件,自动输入规则的数据,然后手动可以保存。(可以自动保存,但是基于实际工作,保存结果前一定要检查对错,个人觉得不需要)
Sub Makro1()
Dim WD As Object
Set WD = CreateObject("Word.Application") 'Word
Dim doc As Object
Set doc = WD.Documents().Add
WD.Visible = True
With WD.Selection
For i = 1 To 10
.Text = "Bild" & i
.Moveright (1)
.TypeParagraph
'.Paste
'.Moveright (1)
'.TypeParagraph
Sheets(1).Select
Range("A" & i).Select
Selection.Copy
.Paste
.Moveright (1)
.TypeParagraph
.InsertBreak
Next i
End With
WD.Visible = True
End Sub
source:http://zhousicheng.googlepages.com/a_065
如何用Word的“三维功能”?
如何用word 打开excel
如何用excel中的数据自动生成word的文书
如何用excel实现以下功能?
word 2002请柬功能如何用?
word 2003请柬功能如何用?
如何用excel自带的功能给excel文件加密
Excel中,如何用函数求两数的差?
在Excel中如何用宏对话框插入指定的行数
word的特殊符号,如何用??
如何用VBA编程实现查找EXCEL表里的中文字符的功能?
如何用word或者excel绘制三线表,请赐教
如何用Word的查找替换功能替换掉文档中的空格和空行?
如何用电脑拷贝电视节目?
如何用excel进行数据格式的查询
如何用EXCEL的IF函数
如何用excel解矩阵的特征值
如何用文件夹的方式找到系统盘中IE的所有文件,拷贝到IE相对应的文件夹呢?
如何用excel制表
如何用excel作图?
如何用EXCEL制图
如何用EXCEL相加?
如何用EXCEL运算
在EXCEL中如何实现WORD中邮件合并的功能