Hello Everyone,





I wonder if there is a way to do following.

if I am open a word document from a directory,
how do I make a word macro that look at the same directory
(get the location, the best if the macro doesn't save the word document I have opened if that is necessary to get the location)

copying two .pdf files
navigates one level up creates a folder and put the .pdf files there

Thank you in advance.

All MSofficeForum Members,

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:

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Cross-posted at: http://www.vbaexpress.com/forum/show...ctive-location
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

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

Create what folder? I also have no idea what particular two PDF files you're referring to.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

the macro need to copy two pdf files, the pdfs have always different names on each job. so if we could use wildcards and .pdf to grab them. (always just 2 pdfs in the active folder path too)


then need the macro to create a folder one level up from active part called "translation to"
and put the pdfs there.

for example:

I open source.doc
at C:/jobs/341423/source/source.doc

"in C:/jobs/341423/source/" there are

2 pdfs.
2 word files.

"I need to create a folder in "C:/jobs/341423/translation to"

and put the two pdfs from "C:/jobs/341423/source/" to "C:/jobs/341423/translation to"

I am almost finished

need to create folder tho


Sub Test1()
'
' Test1 Makro
'

Dim StrOldPath As String, StrNewPath As String
StrOldPath = ActiveDocument.Path
StrNewPath = Left(StrOldPath, InStrRev(StrOldPath, "\"))
StrOldPath = StrOldPath & "\"


FileExt = "*.pdf*" '<< Change
'You can use *.* for all files or *.doc for Word files

If Right(StrOldPath, 1) <> "\" Then
StrOldPath = StrOldPath & "\"
End If

Set FSO = CreateObject("scripting.filesystemobject")

If FSO.FolderExists(StrOldPath) = False Then
MsgBox StrOldPath & " doesn't exist"
Exit Sub
End If

If FSO.FolderExists(StrNewPath) = False Then
MsgBox ToPath & " doesn't exist"
Exit Sub
End If

FSO.CopyFile Source:=StrOldPath & FileExt, Destination:=StrNewPath
MsgBox "You can find the files from " & StrOldPath & " in " & StrNewPath


End Sub

Try:
To merely copy the files, delete 'Kill StrOldPath & strFile'.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you sir my problem is solved you are one of the first people on all VBA forums I hang on,


that actually can solve my problem good work man!