霍泥芳时晓曦:在word或EXCEL中打开插入对象的图片,就出“用于创建此对象的程序是Package.您的计算机尚未安装此程序。若要编辑此对象,您必须安装可以打开次对像的程序”警告,我要安装什么程序才能解决 ?
来源:百度文库 编辑:偶看新闻 时间:2024/05/10 07:43:36
打开要创建目录的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
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已经做好的表格?