Word VBA自动排版（1）-新建窗口，并且设置并列分布

Fenrir9999

于 2019-01-18 15:27:25 发布

阅读量3.7k

点赞数 8

分类专栏： VBA编程文章标签： vba word

本文链接：https://blog.youkuaiyun.com/weixin_44559388/article/details/86540485

版权

本文介绍了如何使用VBA在Word中创建新的窗口并实现并排查看功能。提供的宏代码能适应doc和docx格式，同时可禁用同步滚动。学习这个宏，可以方便地对文档进行高效编辑。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

就是一个通过VBA实现的word宏，代码虽然比较LOW，但是很好用。
该宏可以同时实现新建窗口、并排查看和取消同步滚动，如果需要保留同步滚动，只需在相应处进行修改即可。

在这里插入图片描述
兼容了doc和docx格式
代码如下

       Sub 分窗口()
        Dim Document As String
        Dim leftnum As Long
        Dim dot As String
        **取消页间间隔**
        ActiveWindow.View.DisplayPageBoundaries = False
        **页面缩放比率100%**
        ActiveWindow.ActivePane.View.Zoom.Percentage = 100
         **变量赋值**
        Document = ActiveDocument.Name
        leftnum = InStr(Document, "doc")
        dot = Right(Document, 4)
        **识别扩展名**
        If dot = "docx" Then
        **新建窗口**
        NewWindow
        **新建窗口缩放比率100%**
        ActiveWindow.ActivePane.View.Zoom.Percentage = 100
        **并排查看**
        Windows.CompareSideBySideWith Left(Document, leftnum - 2)

最低0.47元/天解锁文章