home *** CD-ROM | disk | FTP | other *** search
/ Chip 1994 February / CHIP0294.ISO / digital / praxis / tips10 / tips10.lst < prev   
File List  |  1994-09-30  |  3KB  |  131 lines
  1. ((Listing: Ami Pro Playmakro))
  2. FUNCTION PLAYMAKR1()
  3. FileName=GetDocInfo$(DDFilename)
  4. FilePath=GetDocInfo$(DDPath)
  5. FileName=strcat$(FilePath, ,"\",FileName)
  6. IF FileName=GetRunningMacroFile$()
  7.   Message("Kann mich nicht selbst aufrufen!",
  8. "PlayMakro-Meldung")
  9.   EXIT FUNCTION
  10. ENDIF
  11. Save()
  12. Calli FileName ()
  13. END FUNCTION
  14. ((Listing Ende))
  15.  
  16.  
  17.  
  18.  
  19. ((Listing Winword: Clipart auf einen Blick))
  20. Sub MAIN
  21. FormatSpalten .Spalten = "2", .GleicherSpaltenabstand = 1
  22. AnsichtNormal
  23. DateiManager .Suchpfad = "G:\SYSPROGS.II\WINWORD6\CLIPART", .Name = "*.wmf"
  24. Menge = ZählenGefundeneDateien() - 1
  25. If Menge >= 0 Then
  26.     Dim Dokumente$(Menge)
  27.     For Bild_Nr = 0 To Menge
  28.         Dokumente$(Bild_Nr) = GefundenDateiName$(Bild_Nr + 1)
  29.         Clipart$ = Dokumente$(Bild_Nr)
  30.         EinfügenGrafik .Name = Clipart$, .DateiVerknüpfen = "0"
  31.         EinfügenAbsatz
  32.         Einfügen Clipart$
  33.         EinfügenAbsatz
  34.         EinfügenAbsatz
  35.     Next
  36. End If
  37. AnsichtLayout
  38. End Sub
  39. ((Listing ENDE))
  40.  
  41.  
  42.  
  43.  
  44. ((Listing QBasic/DOS: BINDEN.BAT))
  45. @rem binden.bat
  46. @rem Autor: Ralf Wachinger
  47. @echo off
  48. cls
  49. if "%1"=="" goto fehlt
  50. if not exist %1 goto nichtda
  51. if "%2"=="" goto fehlt
  52. for %%i in (%2 %3 %4 %5 %6 %7 %8 %9) do if not exist %%i goto nichtda
  53. for %%i in (%2 %3 %4 %5 %6 %7 %8 %9) do call binden__ %1 %%i
  54. goto ende
  55. :fehlt
  56. echo Binden muss mindestens 2 Parameter haben!
  57. goto ende
  58. :nichtda
  59. echo Eine oder mehrere angegebene Dateien echo konnten nicht gefunden werden!
  60. :ende
  61. @echo on
  62. ((Listing ENDE))
  63.  
  64. ((Linsting QBasic/DOS: BINDEN__.BAT))
  65. @rem binden__.bat
  66. @rem Autor: Ralf Wachinger
  67. @echo off
  68. copy %2 + %1 binden__.tmp
  69. del %1
  70. rename binden__.tmp %1
  71. @echo on
  72. ((Listing ENDE))
  73.  
  74.  
  75.  
  76.  
  77. ((Listing Novell DOS 7.0: Menu.bat))
  78. @echo off
  79. :start
  80.   cls
  81.   echo  1 - Textverarbeitung
  82.   echo  ---------------------
  83.   echo  2 - Datenbank
  84.   echo  ---------------------
  85.   echo  3 - Windows
  86.   echo  ---------------------
  87.   echo  4 - PLZ Programm
  88. echo -----------------------------
  89. choice /C:1234E  Menüpunkt auswählen oder mit E beenden
  90.     if errorlevel 5 goto ende
  91.     if errorlevel 4 goto plz
  92.     if errorlevel 3 goto win
  93.     if errorlevel 2 goto bank
  94.     if errorlevel 1 goto text
  95. :text
  96.   cls
  97.  if not exist  c:\text\text.com  goto fehler
  98.   call TEXT.exe
  99.   goto start
  100.  
  101. :bank
  102.   cls
  103.   call Datenbank.exe
  104.   goto start
  105.  
  106. :win
  107.  cls
  108.  WIN
  109.  goto start
  110.  
  111. :plz
  112.  cls
  113.  call PLZ.bat
  114.  goto start
  115.  
  116. :fehler
  117.  cls
  118.  echo ESC 22;28 Nicht installiert. Taste..
  119.  pause>nul
  120.  goto start
  121.  
  122. :ende
  123. cls
  124. ((Listing ENDE))
  125.  
  126. {DATEINAME |TIPS1.DOT}
  127.  
  128. {SEITE|1}
  129.  
  130.  
  131.