霍泥芳时晓曦:在word或EXCEL中打开插入对象的图片，就出“用于创建此对象的程序是Package.您的计算机尚未安装此程序。若要编辑此对象，您必须安装可以打开次对像的程序”警告，我要安装什么程序才能解决 ？

来源：百度文库 编辑：偶看新闻 时间：2024/04/28 02:23:15
打开要创建目录的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中

Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range

ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待！"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub 

 

关闭BASIA的界面 

在你要插入的电子表格里按ALT+F8 

选好你刚才写的模块mulu 

点执行 

--------OK
打开Word 2000，选择菜单“插入”/“对象”，在系统弹出的“对象”对话框中，选择“Calendar Control 9.0 如何在Word或excel中插入文件 在word中以对象插入excel表格时页面不够时如何调整 如何在word文本中插入excel文本的连接,可以在另一台计算机中打开连接 在word中插入excel表格 如何在word中插入excel表格？ word中插入对象错误!!! 如何在word的——插入——对象中找到Microsoft公式3.0 如何在word文本中插入excel文本的连接,通过邮件发送形式,可以在另一台计算机中打开连接 在WORD中插入在excel中做好的表格怎么做？ 如何在EXcel中插入或画AUTOCAD样式的形位公差图付 word文档中插入“分数、根式”的简便方法，不用插入对象法。我记得在哪里见过 如何在Excel单元格中插入Word文档 如何在word中插入excel及visio 在WORD中插入分数的分子时怎么给分子加上括号（前提是WORD中插入里对象没有公式这样的内容）？ 在WORD中可以插入提前做好的EXCEL中的表格吗? 请问在WORD&EXCEL中插入的图片，怎么可以另存出来 如何在 WORD文档中的插入对象中添加插入公式功能阿？ 在98系统中打开word 或excel文档容易死机，显示资源不足。 13、在Word中我们处理的是文档，在Excel中我们直接处理的对象称为 。 如何在插入对象中加入数学公式？我在WORD文档中想插入数学公式，在插入对象中没有公式，如何添加？ word,excel中如何插入AUTO CAD制作图? 在Excel单元格中插入字母或数字 怎么在word里插入excel已经做好的表格？