如何用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.googlepages.com/a_065

    更多精彩 >>> 热点推荐 查看相关信息 更多精彩 精彩图库

    热门推荐
    热门文章