Wordの送付先名をエクセルに転記したい

質問

システムからダウンロードした毎回ファイル名が違う送付状（Word2010）の宛先をコピーして、郵便発送先一覧表（Excel）に張り付けしたいのですが、2回ボタンを押すようになります。
どうしたら、１回でできるでしょうか？
下記コードは、いろいろなHPから拝借したものです。
よろしくお願いいたします。

Sub 社名をコピー()
MsgBox LineSentence(5)
End Sub

Function LineSentence(posL As Long) As String
With Selection
.GoTo wdGoToLine, wdGoToAbsolute, posL
.SetRange .Start, .Sentences(1).End
.Copy
LineSentence = .Text
End With
End Function

Sub エクセルに転記()
Dim ourR As String
On Error Resume Next
ourR = Selection.Text
With GetObject(, "Excel.Application")
.Visible = True
.Run "コピー", ourR
End With
End Sub

エクセルのマクロ
Sub コピー(ourR As String)
MsgBox ourR

Sheets(Month(Now()) & "月").Select
Range("C1048576").End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues

End Sub

回答No.1

real beatin（@realbeatin） · ベストアンサー

こんにちは。

「宛先をコピー」というより、機械的に５行めをコピーするみたいですけれども、
現状をなるべく活かすとして、

Sub 社名をコピー()
　　If MsgBox("以下をコピーしてエクセルに転記しますか？" & vbLf & vbLf _
　　　　　　　　& LineSentence(5), vbYesNo) = vbYes Then
　　　　エクセルに転記
　　End If
End Sub

のように書換えてみたら如何でしょう。
メッセージボックスで、
[はい]を選べば、エクセルに転記を実行します。
[いいえ]を選べば、何もしません。

お礼

realbeatinさん、ありがとうございました。
うまくいきました。
明日から、使用させていただきます♪