[[20220118175800]]　『VBA ExcelでWordに差し込み＋PDF保存』（KEN）　ページの最後に飛ぶ

『VBA ExcelでWordに差し込み＋PDF保存』（KEN）

Excel（マクロ）のシートにデータを作成
1行目は項目欄。
データはA～Fに入力されていますがWordに差し込むデータはB～F
ボタンを配置し下記VBAを記載。
Excel（マクロ）とWordは同じフォルダに配置。
VBA初心者ですが色々調べたりしながらなんとか下記まできましたが
どうしても同じフォルダ内にPDFが保存されないです。
マクロのエラーも起きないのでどこがおかしいのかわかりません。
よろしくお願いします。

Sub ボタン1_Click()

    Dim waitTime As Variant
    Dim i As Long, k As Long
    Dim path As String, pdffilepath As String, pdffilename As String

    Dim wdapp As Word.Application
    Set wdapp = CreateObject("Word.application")
    Dim wddoc As Word.Document
    wdapp.Visible = True
    path = ThisWorkbook.path & "\表紙.docx"

    Dim ws1 As Worksheet
    Set ws1 = Worksheets("差込DB")

    Dim myrange1 As Variant
    myrange1 = ws1.UsedRange

    For i = LBound(myrange1) + 1 To UBound(myrange1)
        Set wddoc = wdapp.Documents.Open(path)
        waitTime = Now + TimeValue("0:00:03")
        Application.Wait waitTime
        For k = LBound(myrange1, 2) + 1 To UBound(myrange1, 2) - 1
            With wddoc.Content.Find
            .Text = myrange1(1, k)
            .Forward = True
            .Replacement.Text = myrange1(i, k)
            .Wrap = wdFindContinue
            .MatchFuzzy = False
            .Execute Replace:=wdReplaceAll
            End With
        Next

        pdffilename = myrange1(i, 2) & "_" & myrange1(i, 3) & ".pdf"
        pdffilepath = ThisWorkbook.path & "\" & pdffilename
        wddoc.SaveAs2 fileName:="pdffilepath", FileFormat:=17

        wddoc.Close savechanges:=False
    Next

    wdapp.Quit
    Set wddoc = Nothing
    Set wdapp = Nothing

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

  ＞        wddoc.SaveAs2 fileName:="pdffilepath", FileFormat:=17
  　　　　　　　　　　　　　　　　　~~~~↑~~~~~~~
  　　　　　　　　　　　　　　　　　　ここが単なる文字列になっていますよ。
 　　　　　　　　　　　　　　　　　　(ダブルクォーテーションは不要）

（半平太） 2022/01/18(火) 19:43

ありがとうございます。
””を外すとエラーで正常にコマンド終了できないとメッセージが出てきてしまうんです。
エラー個所も
wddoc.SaveAs2 fileName:="pdffilepath", FileFormat:=17の部分みたいなのですが
どこが問題なのでしょうか。
（KEN） 2022/01/19(水) 09:22

 変数　pdffilepath　に何が入っているかチェックしてください。

 イメージ通りになってないんだと思いますよ。

（半平太） 2022/01/19(水) 09:38

コメント返信：

[ 一覧(最新更新順) ]

[[20220118175800]] 『VBA ExcelでWordに差し込み＋PDF保存』（KEN） ページの最後に飛ぶ

[[20220118175800]]　『VBA ExcelでWordに差し込み＋PDF保存』（KEN）　ページの最後に飛ぶ