西方建筑史考试:如何用Excel的宏功能向Word中拷贝数据

来源:百度文库 编辑:旧事旧闻 时间:2020/05/26 14:38:56
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