如何让已有内容的Word隐藏内容，然后自动一个一个自动显示出来？

作者：绿色风分类：时间：2022-08-18 浏览：120

楼主 herelazy	Q：Word文档中一篇写好的文章，如何实现刚打开文档的时候隐藏内容，然后自动一个字一个字的将文章内容显示出来，就像人工打字一样？ A：用宏代码实现（代码置于文档VBE标准模块ThiseDocument中） Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub InPutOneByOne() Dim l As Long, n As Long On Error Resume Next ActiveDocument.Content.Font.Color = wdColorWhite l = Len(ActiveDocument.Content) For n = 1 To l ActiveDocument.Range(n - 1, n).Font.Color = wdColorAutomatic Application.ScreenRefresh Sleep 100 '延迟时间 1000 = 1秒可根据实际需要自行调整 DoEvents Next End Sub Sub AutoOpen() Call InPutOneByOne End Sub P.S. 只适用于纯文本文档！示例文件：自动显示内容.rar
2楼冰心8549	谢谢，学习了
3楼 chuchienhsin	不承认差距还不行
4楼学习中	高手！
5楼 kurca	太好玩啦

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表