如何用Excel的宏功能向Word中拷贝数据

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./a_065