|
将以下代码粘贴于你的EXCEL(文号工作薄)的标准模块中,ALT+F11,进入VBE,插入/模块.
----------------------------------------------------------模块1----------------------------------------------------------
Sub ExampleExcelToWord()
Dim WdApp As Word.Application, Doc As Word.Document, StrPath As String
Dim E As Range, i As Range
On Error Resume Next '忽略错误
'定义一个Range,可修改,此处为A1:A100
Set E = Sheets(1).[A1:A100]
'创建一个新WORD.Application程序
Set WdApp = CreateObject("Word.Application")
With WdApp
'设置可见与否,此处为不可见,如需可见将其前面的注释符去掉
' .Visible = True
'关闭屏幕更新
.ScreenUpdating = False
'在指定的Range中循环
For Each i In E
'文档名为右移一个单元格文本
StrPath = i.Offset(, 1)
'打开指定的文档,可对其路径进行修改,此处为E:\TEST\下
Set Doc = .Documents.Open("E:\Test\" & StrPath)
With Doc
'在第一段后插入一个指定的文本并自成一个段落
.Paragraphs(1).Range.InsertAfter i & Chr(13)
对新段落区域进行设置
With .Paragraphs(2).Range
'文本居中
.ParagraphFormat.Alignment = wdAlignParagraphCenter
'设置该段落字体格式
.Font.Name = "华文细黑"
'字号大小
.Font.Size = 11
End With
'保存并关闭文档
.Close True
End With
Next
'恢复屏幕更新
.ScreenUpdating = True
'关闭WORD程序
.Quit
End With
End Sub
必须:在VBE的工具/引用下,勾选:Microsoft Word 10.0 Object Library (引用msword.olb),版本不同,其中的10.0亦有所不同(XP为10.0,2000为9.0类推)如图示
然后回到EXCEL中,ALT+F8,运行该宏:ExampleExcelToWord或者仍然在VBE中,将光标定位于该模块的代码窗口中,按下F5键或者运行按钮亦可. 
[此贴子已经被作者于2005-1-6 6:00:11编辑过] | 
沪公网安备 31011702000001号 沪ICP备11019229号-2
发表于 2005-1-5 23:12
