1.如何用VBA将excel中的数据转化成word文档

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制；步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定； 此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊！确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处； 区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢。

2.如何用VBA将excel中的数据转化成word文档

步骤一、先进入Excel表格，然后选中需要导入到Word文档中的区域，按下 Ctrl+C 复制；

步骤二、打开Word，然后选择菜单栏的“编辑”中的“选择性粘贴”，在“形式”下面选中“Microsoft Office Excel 工作表 对象”然后确定；

此时，就已经把编辑好的Excel表格导入到Word中了，有的人这时肯定会说，这还不是和Word中表格没什么却别啊！确实，就这样用肉眼看，根本就看不错这个表格和Word中做的表格有什么不一样之处；

区别肯定是有的，不信你双击表格看看，会是什么效果，没错把，导入的表格和Excel中的表格一模一样，当然，这个表格也可以自由拖动它的长和宽，还可以运用Excel中的公式呢！

3.如何在EXECL中用VBa打开Word,并输出数据到WORD中,保存,关闭

在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。

Sub ExcelToWord()

Dim WordObject As Object '声明一个对象变量，这里即将声明为Word对象

On Error Resume Next

Set WordObject = CreateObject("Word.Application") '用set来创建Word对象，这里是运行Word程序，但未新建文档

WordObject.Visible = 0 '后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面

WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一word文档

'以下为获取Excel表格中的内容，准备把数据传送给Word，可以根据自己的实际需要定制代码，这里只是示例代码

Excel.Application.Sheets(1).Activate '切换当前电子表格的表1为当前激活表

Excel.Application.Sheets(1).UsedRange.Select '选中当前激活表的所有数据

Selection.Copy '将选中的区域进行复制

WordObject.Application.Activate '将后台运行的Word激活为当前窗口

WordObject.ActiveWindow.Selection.Paste '将刚才从Excel中复制进剪贴板中的内容粘贴进word中来

WordObject.Saved = True '将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了，达到悄无声息的效果

WordObject.ActiveDocument.SaveAs "D:\temp\导出数据.doc" '调用saveas命令保存文档，根据实际，指定文档的保存路径和名称

WordObject.Application.Quit '退出并关闭程序文档

Set WordObject = Nothing '释放对象

End Sub

4.excel用vba自动生成word

Sub GenDocfromExcel()'excel控制word，生成新文件，插入图片和文件名，保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'。

Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub。

5.VBA可以将excel单元格内容,替换word文档指定位置中的内容么

当然可以，我以前写的，你可以参考一下：Private Sub CommandButton1_Click()On Error Resume NextDim iRow As Integer, myPath As StringDim wdApp As Word.Application, wdDoc As Word.Document, wdRange As Word.RangeDim 收文日期 As String， 标题 As String， 来文单位 As String， 文号 As String， 拟办情况 As String'--------------------------------------------------------------------------------------------------------Label3.Caption = "封面正在生成中。

"'--------------------------------------------------------------------------------------------------------iRow = TextBox1.Text'获取待填写信息来文单位 = Cells(iRow, 3).Text来文单位 = Replace（来文单位， Chr(10), "^p"） '将excel中的换行替换成word中的换行文号 = Cells(iRow, 4).Text文号 = Replace（文号， Chr(10), "^p"） '将excel中的换行替换成word中的换行标题 = Cells(iRow, 5).Text标题 = Replace（标题， Chr(10), "^p"） '将excel中的换行替换成word中的换行收文日期 = CStr(Year(Now())) & Cells(iRow, 6).Text拟办情况 = TextBox2.Text'--------------------------------------------------------------------------------------------------------myPath = ThisWorkbook.Path & "\封面\"'文件若已打开，则关闭已打开文件For Each wdDoc In Documents If InStr(1, wdDoc.Name, myPath & "（" & 收文日期 & "）" & 标题 & ".doc", 1) Then wdDoc.Close savechanges:=wdDoNotSaveChanges Exit For End IfNext wdDoc'--------------------------------------------------------------------------------------------------------Set wdDoc = CreateObject(myPath & "空白模板.doc") '打开wordwdDoc.Activate '--------------------------------------------------------------------------------------------------------'填写文档Set wdRange = wdDoc.Content '将word的文档内容赋予wdrangewdRange.Find.Execute FindText：="{来文单位}"， ReplaceWith：=来文单位， Replace:=wdReplaceAllwdRange.Find.Execute FindText：="{文号}"， ReplaceWith：=文号， Replace:=wdReplaceAllwdRange.Find.Execute FindText：="{收文时间}"， ReplaceWith：=收文日期， Replace:=wdReplaceAllwdRange.Find.Execute FindText：="{内容摘要}"， ReplaceWith：=标题， Replace:=wdReplaceAllwdRange.Find.Execute FindText：="{办公室拟办}"， ReplaceWith：=拟办情况， Replace:=wdReplaceAll'--------------------------------------------------------------------------------------------------------'文档另存为wdDoc.SaveAs Filename:=myPath & "（" & 收文日期 & "）" & 标题 & ".doc"End Sub。

转载请注明出处51数据库 » vbaexcel切换word文档