如何将宏模板导入word

1.怎样把文档拷贝到word的宏里?

打开WORD，选择菜单"工具"-"宏"-"录制新宏"，随意指定一个宏名，点将宏指定到键盘，弹出自定义键盘对话框，在请按新快捷键处按下CTRL-L组合键，选择关闭.随后出现录制宏窗口，不要管它，我们只要将宏指定给组合键的功能.

关闭宏录制后，点工具-宏-宏，弹出宏对话框，选择刚才建的宏名，点编辑，进入OFFICE VB界面，在其中将宏内容替换为IpaU.txt内的宏.

宏格式

Sub 宏名（）

宏内容

End Sub

2.怎样用Word中的宏将excel中的数据读取到Word中（按照Word中的自

1. Sub test()

2. Set oExcel = GetObject(, "Excel.Application")

3. Set oWb = oExcel.Workbooks.Open("D:\test.xls") '写你自己的Excel路径

4. MsgBox oWb.Sheets("Sheet1").Range("C5") '取"Sheet1"工作表C5单元格的值

5. oExcel.Quit '退出Excel

6. End Sub

按 Alt+F11 打开VBE窗口，通过菜单选择“插入”-“模块”，输入以上代码。

这里采用的是后置绑定方法，无需事先加载Excel对象引用库。

如果在此过程中希望Excel窗口不可见，可在调用open方法打开Excel之前设置visible属性：

oExcel.Visible = False

3.如何利用excel 宏 建立word文档

下段代码，自动生成一个word文档，并以sheet1的A1为文件名，文件内容为B1。

Sub 生成word()

Dim thisPath, thisName As String

Dim docApp

Dim newDoc

Set docApp = CreateObject("Word.Application")

thisPath = ThisWorkbook.Path & "\"

thisName = Sheet1.Cells(1, 1)

Set newDoc = docApp.Documents.Add

newDoc.Activate

newDoc.Paragraphs(1).Range.InsertAfter (Cells(1, 2))

newDoc.SaveAs Filename:=thisPath & thisName & ".doc"

newDoc.Close

docApp.Quit

Set docApp = Nothing

MsgBox ("OK!")

End Sub

4.excel怎么用宏导到word中,再从word中导到另一个excle

刚好做了一个类似的，仅供参考，加油！ Sub 宏1() Dim templateFileURl1 As String Dim templateFileURl2 As String Dim templateFileURl3 As String On Error Resume Next Set WdApp = GetObject(, "Word.Application") '取得对WORDAPPLICATION对象的引用 If Err.Number <> 0 Then '如果无法取得对该对象的引用 Err.Clear Set WdApp = CreateObject("Word.Application") '创建WORDAPPLICATION对象 WdApp.Visible = True '可见 End If WdApp.Options.PictureWrapType = wdWrapMergeInline '为嵌入式 On Error Resume Next Set ShApp1 = GetObject(, "Excel.Application") '取得对excelAPPLICATION对象的引用 If Err.Number <> 0 Then '如果无法取得对该对象的引用 Err.Clear Set ShApp1 = CreateObject("Excel.Application") '创建excelAPPLICATION对象 ShApp1.Visible = True '可见 End If On Error Resume Next Set ShApp3 = GetObject(, "Excel.Application") '取得对excelAPPLICATION对象的引用 If Err.Number <> 0 Then '如果无法取得对该对象的引用 Err.Clear Set ShApp3 = CreateObject("Excel.Application") '创建excelAPPLICATION对象 ShApp3.Visible = True '可见 End If templateFileURl1 = ThisWorkbook.Sheets("Sheet1").[b1] templateFileURl2 = ThisWorkbook.Sheets("Sheet1").[b2] templateFileURl3 = ThisWorkbook.Sheets("Sheet1").[b3] Set mysheet1 = ShApp1.Workbooks.Open(templateFileURl1) Set mysheet3 = ShApp3.Workbooks.Open(templateFileURl3) Set WdDoc = WdApp.Documents.Open(templateFileURl2) '打开同一路径下的WORD"模板" With WdDoc 'from excel to word .Bookmarks("Name").Range.Text = mysheet1.Sheets(1).[a12] .Bookmarks("Name1").Range.Text = mysheet1.Sheets(1).[a12] .Bookmarks("Tel").Range.Text = mysheet1.Sheets(1).[b12] .Bookmarks("Id").Range.Text = mysheet1.Sheets(1).[j12] .Bookmarks("ConfirmHospital").Range.Text = mysheet1.Sheets(1).[h10] 'from word to final excel mysheet3.Sheets(1).Range("B1").Value = mysheet1.Sheets(1).[a12] mysheet3.Sheets(1).Range("B2").Value = mysheet1.Sheets(1).[a12] mysheet3.Sheets(1).Range("B3").Value = mysheet1.Sheets(1).[b12] mysheet3.Sheets(1).Range("B4").Value = mysheet1.Sheets(1).[j12] mysheet3.Sheets(1).Range("B5").Value = mysheet1.Sheets(1).[h10] End With 'WdDoc.SaveAs Filename:="d：\财务分析\" & name2 & name1 & ".doc" Set WdDoc = Nothing '释放对象变量 Set WdApp = Nothing '释放对象变量 Set mysheet1 = Nothing '释放对象变量 Set mysheet3 = Nothing '释放对象变量 Set ShApp1 = Nothing '释放对象变量 Set ShApp3 = Nothing '释放对象变量 End Sub。