１つのドキュメントを２つ横に並べたいときに
大事な作業の一つとして、クレームが実施形態にサポートされているかどうかチェックすることがあります。
このとき、ワードの「表示」-「新しいウィンドウを開く」を実行し、クレームを表示する画面と実施形態を表示する画面を横に並べるとより簡単にチェックできます。
そこで、新しい画面を開いて横に並べて見ることができるマクロを作成しました。
このマクロでは、画面を二分割するとともに、表示される文字量を増やすため、画面をWebレイアウトにし、ナビゲーションを非表示にしています。
印刷レイアウトにする場合には、
「.View.Type = wdWebView」を
「.View.Type = wdPrintView」に変えてください。
ナビゲーション（画面左側の検索バー）を表示させる場合には、「CommandBars(“Navigation”).Visible = False」を
「CommandBars(“Navigation”).Visible = True」に変えてください 。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
Sub 二画面にします() Dim W As Long, H As Long Dim obj As Window ActiveWindow.WindowState = wdWindowStateMaximize W = (Application.Width - 10) / 2 H = Application.Height - 10 Call ウィンドウ配置(W, H, 0, 0) Set obj = NewWindow '新しいウィンドウを開きます obj.Activate Call ウィンドウ配置(W, H, 0, W) Set obj = Nothing End Sub Sub ウィンドウ配置(ByVal W As Long, ByVal H As Long, ByVal T As Long, ByVal L As Long) CommandBars("Navigation").Visible = False 'ナビゲーション表示するときはTrue With ActiveWindow .View.Type = wdWebView '印刷ビューにするときはwdPrintView .WindowState = wdWindowStateNormal .Width = W .Height = H .Top = T .Left = L End With End Sub |
これを実行すると、↓のように１つのドキュメントが２画面表示されます。
（参考）
関連記事
ドキュメント内を下へジャンプしたいときに
文を修正するとき、関連した部分の修正も必要となり、あっちもこっちも修正することがあります。マウスホイールを指で弾いて画面をスクロールさせるのですが、これが結構時間かかります。 例えば、実施形態の記載を修正し、併せて変形例の記載も修正するときなど、実施形態を修正し、画面をスクロールさせて変形例を探し出 […]
全角・半角を整えたいときに
文字を入力していると、半角と全角が入り乱れることがあります。半角と全角の両方が入るのはよいのですが、統一感に欠けると、文がしっくりしません。そのため、すべて全角に統一している方もおられるかもしれません。 最後にまとめて半角を全角に修正する方法もありますが、作成中でも文に半角文字が入ると目障りです。 […]
句読点まで一気に選択したいときに
文を書いたり修正したりしていると、カーソルの移動に時間がかかることがあります。例えば、現在のカーソル位置から次の句読点までの部分を削除したいとき、Shiftを押しながら右矢印キーカタカタを叩いて句読点まで選択して削除をします。僅かな時間ですが、積み重なると大きな時間になります。 このときに、次の句読 […]