![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4ベストアンサー
- 回答日時:
こんにちは、
、、追加したページともとにあるページで2ページ同じものが出来れば良いと言う事でしょうか。つまり、1ページ目の複製を追加すると言う事でしょうか
#3様の回答にあるように、Wordで自動記録を使ってマクロを作成して
Excelから
Dim wdApp As Word.Application
Set wdApp = GetObject(, "Word.Application")
wdApp.Run "Macro1" 'Macro1は、プロシージャ名
の様にWordマクロを実行する事が出来ると思います。
WordVBA はあまりよくわかりませんが、Excel側に書いて実行する場合。
参考:http://suyamasoft.blue.coocan.jp/WordVBA/Tips/in …
今回も、デスクトップにある文書1.docxをVBAで開いて処理しています。
存在の有無、開いているかの検証、開いているファイルに対して実行する場合など
諸々の処理は、書いていません。
Option Explicit
Public Sub Word_PageCopy()
Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim wdPath As String
Dim i As Integer, dmyObj
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
wdPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
Set objDoc = objWord.Documents.Open(wdPath & "\文書1.docx")
With objWord.Selection
Call .Goto(What:=wdGoToPage, Which:=wdGoToFirst, Count:=[1])
.EndKey Unit:=wdStory, Extend:=wdExtend
.Copy
' .InsertNewPage
.InsertBreak Type:=wdNewBlankDocument
For i = 1 To 2
Call .Goto(What:=wdGoToPage, Which:=wdGoToFirst, Count:=[i])
.Paste
Next
End With
' Sheets(1).Range("A1").PasteSpecial (xlPasteValues) ’ExcelSheetへ
Set dmyObj = New DataObject 'Application.CutCopyMode = Falseのかわり
dmyObj.SetText ""
dmyObj.PutInClipboard
'Wordドキュメントを閉じる
' objDoc.Close
'Wordを閉じる
' objWord.Quit
End Sub
元のドキュメントがどのような内容か分かりませんが、どうでしょう?
このまま使うには、エラー処理などが必要になると思います。
No.3
- 回答日時:
ワードマクロ機能を使って、
プログラムを書く事なく、
追加作業を記録し、実行すれば良いかと思います
以下参考までに
https://kekaku.addisteria.com/wp/20180608083435
No.2
- 回答日時:
こんばんは、
少し分からないのですが、、
>一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける
先頭に2ページ新規に作って、どこに貼り付けるのですか?
2ページ挿入した時点で1ページ目の内容は3ページ目にあると思いますが、?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Access(アクセス) Accessのクエリの結果を、既存のエクセルに追加したい 2 2022/07/31 22:44
- Word(ワード) LibreOfficeで数年保存しているデータの変更作業 4 2022/07/08 17:15
- Word(ワード) ワードの表、別文書からコピペすると、レイアウトが崩れる 3 2022/04/17 14:59
- その他(Microsoft Office) EXCEL2007 右クリックに「値を貼り付け」がない プライベートのパソコンを購入し(window 3 2022/04/13 23:10
- Word(ワード) ワードの背面や前面 5 2023/01/28 11:50
- Excel(エクセル) エクセルで作った文章を図で貼り付けたが元のエクセルが削除したので図からエクセルに戻したい 4 2022/07/05 08:11
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- 事務・総務 未経験で事務 7 2022/06/30 06:49
- Word(ワード) 差し込み印刷 4 2022/07/19 20:51
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
ワードからエクセルへ貼り付けるマクロ
Excel(エクセル)
-
エクセルでページをコピーして貼り付けるマクロ
Visual Basic(VBA)
-
EXCELのVBAでWORDが開いてあるかチェック
Excel(エクセル)
-
-
4
ワードの図形をコピー&ペイストのマクロ
Word(ワード)
-
5
ExcelのVBAでWordを読み取り専用で開いて、見たいページに自動で移動する方法を教えて頂きたい
Excel(エクセル)
-
6
Excel VBAでWordの複数ファイルを統合する場合のエラーについて教えてください
Visual Basic(VBA)
-
7
WordVBAで規定のところに文字列を挿入したい
Access(アクセス)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
【Excel】マクロでページを追加することはできますか?
Excel(エクセル)
-
10
ワードマクロで画像を選択する方法
Word(ワード)
-
11
ワード上Shapeの位置情報を統一基準で取得したい
Visual Basic(VBA)
-
12
【ワード】マクロで画像を選択する
Word(ワード)
-
13
大量のワードファイルからデータをエクセルに抽出したい
Access(アクセス)
-
14
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
15
ExcelVBAで既に開いてるwordを閉じる
Excel(エクセル)
-
16
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
17
エクセルマクロでボタン一つでWordにテキスト貼りつけしたいです
Excel(エクセル)
-
18
wordでの指定オブジェクトの削除
Word(ワード)
-
19
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
20
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
Excel・Word リサーチ機能を無...
-
メッセージボックスのOKボタ...
-
Excel マクロ VBA プロシー...
-
エクセルで特定の列が0表示の場...
-
TERA TERMを隠す方法
-
wordを起動した際に特定のペー...
-
一つのTeratermのマクロで複数...
-
ExcelVBAでPDFを閉じるソース
-
特定文字のある行の前に空白行...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
EXCELマクロでのThisisWor...
-
ExcelVBA 図形をクリックした...
-
ExcelのVBA。public変数の値が...
-
非表示の列をすべて削除するマクロ
-
EXCELのVBAでRange("A1:C4")を...
-
VBAで特定の文字を含まない列の...
-
uwscの使い方について。ifの前...
-
エクセル マクロ 指定日の指定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
特定のPCだけ動作しないVBAマク...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
TERA TERMを隠す方法
-
2つのマクロでチェックボックス...
-
マクロ実行時、ユーザーフォー...
-
【マクロ】1つのマクロの中に...
-
ピボットテーブルでの毎回可変...
-
特定文字のある行の前に空白行...
-
エクセルのマクロについて教え...
-
wordを起動した際に特定のペー...
おすすめ情報
すみません、質問が分かりにくかったですね
ワードの一ページ目の内容をコピーし、新たにもう一ページ追加して、追加したページに一ページ目の内容を貼り付ける事をしたいです