[Tustep-Liste] Word-Marko-Frage

[Wolfram Brunschön]

Lieber Herr Till,

genau das war's, was mein Herz begehrte. :-))))))

Ganz herzlichen Dank und liebe Grüße an die Tusteppende Gemeinde

Wolfram Brunschön



At 17:42 08.06.2004 +0200, you wrote:
>Diskussionsforum Tustep-Liste
>Weitere Informationen: www.itug.de
>------------------------------------------------------------
>
>Lieber Herr Brunschön,
>
>ich weiß nicht ganz, ob das, was ich unten inseriere auf ihre Wünsche 
>paßt. Ich konvertiere WORD -> TUSTEP unter Zuhilfenahme des Makros von 
>Herrn Giacomazzi, finde es aber praktischer, wenn die Fußnoten in der 
>Textdatei zwischen @F+ und @F- stehen, weil ich die weitere Korrektur in 
>einem Texteditor und nicht im TUSTEP-Editor mache.
>
>Die Prozedur macht einfach folgendes:
>
>1. In die Normalansicht gehen (spart Rechenzeit).
>2. Abfrage, wieviele Zeichen gelöscht werden sollen. Word fügt automatisch 
>hinter der Fußnotenziffer ein Leerzeichen ein. Arbeitet der Schreiber dann 
>noch mit Tabulator zwischen Ziffer und Text, kommt man auf die 
>eingestellten 2 Zeichen.
>3. Dann gibt's eine Schleife ::
>       Die Einfügemarke springt zum nächsten Fußnotenanker, macht das 
> Fußnotenfenster der Normalansicht auf, löscht die angegebene Anzahl 
> Zeichen, markiert alles, schneidet das aus, schließt das Fenster, löscht 
> den Fußnotenanker und kopiert an dieser Stelle, ergänzt um @F+ @F- den 
> Inhalt der Fußnote wieder ein. ::  und zurück auf Start.
>
>Alles nicht sehr elegant, aber es funktioniert.
>
>Freundliche Grüße
>Dietmar Till
>
>****
>Sub FußnotenTustep()
>
>Dim Antwort, Loeschen As Integer
>
>Antwort = MsgBox("Alle Fußnoten umwandeln?", vbOKCancel, "Fußnoten ersetzen")
>If Antwort = 1 Then
>
>    If ActiveWindow.View.SplitSpecial = wdPaneNone Then
>        ActiveWindow.ActivePane.View.Type = wdNormalView
>    Else
>        ActiveWindow.View.Type = wdNormalView
>    End If
>    Selection.HomeKey unit:=wdStory
>    Loeschen = InputBox("Hier die Zahl der zu löschenden Zeichen 
> eingeben", "Fußnoten", 2)
>    On Error GoTo ende
>
>
>Do
>    Selection.GoToNext wdGoToFootnote
>    If ActiveWindow.ActivePane.View.Type = wdPageView Or ActiveWindow. _
>        ActivePane.View.Type = wdOnlineView Or 
> ActiveWindow.ActivePane.View.Type _
>        = wdPrintPreview Then
>        ActiveWindow.View.SeekView = wdSeekFootnotes
>    Else
>        ActiveWindow.View.SplitSpecial = wdPaneFootnotes
>    End If
>    Selection.MoveRight unit:=wdCharacter, Count:=1
>    Selection.Delete unit:=wdCharacter, Count:=Loeschen        '2 wenn 
> Leerzeichen+Tab etc.
>    Selection.MoveDown unit:=wdParagraph, Count:=1, Extend:=wdExtend
>    Selection.MoveLeft unit:=wdCharacter, Count:=1, Extend:=wdExtend
>    Selection.Cut
>    If ActiveWindow.ActivePane.View.Type = wdPageView Or ActiveWindow. _
>        ActivePane.View.Type = wdOnlineView Or 
> ActiveWindow.ActivePane.View.Type _
>        = wdPrintPreview Then
>        ActiveWindow.View.SeekView = wdSeekMainDocument
>    Else
>        ActiveWindow.Panes(2).Close
>    End If
>    Selection.TypeText Text:="@F+"
>    Selection.Paste
>    Selection.TypeText Text:="@F-"
>    Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend
>    Selection.Delete unit:=wdCharacter, Count:=1
>
>Loop
>End If
>ende:
>Selection.HomeKey unit:=wdStory
>End Sub
>
>Wolfram Brunschön wrote:
>
>>Diskussionsforum Tustep-Liste
>>Weitere Informationen: www.itug.de
>>------------------------------------------------------------
>>
>>Liebe TUSTEP-Gemeinde,
>>
>>ich würde gerne versuchweise in Word 2k> Apparateinträge in Fußnoten 
>>schreiben und - wenn alles fertig ist - den Inhalt der Fußnoten hinter 
>>das jeweilige Fußnotenzeichen setzen und die Fußnotenzeichen löschen.
>>
>>Daß der Inhalt dann in die Zwischenablage kommt und mit TUSTEP 
>>weiterverarbeitet wird, versteht sich von selbst.
>>
>>Gibt es in der Gemeinde vielleicht irgendwelche "Fremdgänger", die für 
>>das o.g. Problem bereits ein nettes VBA-Makro gebastelt haben und es mir 
>>zur Verfügung stellen wollen?
>>
>>Tusteppende Grüße und vielen Dank im voraus
>>
>>Wolfram Brunschön
>>
>>------------------------------------------------------------
>>Tustep-Liste at itug.de
>>https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste
>
>
>--
>Dr. Dietmar Till
>
>Eberhard Karls Universität
>Deutsches Seminar/Neuere Abteilung
>Wilhelmstraße 50
>D-72074 Tübingen
>
>Tel. +49 7071 29 75324
>Fax. +49 7071 29 5227
>
>till at uni-tuebingen.de
>http://www.dietmartill.de
>
>------------------------------------------------------------
>Tustep-Liste at itug.de
>https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste
>