Word VBA質問箱 IV

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

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


35 / 298 ツリー ←次へ | 前へ→

【488】Wordファイル1ページ目選択? 新人クリ坊 06/9/8(金) 15:41 質問[未読]
【763】Re:Wordファイル1ページ目選択? マナ 13/5/19(日) 10:01 発言[未読]

【488】Wordファイル1ページ目選択?
質問  新人クリ坊  - 06/9/8(金) 15:41 -

引用なし
パスワード
   初めまして、クリ坊ですm(__)m
さっそくですが、

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

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


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

【763】Re:Wordファイル1ページ目選択?
発言  マナ  - 13/5/19(日) 10:01 -

引用なし
パスワード
   今更ですが、勉強のために試してみました。
こういうことでしょうか。
ActiveDocument.Bookmarks("\page").Range.Copy

>  '一枚目、貼付頁選択、コピー
>  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

35 / 298 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
201867
(SS)C-BOARD v3.8 is Free