vbaexcel
2015-08-14 11:31
537 查看
Sub WordTest()
Dim objwordApp As Word.Application
Dim objword As Word.Document
Dim objSeheet As String
On Error GoTo errHandle
Sheet5.Select
strTitle = "NAMEFILE"
Range(Cells(1, 1), Cells(226, 11)).Select
Selection.Copy
Set objwordApp = New Word.Application
Set objword = objwordApp.Documents.Add
objword.Application.Visible = True
Set objSel = objword.Application.Selection
With objSel
.InsertAfter Text:=strTitle & vbCrLf
.Font.Size = 16
.InsertAfter Text:=vbCrLf
.EndKey Unit:=wdStory
.PasteExcelTable False, False, False
ThisWorkbook.Activate
Sheet5.Select
Sheet5.ChartObjects(1).CopyPicture
.Paste
End With
objword.SaveAs2 Filename:="E:/蔡金浩20150416/caijinhao.doc", FileFormat:=wdFormatDocument
objword.Close
objwordApp.Quit
errExit:
Set objSel = Nothing
Set objword = Nothing
Set objwordApp = Nothing
Exit Sub
errHandle:
MsgBox Err.Description
Resume errExit
End Sub
Dim objwordApp As Word.Application
Dim objword As Word.Document
Dim objSeheet As String
On Error GoTo errHandle
Sheet5.Select
strTitle = "NAMEFILE"
Range(Cells(1, 1), Cells(226, 11)).Select
Selection.Copy
Set objwordApp = New Word.Application
Set objword = objwordApp.Documents.Add
objword.Application.Visible = True
Set objSel = objword.Application.Selection
With objSel
.InsertAfter Text:=strTitle & vbCrLf
.Font.Size = 16
.InsertAfter Text:=vbCrLf
.EndKey Unit:=wdStory
.PasteExcelTable False, False, False
ThisWorkbook.Activate
Sheet5.Select
Sheet5.ChartObjects(1).CopyPicture
.Paste
End With
objword.SaveAs2 Filename:="E:/蔡金浩20150416/caijinhao.doc", FileFormat:=wdFormatDocument
objword.Close
objwordApp.Quit
errExit:
Set objSel = Nothing
Set objword = Nothing
Set objwordApp = Nothing
Exit Sub
errHandle:
MsgBox Err.Description
Resume errExit
End Sub
相关文章推荐
- VB中需要注意的地方
- vb6 如何保存图片,mschart如何打印图片
- 如何使用vb通过outlook收发邮件
- 【Visual Basic】vb6的ListView控件,对Access2003数据库的增删改查,判断是否有中文、多窗体操作
- VBA代码收集
- VBS脚本病毒特点及如何防范3(转)
- 【VBA研究】浮点数计算总是有误差的
- VBA学习笔记
- VB6 文件复制与替换
- VB中recordset的用法
- 【VBA研究】生成随机密码
- 关于在64位win7下运行Virtualbox安装系统时出错(提示VBoxDD.DLL错误)的解决方
- 合并单元格/VBA
- 【Visual Basic】列表控件ListView的增删改查、模态对话框、禁止窗口调整大小
- [vb.net]简单多线程实例
- VB文本框textbox的那点事
- 结账之SSTab
- VB 核心编程及通用模块开发 笔记1
- [VB版机房]MSGFLEXGRID控件中的数据导出到excel
- 【VB】获取系统当前时间并格式化输出