Problem getting filename and directory of current word doc.

[gazeranco]

Hey All,

New here so welcome to me, and thanks for having me!

I did a quick search to no avail. I use some CAD software and it produces lists for me in .xsr format, not really sure what that is but once done I open them with word, fix the formatting and then save as a .doc.

I recorded a macro to do this for me automatically, but the first issue I had was it was calling everyfile the same name. So I setup a variable/method to get the current file name, but it always uses the same name and its not the corrrect name.



It always saves the file as "templates.doc" in "C:\users\me\AppData\Roaming\Microsoft\Templates\T emplates.doc"

instead of where the file really is (on my desktop in a folder) and its real name (not template)

Any ideas? Code below!

Sub Format()
'
' Format Macro
' Report Format
'
    Dim fso As New FileSystemObject
    myPath = ThisDocument.Path
    myName = fso.GetBaseName(myPath)
    
    With Selection.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientPortrait
        .TopMargin = CentimetersToPoints(1.27)
        .BottomMargin = CentimetersToPoints(1.27)
        .LeftMargin = CentimetersToPoints(1.27)
        .RightMargin = CentimetersToPoints(1.27)
        .Gutter = CentimetersToPoints(0)
        .HeaderDistance = CentimetersToPoints(1.25)
        .FooterDistance = CentimetersToPoints(1.25)
        .PageWidth = CentimetersToPoints(21)
        .PageHeight = CentimetersToPoints(29.7)
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .BookFoldPrinting = False
        .BookFoldRevPrinting = False
        .BookFoldPrintingSheets = 1
        .GutterPos = wdGutterPosLeft
    End With

    Selection.WholeStory
    Selection.Font.Size = 10
    Selection.Font.Name = "Courier New"
    ChangeFileOpenDirectory (myPath)
    ActiveDocument.SaveAs2 fileName:=(myName), FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=0
End Sub

[gmayor]

'ThisDocument' is the document containing the macro - probably the normal template. What you are interested in here is the 'ActiveDocument'. The code you need is

Dim myName As String
    myName = Left(ActiveDocument.FullName, InStrRev(ActiveDocument.FullName, Chr(46))) & "docx"

[gazeranco]

Graham, works like a charm! Thank you.

Maybe you can help me solve another issue, currently I am using python to say...

for each document in folder... open document... run macro....

Would you know another way of achieving this without python. Say a .bat or something? What I don't want to do is install python on everyone PC in the office who would also benefit from this 'auto' formatting of word docs. All I really know is Python so its my goto language.

[gazeranco]

Graham,

Actually I think I can do this in c# and add it to the software we use to produce the actual lists, that will be a clean solution which will work for everyone. Thanks for your help again!

[gmayor]

http://www.gmayor.com/document_batch_processes.htm demonstrates a function to process all documents in a folder (and sub folders if required).

[es35]

Incredible that you need this much progamming to simply see the name of the file you are editing! There must be an easier way for the name to displayed.

[macropod]

Originally Posted by es35

Incredible that you need this much progamming to simply see the name of the file you are editing! There must be an easier way for the name to displayed.

So, what's incredible about the need for a single line of code? VBA gives you the options of:
ActiveDocument.FullName - for the name & path
ActiveDocument.Name - for the name
ActiveDocument.Path - for the path

[es35]

what is the single of line of code and where does it go (how is is used?)

[macropod]

That depends on what you want to do with it. In this thread at least, you've provided nothing that could pass for context.