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

就是一个通过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)