【Word VBA/マクロ】ウィンドウ左に表示

サンプルコードでできること

ウインドウを画面の左側に表示します。

Sub ウインドウ左表示()
    Dim dWidth As Long, dHeight As Long
    
    With ActiveWindow
        .WindowState = wdWindowStateMaximize
        
        dWidth = .Width
        dHeight = .Height
        
        .WindowState = wdWindowStateNormal
        
        .Width = dWidth / 2
        .Height = dHeight
        
        .Left = 0
        .Top = 0
    End With

End Sub

コードの説明

    With ActiveWindow
        .WindowState = wdWindowStateMaximize
        
        dWidth = .Width
        dHeight = .Height

       '省略
    End With

ウインドウを最大化して、幅と高さを変数に格納します。

        .Width = dWidth / 2

「dWidth / 2」でウインドウを画面半分の幅にします。