| |
初めまして、クリ坊です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
|
|
![[未読]](./data/word/image/read_icon.gif){kind=icon}
