作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
kevinchengcw |
Q: 如何将Excel中的内容按格式写入Word文档？
A: 利用如下代码可以将excel文档中的内容格式化的输出到新建的word文档中，并保存到当前工作簿路径下的指定文件名，代码如下：
- Sub test()
- Dim M, N As Long
- Dim WdApp, Wd
- Application.ScreenUpdating = False '关闭屏幕刷新
- Set WdApp = CreateObject("word.application") '创建word程序项目
- Set Wd = WdApp.documents.Add '建立新的word文档
- WdApp.Visible = False 'word程序界面不可见
- With ThisWorkbook.Worksheets("sheet1") '在当前工作簿的sheet1中读取文本
- For N = 3 To .Cells(.Rows.Count, 2).End(3).Row '从B列第三行到最后有数据的行
- WdApp.Selection.Font.Size = 16 '设定字体大小
- WdApp.Selection.Font.Bold = wdToggle '设定字型为粗体
- WdApp.Selection.TypeText Text:="基本信息表" '写入标题
- WdApp.Selection.TypeParagraph '换行
- WdApp.Selection.TypeText Text:="姓 名: " & .Cells(N, 2).Value '写入项目名和对应的单元格内容（注：项目名也可能换成对应的单元格内容）
- WdApp.Selection.TypeParagraph
- WdApp.Selection.TypeText Text:="员工编号: " & .Cells(N, 3).Value
- WdApp.Selection.TypeParagraph
- WdApp.Selection.TypeText Text:="性 别: " & .Cells(N, 4).Value
- WdApp.Selection.TypeParagraph
- WdApp.Selection.TypeText Text:="联系电话: " & .Cells(N, 5).Value
- WdApp.Selection.TypeParagraph
- WdApp.Selection.TypeText Text:="照 片: " '输入照片，并在右侧插入图片
- WdApp.Selection.InlineShapes.AddPicture Filename:=ThisWorkbook.Path & "\" & .Cells(N, 6).Value, LinkToFile:=False, SaveWithDocument:=True
- WdApp.Selection.MoveRight Count:=1 '因插入的图片会被选中，所以要用个右移（相当于按了下向右键）来跳过图片
- WdApp.Selection.TypeParagraph '输入三个换行符（分隔不同人的信息）
- WdApp.Selection.TypeParagraph
- WdApp.Selection.TypeParagraph
- Next N
- End With
- Wd.SaveAs ThisWorkbook.Path & "\基本信息表.doc" '保存新建的word文档
- Wd.Close '关闭文档
- WdApp.Quit '退出word程序
- Set Wd = Nothing '清空项目
- Set WdApp = Nothing
- Application.ScreenUpdating = True '打开屏幕刷新
- MsgBox "转换完成", vbOKOnly, "" '显示提示信息
- End Sub
注意：所有的操作是以wdapp来进行的，只有操作文件的保存与关闭时才用wd，注意区分两个变量的不同处。
附示例文件。
 Excel表格内容写入Word文档.rar
|
2楼
wnianzhong |
收藏了,随时应用! |
3楼
luan2000 |
收藏了,谢谢！ |
4楼
luan2000 |
收藏了,谢谢！
 |
5楼
paul001 |
打开word文件的时候会有一个错误提示 |
6楼
eliane_lei |
收藏学习 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一