Здравствуйте.
Цитата |
---|
sashamesher написал: ...с именем идентичным названием папки в которой находится файл... |
Ну если файл только один, то можно прям таки идентичным, но если больше одного, то никак не получится, файлы ведь не могут быть с одинаковыми именами. Или подробнее объясните, каким Вы видите решение.
Вот подправил код, к началу имени файла(ПДФ) прикрепляется имя папки в которой он находится.
Вот так получается ==>
Код |
---|
Sub DocxToPDF_WithFolderName()
Dim objDoc As Document
Dim strFile As String, strFolderPath As String, strFolderOnly As String
Application.ScreenUpdating = False
strFolderPath = Application.ActiveDocument.Path & Application.PathSeparator
strFolderOnly = Split(strFolderPath, "\")(UBound(Split(strFolderPath, "\")) - 1)
strFile = Dir(strFolderPath & "*.docx", vbNormal)
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolderPath & strFile)
objDoc.ExportAsFixedFormat _
OutputFileName:=strFolderPath & strFolderOnly & "_" & Mid(strFile, 1, Len(strFile) - 5) & ".pdf", _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, _
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, Item:=wdExportDocumentContent
objDoc.Close
Set objDoc = Nothing
strFile = Dir()
Wend
Application.ScreenUpdating = True
'Application.Quit
End Sub |
Цитата |
---|
sashamesher написал: или с возможностью вбивать имя файла вручную |
И этот вариант тоже объясните, для случая когда несколько файлов, сделать не проблема, вопрос только, как именно Вы хотите...
_______
UPD:Вы отписались спустя почти неделю, та еще переписка, так и не объяснив "каким Вы видите решение...", в случае если файлов будет много.
Прикрутить кусок кода не трудно, Вы только скажите или покажите, как должен выглядеть конечный результат.
_______
P.S. И про Excel здесь как-то маловато, форум(та и сайт полностью) ведь специализируется именно по Excel-ю, а не по Word-y.