怎样将窗体输入的内容作为文件名的一部分另存为pdf

refeal_99 · 发表于 2020-12-22 11:57

求助！
做了个word的vba，输入和另存为pdf都搞定了，就是无法将窗体输入的内容作为文件名的一部分。
例如：售后编号2020122201，保存为售后服务确认单 - 2020122201.pdf。

zhanglei1371 · 发表于 2020-12-22 12:25

refeal_99 · 发表于 2020-12-22 12:38

zhanglei1371 发表于 2020-12-22 12:25

求助下，怎么改？搜索不到相关案例，然后参照类似的，都不对。非常感谢。

daibao88 · 发表于 2020-12-22 15:23

OutputFileName:=(sPath & "\" & "售后服务确认单 - " & rg & ".pdf") 2楼说的很明白了呀

413191246se · 发表于 2020-12-23 00:25

* 楼主，如果这些代码是你写的，我就太佩服你了！受益匪浅！
* 楼上张老师和戴老师都说明白了，确实没啥大改动的，仅差一点点，下面的代码运行完美（桌面上已自动生成PDF文档）：

Private Sub CommandButton1_Click()
Dim doc As Document
Set doc = ThisDocument
doc.FormFields("文字1").Result = TextBox1
doc.FormFields("文字2").Result = TextBox2
doc.FormFields("文字3").Result = TextBox3
doc.FormFields("文字4").Result = TextBox4
doc.FormFields("文字5").Result = TextBox5
doc.FormFields("文字6").Result = TextBox6
End Sub
Private Sub CommandButton2_Click()
Dim oDoc As Document
Set oDoc = Word.ActiveDocument
Dim oRng As Range
Set oRng = oDoc.Content
Dim rg As String
rg = TextBox7.Value
Dim sPath As String
'默认存储路径，当前用户桌面，注释掉的是当前文档路径
sPath = Environ("userprofile") & "\Desktop" 'Word.ActiveDocument.Path & ""
oDoc.ExportAsFixedFormat OutputFileName:=(sPath & "" & "售后服务确认单 - " & rg & ".pdf"), _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportFromTo, From:=1, To:=oDoc.Range.Information(wdNumberOfPagesInDocument), _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateHeadingBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True
MsgBox "PDF文档已保存！", 0 + 48
End Sub

复制代码

413191246se · 发表于 2020-12-23 00:34

楼主，切记，修改代码后，必须将模板存盘退出才有效。

refeal_99 · 发表于 2020-12-23 10:54

413191246se 发表于 2020-12-23 00:34
楼主，切记，修改代码后，必须将模板存盘退出才有效。

谢谢帮助，刚学VBA，欠缺很多。不算自己写的，也是参照了很多代码。

refeal_99 · 发表于 2020-12-23 10:56

zhanglei1371 发表于 2020-12-22 12:25

感谢张老师帮助，没仔细对比内容，我的失误。

refeal_99 · 发表于 2020-12-23 10:57

daibao88 发表于 2020-12-22 15:23
OutputFileName:=(sPath & "\" & "售后服务确认单 - " & rg & ".pdf") 2楼说的很明白了呀

感谢戴老师帮助，没仔细对比张老师给的内容，我的失误。

		自动登录	找回密码
密码			免费注册

[求助] 怎样将窗体输入的内容作为文件名的一部分另存为pdf