请帮写一个"导入动画GIF和FLASH工具"的宏

wshcw

请帮写一个在WORD中"导入动画GIF和FLASH"的宏.并能将它加载到公共模板中使用.

[ 本帖最后由 wshcw 于 2011-3-11 18:16 编辑 ]

白月清风

Sub 插入flash()
    Dim myfile As FileDialog
    Set myfile = Application.FileDialog(msoFileDialogFilePicker)
    With myfile
         .InitialFileName = "C:\"
            If .Show = -1 Then
               For Each FN In .SelectedItems
               Set myflash = ActiveDocument.InlineShapes.AddOLEControl(ClassType:="ShockwaveFlash.ShockwaveFlash.10")
                  With myflash.OLEFormat
                          .Activate
                          .Object.movie = FN
                          .Object.embedmovie = True
                  End With
            Next FN
          Else
        End If
    End With
    Set myfile = Nothing

End Sub
以上代码可以实现打开文件夹，选择一个或多个swf文件，并将swf文件插入word中

wshcw

原帖由 白月清风 于 2011-3-12 18:16 发表
Sub 插入flash()
    Dim myfile As FileDialog
    Set myfile = Application.FileDialog(msoFileDialogFilePicker)
    With myfile
         .InitialFileName = "C:\"
            If .Show = -1 Then
    ...

能不能再改一下,打开类型为swf文件(只显示swf文件),好找文件.

白月清风

.InitialFileName = "C:\"改为 .InitialFileName = "C:\*.swf"就可以了

wshcw

原帖由 白月清风 于 2011-3-13 23:01 发表
.InitialFileName = "C:\"改为 .InitialFileName = "C:\*.swf"就可以了

谢谢,已修改完善了.

ww0000

白月清风 发表于 2011-3-12 18:16
Sub 插入flash()
    Dim myfile As FileDialog
    Set myfile = Application.FileDialog(msoFileDialog ...

EXCEL怎么导入？谢谢