Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

410 / 886

←次へ　｜　前へ→


	【488】Wordﾌｧｲﾙ１ページ目選択？

新人クリ坊 - 06/9/8(金) 15:41 -


	引用なし

	パスワード

初めまして、クリ坊ですm(__)m
さっそくですが、

WORDの１ページ目のみをコピーしたいのですが、汎用的に使いたいので
そのような関数、コマンド、又は平易な記述があれば教えて下さい。

現在、特定のヒナ型ページをコピーすることはできるのですが、
　WORDﾌｧｲﾙの１ページ目、　と指定できれば以下のような
複雑なコードは必要ないのです・・

Sub 一ページ目選択コピー()

　　'ページ先頭位置へ移動
　　Selection.HomeKey Unit:=wdStory
　　'一枚目、貼付頁選択、コピー
　　Selection.MoveDown Unit:=wdLine, Count:=10, Extend:=wdExtend
　　Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
　　Selection.MoveDown Unit:=wdLine, Count:=27, Extend:=wdExtend
　　Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
　　Selection.Copy
　　'最終位置へ移動、貼付
　　Selection.EndKey Unit:=wdStory
　　Selection.Paste
　　
End Sub

2,337 hits

▼

【488】Wordﾌｧｲﾙ１ページ目選択？ 新人クリ坊 06/9/8(金) 15:41