RE: Log File
- From: "Anand.V.V.N" <AnandVVN@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Mon, 25 Jul 2005 00:40:05 -0700
Hi Joe,
Write #filenu#, .Path & "\" & .Name
use write #filenu, .path & "\" & .name
Or try this code it should be better
dim filestring as string
with activedocument
if len(.paht)> 3 then
filestring= .path & "\" & . name
else
filestring=.path & .name
endif
end with
open <path> file.txt for append as #filenu
write #filenu,filestring
write #filenu,format(now(),"dd,dddd,mmmm,yyyy")
write #filenu,format(now(),"hh:mm:ss")
close #filnu
Hope this code works and you find it helpful.
Anand
--
"Who will guard the guards?"
"JoeBo" wrote:
> Hello Anand
>
> Thanks for your response. I have attempted to copy it into a module but the
> code complains of a compile error when the "write line" statement is
> inserted, that a # sign is missing. I wrapped # signs around the statement as
> follows:
>
> Write #filenu#, .Path & "\" & .Name
>
> but when the code is compiled it complains that:
>
> Type declaration character does not match declared data type
>
> Any suggestions.
>
> Regards
> --
> JoeBo
>
>
> "Anand.V.V.N" wrote:
>
> > Hi,
> >
> > Hope the sample code helps you.
> >
> > Create a copy of the normal.dot nad then modify the normal.dot. You can
> > edit the macros, and modify the inbuilt macros for saving opening, and
> > closing file. I am not sure which are the macros.
> >
> > Other way is to open the visual basic editor and in the open document, new
> > document, you can call a function called writelog, and write a function,
> > write the code there.
> >
> > To get the path and name
> >
> > ActiveDocument.Path gives you the document path
> > ActiveDocument.Name gives you the document name
> >
> > open a text file in the path you want in append mode, and every time the
> > file is opened, closed or saved, you can call a function that opens the text
> > file in appened mode and usign this statement you can write the log.
> >
> > in the function writelog use this code.
> >
> > dim filnu
> > filenu=Freefile
> >
> > open <path><filename> for append as filenu 'repalce the path and filename
> > with the opat and filename,
> >
> > with activedocument
> > if len( activedocument.path) > 3 then
> > write filenu, .path &"\" & .name ' if it is not the root directory, eg
> > "c:\path1.
> > else
> > write filenu, .path & .name ' if it is the root directory, eg "c:"
> > endif
> >
> > 'Use format function to write the date and time
> > write filenu,format(now(),"dd,dddd,mmmm,yyyy") 'any other format also can be
> > used like "dd/mm/yy" or "d,dd,dddd,mmmm,yyyy", "mm-dd-yy" etc
> >
> > write filenu,format(now(),"hh:ss:mm")
> >
> > close #filenu
> >
> > Hope you found this helpful. Is this what you wanted?
> >
> > Anand
> > --
> > "Who will guard the guards?"
> >
> >
> > "JoeBo" wrote:
> >
> > > I need some code that will add the filename and path as well as the current
> > > date and time to a log file called word files.txt each time a word document
> > > is opened or saved. Anyone Help
> > >
> > > Regards
> > >
> > > JoeBo
.
- Follow-Ups:
- RE: Log File
- From: JoeBo
- RE: Log File
- References:
- Log File
- From: JoeBo
- RE: Log File
- From: Anand.V.V.N
- RE: Log File
- From: JoeBo
- Log File
- Prev by Date: RE: Log File
- Next by Date: Extra characters in Rng.txt compared to Rng
- Previous by thread: RE: Log File
- Next by thread: RE: Log File
- Index(es):
Relevant Pages
|
Loading