Word文書がたくさんあります｡どれも印刷すればA4ですが､作成者がいろいろなので､ﾌｧｲﾙを開いたときの拡大縮小率がﾊﾞﾗﾊﾞﾗです｡それで毎回､作業開始時に自分好みの…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

Word文書がたくさんあります｡どれも印刷すればA4ですが､作成者がいろいろなので､ﾌｧｲﾙを開いたときの拡大縮小率がﾊﾞﾗﾊﾞﾗです｡それで毎回､作業開始時に自分好みの拡大縮小率へ戻すのを面倒に感じています｡私は常に｢ﾍﾟｰｼﾞ幅を基準に｣または｢100％｣で開きたいのですが､そのような設定は可能でしょうか? 使っているのはWord2000とWordXPです｡あるいは､10000くらいあるWord文書の初期拡大縮小率を一括で変更できるｿﾌﾄの紹介でもよいです｡

●質問者: sample2
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● きゃづみぃ
●100ﾎﾟｲﾝﾄ

http://furi-sofuto.com/2009/03/pdf.html

いっそのこと全ﾌｧｲﾙ自分用にPDFにしてしまえばいいんじゃないでしょうか？

sample2さんのｺﾒﾝﾄ
閲覧7､再編集3くらいの割合ですし､内容を見てから再編集するかどうかを判断するのが基本なので､Wordのままでないと面倒です｡

▽2 ● きゃづみぃ
●100ﾎﾟｲﾝﾄ

ﾜｰﾄﾞを開いて
ﾂｰﾙ
ﾏｸﾛ
Visual Basic Editor
で VBのｴﾃﾞｨﾀを開きます｡

Nomal
Microsoft Word Objects
ThisDocument

と開いたところに

Private Sub Document_Open()
 ActiveWindow.ActivePane.View.Zoom.Percentage = 100
End Sub

というのを貼り付けてﾜｰﾄﾞを閉じます｡

それで縮小率が 100%以外のﾌｧｲﾙを開いて 100%になっていることを確認してください｡

きゃづみぃさんのｺﾒﾝﾄ
ｴﾗｰが出ちゃったみたいで｡ﾏｸﾛの記録で 100%にするﾏｸﾛを作ってみてそれを入れてみたらいいかもしれません｡

sample2さんのｺﾒﾝﾄ
【1】ｴﾗｰはないが自動実行もされない｡ Sub Macro1() ' ' Macro1 Macro ' 幅を100%にする ' ActiveWindow.ActivePane.View.Zoom.Percentage = 100 End Sub 【2】自動で実行されるがｴﾗｰになる｡ Private Sub Document_Open() ActiveWindow.ActivePane.View.Zoom.Percentage = 100 End Sub 実行時ｴﾗｰ '91': ｵﾌﾞｼﾞｪｸﾄ変数または With ﾌﾞﾛｯｸ変数が設定されていません｡【3】自動で実行されｴﾗｰにもならないが､やりたいことと違う｡ Private Sub Document_Open() MsgBox "開いたよ", vbOKOnly, "通知" End Sub

sample2さんのｺﾒﾝﾄ
http://q.hatena.ne.jp/1326846236 で解決しました｡