RE: Log File
- From: "JoeBo" <JoeBo@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Mon, 25 Jul 2005 23:56:03 -0700
Hello Anand
Thank you for your patience, I have loaded your new code but I may have
misinterpreted the following line:
open <path> file.txt for append as #filenu
My file is called wordlog.txt and is in the route directory "C:\" I have
replaced the line above with:
Open "C:\ excellog.txt" For Append As #filenu
But I receive the error message:
"Bad file name or Number"
Would you please post the correct syntax.
Many Thanks
Regards
JoeBo
"Anand.V.V.N" wrote:
> 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: Anand.V.V.N
- RE: Log File
- References:
- Log File
- From: JoeBo
- RE: Log File
- From: Anand.V.V.N
- RE: Log File
- From: JoeBo
- RE: Log File
- From: Anand.V.V.N
- Log File
- Prev by Date: Re: Helmut Weber -- Info please
- Next by Date: correct count of pages
- Previous by thread: RE: Log File
- Next by thread: RE: Log File
- Index(es):
Relevant Pages
|