ワード立ち上げ画面について

質問

ワードに日記を書いているとページ数が多くなり最近は50ページを超えてきました。毎日日記を書くのにワードを立ち上げると最初に1ページが表示されます。「Ctrl+End」でカーソルを最終行に持っていきますが、これを省いてワードを立ち上げた時に最初からカーソルを最終行に配置する方法（マクロなど）があったら教えていただきたくお願い致します。

回答No.2

word_hacks · ベストアンサー

kotetukunさん、

以下のコードが「Ctrl + End」に対応します。
さらに日付を入れるマクロまで入れてしまいました。

ノーマルテンプレートのNewMacrosのところにでも
コピペして使ってみてください。

AutoOpenのプロシージャーにすると、ファイルを
開くたびに、「Ctrl + End」を実行することになります。

なので、日記のワードファイル以外でも同じことが
実行されてしまいますが。。。

09/07/2009
のように日付が入ります。

Sub AutoOpen()
'文書の末尾へカーソル移動
Selection.EndKey Unit:=wdStory
'改行
Selection.TypeParagraph
'日付入力
Selection.InsertDateTime _
DateTimeFormat:="MM/dd/yyyy", _
InsertAsField:=False
'改行
Selection.TypeParagraph
End Sub

お試しください。

なお、ARIKEN43さんからアドバイスいただいている
ブログを書いたのは私ですが、ちょっとわかりにくい
誤記がございましたので修正させてください。

＞概要：文末へカーソル移動
＞Selection.Expand Unit:=wdSentence
＞Selection.Collapse Direction:=wdCollapseEnd

これは、カーソルが置かれている文章の末尾という意味で
ありまして、文書全体の末尾へカーソルが移動するという
わけではございません。

わかりにく記載をしてしまいましたので、この場で
補足説明をさせていただきました。

お礼

おかげで助かりました。これでスッキリしました。

回答No.1

有田 賢治（@ARIKEN43）

kotetukunさん 今日は！
>ワードに日記を書いているとページ数が多くなり最近は50ページを超
>えてきました。毎日日記を書くのにワードを立ち上げると最初に1ペー>ジが表示されます。「Ctrl+End」でカーソルを最終行に持っていきま
>すが、これを省いてワードを立ち上げた時に最初からカーソルを最終
>行に配置する方法（マクロなど）があったら教えていただきたくお願
>い致します。
Wordで日記を書くのは可成り行数が無駄に為るのでは？
質問内容ですと１日１ページを使用し、毎日新規作成する様ですが保存時に、「最終版」に変更してから保存してみてください。
多分次回にそのファイルを開くとカーソルは最終行に表示される筈ですが。
■文末、文頭へのカーソル移動↓
http://wordvba.cocolog-nifty.com/blog/cat20490574/index.html
内容：最近見つけたのはワードのVBAが標準で持っている機能をつかった、文頭や文末の見つけ方です。
こういう標準の機能を知っていると、プログラムが簡潔になりますね。
概要：文末へカーソル移動
Selection.Expand Unit:=wdSentence
Selection.Collapse Direction:=wdCollapseEnd
■目次を作成する(Word2003)↓
http://www.sharp-pcstudio.com/disp.asp?cno=5&tbno=0&dno=132
内容：会社の文書から自治会の書類、プライベートな手紙まで、幅広い場面で使われているマイクロソフト ワード。ちょっとしたワザやＴｉｐｓを知れば、もっと便利に使いこなせます。さあ、マナちゃんと一緒に、使い方を学んでいきましょう！
この様に１ヵ月分の目次を作成して上記の操作手順を利用して下さい。

お礼

なるほど、こういう事が出来るのですね。ありがとうございました。