那啥...
ACFUN上面熊的宏源码每次执行它总是会说“编译错误。常数，固定长度字符串，数组，用户定义类型以及DECLARE语句不允许作为对象模块的公共成员.”
附带原始宏源码：
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Play()
pages = ActiveDocument.BuiltInDocumentProperties(wdPropertyPages)
For i = 1 To pages-1
Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Count:=1, Name:=""
Sleep (85)    '间隔时间，安需要修改
Next i
End Sub
应该是第一个语句错了...
有技术宅能够帮忙解决一下么...
挖鼻...

期待技术帝降临！！！

看着像JS脚本- -
等高人解答吧

看着像Basic语言...

是VB。。。话说是延迟么，应该还有其他方法吧

声明：Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
库名：kernel32
说明：dwMilliseconds 必要参数，停顿的时间。单位：毫秒(ms)。
---------------------------------------------------
Java语言中Thread类中的函数 作用:程序暂停,延迟执行若干时间. 时间的长短由其参数决定 例如： try{ Thread.sleep(500); //休眠500毫秒}catch(InterruptedException e){ e.printStackTrace(); } 注意:sleep函数是静态函数,在执行时要抛出一个中断异常, 必须对其进行捕获并处理才可以使用这个函数
我没学过VB帮不鸟你- -

请确认没有打多余的字符,我经常见到引起此类问题的原因是多了个啥标点符号

Private

Sleep和SetTimer都不够准确，建议用timeSetEvent

我是来看你们的签名图的…………

哪有完整版教程？非视频版的

Word2007运行通过没有问题
这是宏的VBA程序，不要在VB中调试

本人捉摸出来了....
其实只要在Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)之后加一个 As long 就可以了....
签名美~


WORD播放动画图文教程
http://hi.baidu.com/175943462/blog/item/28adadfaa6d4856f034f568c.html

word无爱
mplayer+txt有爱

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Function SetTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal HWnd As Long, ByVal nIDEvent As Long) As Long
Private runc As Integer
Private runcmax As Integer
Private HWnd As Long
Private thwnd As Long
Sub ykautoflip()
'bgm$ = InputBox("BGM的位置?")
'MsgBox bgm$
ps = ActiveDocument.ComputeStatistics(wdStatisticPages)
'MsgBox ps
runcmax = ps
'a = sndPlaySound(bgm$, 1)
PlaySound "D:\bgm.wav", 0, 1 Or &H20000
'For i = 1 To ps - 1
'Sleep (84)
'WordBasic.VPage
runc = 0
thwnd = SetTimer(0, 0&, 94, AddressOf TimerProc)
'Next
End Sub
Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, ByVal nIDEvent As Long, ByVal dwTimer As Long)
If runcmax < runc Then
KillTimer 0, HWnd
Exit Sub
End If
WordBasic.VPage
Debug.Print runc
runc = runc + 1
End Sub
Sub tk()
KillTimer 0, thwnd
End Sub

有会弄彩色的么？？黑白的我会。。。

回复：17楼
求教程！ 黑白也成

忘记说联系方法了
51071589 QQ