VBA Before Save 1

[simoncpage]

Hi all, an interesting one that I'm not sure how to work out.

A new word document is created it is then saved is there any way of adding in the filename and directory after saving the file i.e it automatically saves it again with these details in the header?

Any idea would be most appreciated???

Thanks

Simon

 

[Loomah]

Hi Simon
If I understand you correctly the following will add filename & path into the header of the active document (I hope)

Sub standard()
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
    ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
    ActivePane.View.Type = wdOutlineView Then
    ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    &quot;FILENAME \p &quot;, PreserveFormatting:=True
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

However, if you substitute these lines it won't work. Dunno why

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
[b]NormalTemplate.AutoTextEntries("Filename and path").Insert Where:= _
        Selection.Range[/b]
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[simoncpage]

I've actually got that far the problem I have is that unlike excel there isnt a beforesave / beforeprint procedure. I want to add in the filename to the header when the person saves the file or prints the file wwithout having to click on another macro button before hand

 

[Loomah]

OOooops
Should have known really!

Haven't looked into this in great detail but you should get the help you want from this link

http://www.mvps.org/word/FAQs/MacrosVBA/InterceptSavePrint.htm

Should do better!
;-) If a man says something and there are no women there to hear him, is he still wrong?

 

[simoncpage]

Cheers thats great!