ࡱ; .%  !"#$&'()*+,-/01Root Entry  !"#$&'()*,-./0123456789:;<=>?@ABCDEFGHIJKL B^$WTextStarWriter 4.05- SBX sb Z Standard StarBASICSBX ARSBX AR SBX AR2c%bqqSfxDocumentInfo Werner Roth 0o  Werner Roth 0o  uK&KurzLite Kurzliteraturverweis einfgen SVGDI*.A % J,?NTimes New Roman;Times NTimes New Roman`NTimes New Roman;Times NTimes New RomanZ~&&%KurzLite Kurzliteraturverweis einfgen!rc^O o'X aA = X  7 h M''&Werner Roth L v `RZC , ` G ( W F_  StarWriter 3.1 0}a*1-  und <-  4.0<  ^^]In einem Dialog kann man einen Literaturverweis markieren und via OK-Button (oder Doppelklick) NlH0c J/X s 1 C 7 s  5 v 3T)?b"NF(@'TL /!!!"" #;###+$$% in das Dokument einfgen.6o6r-gFw\  VVUDie Literaturverweise werden aus bei jedem Dialogstart aus einer Textdatei eingeladen.Z$XVv:K(d v < # _ 8 R ;y\mF7H$c B }C!bLD#y x wFFEDer Dateiname mu in "Sub Kurzliteratur" entsprechend gendert werden!fIc }*  M $ i +ON'g@gD<xO+bH/JJIFr Makroerfahrene ist die Sub KLD_LoadFromDBF mitgegeben. Hier werden die KZ=mo.Yc F < 5 VX:8Q8~a?+"ofM ^^]Literaturangaben aus einer beliebigen Datenbank ausgelesen, um die Zusammenarbeit mit externen q.q1m[p$ ,  I } n  L_ ycYn;PJ4t@ce1/ k !R!!!V""#q##1$$2!! Literaturmanagern zu ermglichen.q.q6V8j*J -  k M"V554Um das Makro in die swriter3-Bibliotheken einzufgen:h[!N26 n 5 / a  T xhG W>hDieses Dokument ffnenM~aWuXgbzExtras|Makro [Verwalten]@Z_DLBKo xOrdner BibliothekenxP~2l$jJ7}Bibliothek: swriter3RCi8txB2[Neu]JkJ==<(Namen ggf. ndern -festhalten und Bibliothek anklicken)Jk>b@+ A # d 0 t V ArjCv2h0D/g iZ Ordner ModulexP+M]]\KurzLite und KurzLiteDiag mit der Maus auf die neue Bibliothek ziehen (ggf. dabei \9G3oMo)L Z | %  R  9 G<|QjwZ6Z3e!X*^@9u3:v !!"N""/##$Adrcken)y4SBX sb ( KurzLite StarBASICSBX ARSBX AR SBX AR CV e  KurzLiteDiagDialoga VCControls  0=n@=ListBox KurzLiteDiagCommandButton1OKButt AbbruchButtXXX-XAXM @g@X:@x ,XXXX&:@, tXXXX&.@CpXXX.@}hXXXz@CommandButton1Literaturverweis einfgenOKAbbruchNeue LiteraturXX"XAXIXV:@EXXXX&@|000X@X@XX@X$$(@ KLD_InsertXX%%9@S KLD_InsertKLD_NewXXX+&&@{X''@X((@X))@X**@X++@X,,@;X--@[X22@{X33@X44 @ KLD_ActivateX66@X;;F@5 KLD_Insert KLD_InsertXX(LFQ6Vv" Pa$$%%&&''(())**++,,--22334466SBX AR SBX AR SBX ARCV z ListBoxea  cba$$;;SBX AR SBX AR SBX ARCV n  CommandButtonLa %%;;SBX AR SBX AR SBX ARCV n  CommandButton@a SBX AR SBX AR SBX ARSBX bm " KurzLiteStarBASICModuleSBX AR(SBX em- KLD_Activate"4SBX em+ KLD_Insert~SBX em. Kurzliteratur SBX em0KLD_LoadFromTxt$DSBX em0KLD_LoadFromDBFF|SBX AR SBX ARBM MN KurzLiteSC' Kurzliteraturverweis einfgen ' Werner Roth ' ' In einem Dialog kann man einen Literaturverweis markieren und ' via OK-Button (oder Doppelklick) in das Dokument einfgen. ' Die Literaturverweise werden aus bei jedem Dialogstart aus einer Textdatei ' eingeladen. ' Der Dateiname mu in "Sub Kurzliteratur" entsprechend gendert werden! ' ' Fr Makroerfahrene ist die Sub KLD_LoadFromDBF mitgegeben ' Hier werden die Literaturangaben aus einer beliebigen Datenbank ' ausgelesen, um die Zusammenarbeit mit externen Literaturmanagern ' zu ermglichen. PUBLIC DateiName$ Sub Kurzliteratur ' Dateiname entsprechend ndern! z.B. DateiName$ = "e:\examen\text\kurzlite.txt" DateiName$ = "kurzlite.txt" KurzLiteDiag.Show ' um dokumentspezifische Kurzliteraturverweise zu bekommen, ' kann man die Dokumentinfo mibrauchen, in dem man den Dateinamen ' als Thema angibt: ' DateiName$ = ActiveWindow.DocumentInfo.Subject End Sub Sub KLD_Activate ListBox.Clear KLD_LoadFromTxt ' Freischalten, wenn aus einer Datenbank eingefgt werden soll ' KLD_LoadFromDBF ListBox.ListIndex = 0 ListBox.Selected(0) = true End Sub Sub KLD_LoadFromTxt ' Diese Prozedur ld die Listbox aus einer Textdatei, die wie folgt aufgebaut sein soll: ' - In jeder Zeile steht eine Kurzliteraturangabe ' - z.B. Damerow, P. / Lefvre, W., Rechenstein, 1981 ' - ", S. " wird automatisch an den Lieraturverweis angehangen ' - die Datei sollte keine Leerzeilen enthalten ' ' Prozedur kann entfernt werden, wenn eine Literaturdatenbank mit ' KLD_LoadFromDBF eingeladen wird. DIM a$ 'Gibt es die Datei? if Dir$(DateiName$) = "" then ' Versuche ob die Datei im gleichen Pfad wie das Dokument liegt! DateiName$ = ActiveDocument.Path+"\"+DateiName$ if Dir$(DateiName$) = "" then a$ = DateiName$+" ist nicht vorhanden!"+chr(13) a$ = a$ + "Bitte ndere die Variable"+chr(13) a$ = a$ + "DateiName$ im Kopf des Makros KurzLite" MsgBox a$ ListBox.AddItem("Keine Literatur gefunden!") ListBox.Enabled = false OKButt.Enabled = false Exit Sub endif endif 'Datei nicht vorhanden #DatKanal = FreeFile OPEN DateiName$ for Input Access Read As #DatKanal DO UNTIL Eof(#DatKanal) LINE INPUT #DatKanal, a$ ListBox.AddItem(a$) LOOP CLOSE #DatKanal End Sub 'KLD_LoadFromTxt Sub KLD_LoadFromDBF ' Diese Prozedur ld die ListBox aus einer Datenbank. ' Der Datenbankname ist hier "Literatur" und mu eingerichtet sein (Einfgen|Datenbank Datenbank|Datenbank) ' Der Tabellenname ist "literat" ' Diese Lademglichkeit ist fr Leute gedacht, die mit einer externen Literaturverwaltung ' arbeiten und so Zugriff auf diese Literaturdaten haben. ' Der hier angegebene Quelltext ist nur ein Beispiel und mu den eigenen Gegebenheiten ' angepat werden. ' ' Prozedur kann entfernt werden, wenn eine Literaturdatenbank mit KLD_LoadFromTXT eingeladen wird. DIM a$, help$ ' ffne Datenbank ActiveWindow.OpenDatabaseConnection("Literatur") ' SQL-Abfrage fr die aktuelle Datenbank ausfhren: ' AUTNAME1, AUTVONAME1, usw. sind die Spaltennamen der Zieltabelle "literat.dbf" gib hier nur ' Spalten an, die Du auch bentigst. Falls Du alle bentigst SELECT * FROM... ' zur Eingrenzung der Zeilen der Tabelle SELECT FROM WHERE ActiveWindow.DataSelect("SELECT AUTNAME1, AUTVONAME1, AUTNAME2, AUTVONAME2, KURZTITEL, JAHR FROM "+chr$(34)+"literat"+chr$(34)+" ORDER BY AUTNAME2 ASC") ' Selektiere den ersten Datensatz ActiveWindow.DataFirstRecord ' Scanne die Tabelle DO a$ = "" ' dieser String mu leer bleiben, falls das Ende der Tabelle erreicht wird! 'AutorName1 help$ = RTrim$(ActiveWindow.DataColumn(1)) if Len(help$)<>0 then a$ = a$ + help$ +", "+ Left$(ActiveWindow.DataColumn(2),1)+"." ' aus "Meyer" und "Hans" wird "Meyer, H." endif 'AutorName2 help$ = RTrim$(ActiveWindow.DataColumn(3)) if Len(help$)<>0 then a$ = a$ + " / "+ help$ +", "+ Left$(ActiveWindow.DataColumn(4),1)+"., " else if Len(a$)<> 0 then a$ = a$ + ", " endif endif 'Kurztitel help$ = RTrim$(ActiveWindow.DataColumn(5)) if Len(help$)<>0 then a$ = a$ + RTrim$(help$)+", " endif 'Jahr help$ = RTrim$(ActiveWindow.DataColumn(6)) if Len(help$)<>0 then a$ = a$ + RTrim$(help$) endif ' Fr die Stringbearbeitung bentigte Funktioen unter: "Zeichenfolgenfunktionen" nachschauen if Len(a$)<> 0 then ListBox.AddItem(a$) endif ActiveWindow.DataNextRecord 'Selektiert den nchsten Datensatz in der aktuellen Datenbank Loop Until Len(a$)=0 End Sub 'KLD_LoadFromDBF Sub KLD_Insert ' Literaturangabe einfgen Selection.Text.Insert(ListBox.List(ListBox.ListIndex)) Selection.Text.Insert( ", S." ) ' geschtztes Leerzeichen einfgen Selection.Text.InsertNonBreakingSpace() ' Damit die Textdatei (bzw. Datenbank bei jedem Start neu eingelesen wird! ' Wer das nicht mchte nimmt KurzLiteDiag.Hide KurzLiteDiag.UnLoad End Sub 'KLD_Insert PC&EE%A  +     B! B "+$-/AG1  A2AG3 AB 4 AB 5 A6 7  A 8    9    : E = >B ?  F@ ,3A  BEC ,OD+FP"R# A$% W# A&B"A'B"A() Y# * \A^"# B+ ,_"-B G` "A.# B+ B/A0c"# B+ ,d"-B Gue A1"A.# B+ B/A2Eg -B Gh A.l"# B+ ,m"-B Gn ",A.q"# B+ ,r"-B GQs ",w-B Gx   z# 3 {-BG||+~5 6   7 8 5 6 A98 5 6 :  ; ++ST; %27DLRbluz (.5>GK[`mw"&).048GR\afmrDateiNameKurzliteraturkurzlite.txtKurzLiteDiagShowKLD_ActivateListBoxClearKLD_LoadFromTxtListIndexSelectedPAR2trueaDirActiveDocumentPath\ ist nicht vorhanden!chrBitte ndere die VariableDateiName$ im Kopf des Makros KurzLiteMsgBoxKeine Literatur gefunden!AddItemEnabledfalseOKButtDatKanalFreeFileEofKLD_LoadFromDBFhelpActiveWindowLiteraturOpenDatabaseConnectionSELECT AUTNAME1, AUTVONAME1, AUTNAME2, AUTVONAME2, KURZTITEL, JAHR FROM literat ORDER BY AUTNAME2 ASCDataSelectDataFirstRecordDataColumnRTrimLen, Left. / ., DataNextRecordKLD_InsertSelectionTextListInsert, S.InsertNonBreakingSpaceUnLoad2c%bqq Dokument transportiert Makro Info 0 Info 1 Info 2 Info 3 0QT<b4Standard LIBIMBEDDED LIBIMBEDDEDbKurzLite LIBIMBEDDED LIBIMBEDDED+2,max,3857;2250;104;1333;0;11775;8322;1;0,1SWG, A<  #$%&'()*./0123456789:;<=>?@ABCDGHK  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFQRSTU 0WP$' '(n, , J , , &, , , p#, ', L,, 0, (5, 9, >, 6')J2< 7StandardStandard@Oh+'0H h t  1@@0:@?o@?o Werner Roth Werner RothDokument transportiert Makro'KurzLite Kurzliteraturverweis einfgenSW4HDR.0p !~ Frameformat ZeichenformatTextformatvorlageStandardRoot 5Standard  Abbildung Tabelle TextPp 2$99 SAAP.AAPndnddnAPndndSAAP.AAPndnddnAPndndZSW4HDR.0p C(364K(BUILD:1538)(SV364)]DAdrebuchadressen!~ Frameformat ZeichenformatTextformatvorlageStandardRoot 5Standard  Abbildung Tabelle Textdy01 j) stardiv.dicY standard.dicNTD$&KurzLite Kurzliteraturverweis einfgenw TI$'Werner Roth w  T!$StarWriter 3.1 und 4.0T $T$xIn einem Dialog kann man einen Literaturverweis markieren und via OK-Button (oder Doppelklick) in das Dokument einfgen.Ta$VDie Literaturverweise werden aus bei jedem Dialogstart aus einer Textdatei eingeladen.T`$FDer Dateiname mu in "Sub Kurzliteratur" entsprechend gendert werden!wT$Fr Makroerfahrene ist die Sub KLD_LoadFromDBF mitgegeben. Hier werden die Literaturangaben aus einer beliebigen Datenbank ausgelesen, um die Zusammenarbeit mit externen Literaturmanagern zu ermglichen.w# T $TO$5Um das Makro in die swriter3-Bibliotheken einzufgen:wT!$Dieses Dokument ffnenT#$Extras|Makro [Verwalten]T$Ordner BibliothekenT.$Bibliothek: swriter3w T$[Neu]TH$=(Namen ggf. ndern -festhalten und Bibliothek anklicken)T$ Ordner ModuleT$fKurzLite und KurzLiteDiag mit der Maus auf die neue Bibliothek ziehen (ggf. dabei drcken)w RJBinac HP LaserJet 4/4M Plus PSPSCRIPTUҁ U88.A?e.AUnn%8PEUnn%8?%%$%6%H%$l%~%%6 %  %  % % %  %2%D%V%h%$lZRoot EntryB^$W@CompObj<Ole persist elements" SfxPreviewStarBASICStandardjKurzLite(SfxDocumentInfo  _BasicManager2 bSfxWindows-SfxStyleSheets;SummaryInformation( xSwPageStyleSheets$%uStarWriterDocument&+S