home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / utils_mz / v10n03.zip / FILENAME.WFW < prev    next >
Text File  |  1991-01-03  |  982b  |  41 lines
  1.  
  2. Sub MAIN
  3. REM All Word for Windows macros must begin with this statement.
  4.  
  5. A$ = " ("
  6. REM The letter A is assigned a space and the begin parenthesis.
  7.  
  8. B$ = " at "
  9. REM The letter B is assigned the text string " at ". 
  10. REM All text strings must be surrounded by quotation marks.
  11.  
  12. C$ = ")"
  13. REM The letter C is assigned the end parenthesis. 
  14.  
  15. Insert FileName$(0)
  16. REM The current file name and path are inserted at the cursor.
  17.  
  18. Insert A$
  19. REM A space and the begin parenthesis are inserted
  20. REM immediately after the file name.
  21.  
  22. InsertDateField
  23. REM The current date is inserted after the begin
  24. REM parenthesis.
  25.  
  26. Insert B$
  27. REM The word "at", with a space before and after it, is
  28. REM inserted following the current date.
  29.  
  30. InsertTimeField
  31. REM The current time is inserted after the word "at".
  32.  
  33. Insert C$
  34. REM The end parenthesis is inserted immediately after
  35. REM the current time.
  36.  
  37. EndSubAll 
  38. REM Word for Windows macros must end with this statement.
  39.  
  40.  
  41.