高手能帮帮我吗？如何用VBA把word文档转换成swf

alian6383

最近需要把一批word直接转换成swf，不知道怎么从写VBA中直接转，Flashpaper提供的VBA工程不能打开，不知道如何调用啊？有没有大虾帮俺一个忙啊？自己用delphi写个批处理，有需要的也可以，就是太慢了，不好意思展示啊！[em06]

[此贴子已经被作者于2007-1-12 10:49:04编辑过]

alian6383

没有人能帮忙吗？我的快急死了。[em11]

ifhwfu

我也想知道啊！

alian6383

我用 CommandBars实现了，但是不能批量转，有需要的我可以共享一下，今天买了本word非常接触，版主说的对啊：我们可能还没有用到20%的功能，最近工作用了VBA减轻不少负担啊！呵呵

守柔

QUOTE:

以下是引用alian6383在2007-1-12 22:39:34的发言：

我用 CommandBars实现了，但是不能批量转，有需要的我可以共享一下，今天买了本word非常接触，版主说的对啊：我们可能还没有用到20%的功能，最近工作用了VBA减轻不少负担啊！呵呵

我也孤陋寡闻了。能不能让我看看你是怎么转换的，然后我再处理一下？OK？

alian6383

版主客气了，其实还是用工具栏做的，还有很大的限制，其中不少内容还是根据你原来写的《VBA微软Word_vba范例源代码》在此感谢了，下面就是部分简单的代码，我做的程序主要功能是想按书签进行分页保存，然后转成swf；不能批量输出，只好转成一个文档了。遗憾的是不能指定输出的文件名

'打印文档
MyDoc.Save

MyDoc.Activate

foundFlag = False
For Each cb In CommandBars
If cb.Name = "FlashPaper Toolbar" Then
cb.Protection = msoBarNoChangeDock
cb.Visible = True
foundFlag = True

'执行命令
Set mybar = cb.Controls(1)
mybar.Execute
End If
Next cb
If Not foundFlag Then
MsgBox "请安装Flashpaper."
End If
MyDoc.Close

守柔

不好办。

我测试了好几次，几乎每次都WORD 都死掉了。究其原因，是因为转换过程与WORD是两个程序，如果同时执行多个文档的转换，根本无法响应。

目前无法直接得到“Macromedia FlashPaper”已经关闭的方法，只能从Macromedia FlashPaper中考虑优化了。况且在文件夹中直接右击，可转换成SWF时的功能中，也没有加入多个文件直接转换的功能。

加载宏（FlashPapetWordUITemplate.2283)中没有任何VBA代码。

Option Explicit
Sub WordtoSwf()
    Dim MyDialog As FileDialog, myDoc As Document, oSel As Variant
    Dim myBar As CommandBar
    '    On Error Resume Next    '忽略错误
    Set myBar = Application.CommandBars("FlashPaper ToolBar")
    If Err.Number <> 0 Then Err.Clear: MsgBox "请下载并安装Macromedia FlashPaper 2程序！", vbCritical: Exit Sub
    '定义一个文件夹选取对话框
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
        .Filters.Clear    '清除所有文件筛选器中的项目
        .Filters.Add "所有 WORD 文件", "*.doc", 1    '增加筛选器的项目为所有WORD文件
        .AllowMultiSelect = True    '允许多项选择
        If .Show = -1 Then    '确定
            For Each oSel In .SelectedItems    '在所有选取项目中循环
            Do While Fp = True
                    Stop
                Loop
                Set myDoc = Documents.Open(oSel)
                SendKeys "{Enter}", False
                myBar.Controls(1).Execute
                myDoc.Close False
            Next
        End If
    End With
End Sub
Function Fp() As Boolean
    If Tasks.Exists("Macromedia FlashPaper") = True Then Fp = True
End Function

alian6383

谢谢版主，我用Delphi个批处理文件；解决这个问题，就是慢些；很简单的，首先获得Flashpaper的安装路径，然后通过这个安装路径调用Flashprinter进行打印；