Quote:
Originally Posted by macropod
ActiveDocument.Path will return the current document's folder name. To go up one level, simply strip off the last folder name from that. For example:
Code:
Sub Demo()
Dim StrOldPath As String, StrNewPath As String
StrOldPath = ActiveDocument.Path
StrNewPath = Left(StrOldPath, InStrRev(StrOldPath, "\"))
StrOldPath = StrOldPath & "\"
MsgBox StrOldPath & vbCr & StrNewPath
End Sub
|
I am not so familiar with VBA, but this code flawly,
how do I make the last steps in my thread
copy the .pdf and create folder?
Thank you so much in advance sir