[[20220118175800]] 『VBA ExcelでWordに差し込み+PDF保存』(KEN) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『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


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.