就是一个通过VBA实现的word宏,代码虽然比较LOW,但是很好用。
该宏可以同时实现新建窗口、并排查看和取消同步滚动,如果需要保留同步滚动,只需在相应处进行修改即可。
兼容了doc和docx格式
代码如下
Sub 分窗口()Dim Document As StringDim leftnum As LongDim dot As String**取消页间间隔**ActiveWindow.View.DisplayPageBoundaries = False**页面缩放比率100%**ActiveWindow.ActivePane.View.Zoom.Percentage = 100**变量赋值**Document = ActiveDocument.Nameleftnum = InStr(Document, "doc")dot = Right(Document, 4)**识别扩展名**If dot = "docx" Then**新建窗口**NewWindow**新建窗口缩放比率100%**ActiveWindow.ActivePane.View.Zoom.Percentage = 100**并排查看**pareSideBySideWith Left(Document, leftnum - 2) & ".docx:1"**同步滚动:否**Windows.SyncScrollingSideBySide = FalseElseIf InStr(Document, "docx [兼容模式]") ThenNewWindowActiveWindow.ActivePane.View.Zoom.Percentage = pareSideBySideWith Left(Document, leftnum - 2) & ".docx [兼容模式]:1"**同步滚动:否**Windows.SyncScrollingSideBySide = FalseElseIf InStr(Document, "doc [兼容模式]") ThenNewWindowActiveWindow.ActivePane.View.Zoom.Percentage = pareSideBySideWith Left(Document, leftnum - 2) & ".doc [兼容模式]:1"**同步滚动:否**Windows.SyncScrollingSideBySide = FalseElseIf InStr(Document, "docx [只读]") ThenNewWindowActiveWindow.ActivePane.View.Zoom.Percentage = pareSideBySideWith Left(Document, leftnum - 2) & ".docx [只读]:1"**同步滚动:否**Windows.SyncScrollingSideBySide = FalseElseIf InStr(Document, "doc [只读]") ThenNewWindowActiveWindow.ActivePane.View.Zoom.Percentage = pareSideBySideWith Left(Document, leftnum - 2) & ".doc [只读]:1"**同步滚动:否**Windows.SyncScrollingSideBySide = FalseEnd IfEnd Sub
赚点零花钱不容易,求赏脸。