Good afternoon!

I have created a series of macros for work that I use to analyze data. I would like to use these Macros on my home computers and my students would like to use them for analysis as well.

The problem is I am getting frustrated with having to go into my Macros and always change:
C:/Users/Danny/Desktop/ to C:/Users/Tina/Desktop/ to C:/Users/Becky/Desktop/ etc. How can I tell the macro C:/Users/ "ANYWHERE" /Deskop/?

Thanks! Bryan

PS - I am self-taught in programming so I don't have a large "tool box".

Hi Bryan,

Depending on what you're doing, it may be as simple as changing the hard-coded file path to:
ActiveDocument.Path
If that doesn't work, you really need to give more details of the code and where the document has been saved to when the macro is run.

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

Thank you Paul! But like I said, I'm fairly weak in VBA and coding... what is the "english translation" of ActiveDocument.Path? I'll look that command up in a dictionary too!

What I was doing was taking a text file off of C:/.../Desktop, importing it, then moving the text file to C:/.../Documents/ and exporting a picture to the desktop at the same time. This works for things like that?

Hi Bryan,
ActiveDocument.Path is a vba expression that returns the path to the active document. It is especially useful where you want to work on a file that's kept in the same folder as the document you're working on. Where the file you're working on is in a different, though related, folder, you can add code to strip off the unwanted parts and add on such additional (known) portions that you might need.

ActiveDocument.Path will typically return a string like:
C:/Users/Bryan/My Documents
so, if you wanted:
C:/Users/Bryan/Desktop
you could use the vba Replace command to change 'My Documents' to 'Desktop', and the ActiveDocument.Path expression combined with the Replace command would then work equally well for: C:/Users/Danny/Desktop;
C:/Users/Tina/Desktop; and
C:/Users/Becky/Desktop,
etc.

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