Question

我想用值填写一个单词并多次导出到pdf。

如果使用SaveAs2，那么它会创建一个pdf的第二个或第三个，但它能够工作。

'ActiveDocument.SaveAs2 FileName:="C:\alap\" & fajlneve & ".pdf", FileFormat:=wdFormatPDF

如果我使用CutePDf打印机，结果是相同的，第一次i = 1它可以工作，但第二次它doesen＆＃tt。

Public compname As String
Public filename As String


Function FillwordForm()

Dim appword As Word.Application
Dim doc As Word.Document
Dim Path As String


On Error Resume Next
Error.Clear


Set appword = GetObject(, "word.application")
If Err.Number <> 0 Then

Set appword = New Word.Application
appword.Visible = True

End If
Path = "C:\pelda\MINTA.docx"
Set doc = appword.Documents.Open(Path, , True)

With doc

    .formfields("szerzCegnev").result = compname

End With

appword.Visible = True
appword.Activate

Set doc = Nothing
Set appword = Nothing

appword.ActivePrinter = "CutePDF Writer"

ActiveDocument.PrintOut OutPutFileName:="C:\pelda\" & filename & ".pdf"

ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges

Word.Application.Quit

End Function


  '---------------------------------------------------------------


Sub cucc()

For i = 1 To 2

compname = Cells(i, 1)
filename = Cells(i, 2)
Call FillwordForm

Next i


End Sub

Answer 1

您可以使用：

    ActiveDocument.SaveAs2(docname,17);

？（17是PDF格式-link to fileformats）

格里兹

EXCEL VBA单词到pdf多次SaveAs2

1 个答案: