悩んでいます

エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける

解決済

質問者：としたろー
質問日時：2020/09/26 22:09
回答数：4件

エクセルマクロでワードの一ページ目をコピーして新たに二ページを追加して、一ページ目の内容を貼り付ける方法を知っている方いませんか

つい先日、文字列の書き込みを教えていただいたばかりですが、処理上どうしてもエクセルの一操作でワードを操作したいです

構文をどう作成すれば良いか、全然わからない状況です

すみません、質問が分かりにくかったですね
ワードの一ページ目の内容をコピーし、新たにもう一ページ追加して、追加したページに一ページ目の内容を貼り付ける事をしたいです

補足日時：2020/09/27 03:58
通報する

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

参考程度に

No.4ベストアンサー

回答者： Qchan1962
回答日時：2020/09/27 11:03

こんにちは、

、、追加したページともとにあるページで2ページ同じものが出来れば良いと言う事でしょうか。つまり、1ページ目の複製を追加すると言う事でしょうか

＃３様の回答にあるように、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

元のドキュメントがどのような内容か分かりませんが、どうでしょう？
このまま使うには、エラー処理などが必要になると思います。