I have encountered an Issue where I save my PDF to a "Specified Folder" on my local computer by Application.Name.
Example: Name of Doc. Is "Test"
Test.cdr but when I save my PDF out by Application.Name it save its as Test.cdr.pdf when I really need it as test.pdf
How do I eliminate the .cdr extension from the name? Or is that even possible? Ignore the 'comment blocks. We work remotely from a special program that auto adds dsn numbers to a proof (which is why Im trying to fix the name issue) But local desktop cannot because program only exists on remote server. So I have to manually add dsn number there if I work from Local.
Private Sub cmdPDF_Click()On Error Resume NextActiveDocument.PublishToPDF folderPath & ActiveDocument.Name & ".pdf" ' pull from name from active document on remote system for ledger '''ActiveDocument.PublishToPDF folderPath & TextBox8.Text & ".pdf" 'manually add in info for ledger(local desktop)End Sub
Public Function folderPath() As StringfolderPath = CreateObject("WScript.Shell").SpecialFolders("") & "\\ac-fs1\F\Artproofs1\ModularTiles Proofs\Design_"End Function
Think you can help???