Wiki-Tipps

Moby-Dick

Schatzjäger

Posts: 2,351

Date of registration: Jun 5th 2003

1

Sunday, February 12th 2006, 12:17pm

Mittlerweile gibt es eine ganz tolle Hilfe-Seite, erstellt von Frank -> klick mich :up:

Go to the top of the page

Moby-Dick

Schatzjäger

Posts: 2,351

Date of registration: Jun 5th 2003

2

Sunday, February 12th 2006, 2:51pm

Dies ist eine Teamarbeit, daher ...

Jeder sollte - ohne sich hundertvierundzwanzigeinhalbmal entschuldigen zu müssen - verändern, wenn er etwas Verändernswertes sieht. Das können Rechtschreibfehler sein, holprige Formulierungen oder inhaltliche Dinge.

Ich persönlich wäre auch dafür, dass nicht für jeder Veränderung eine Wiki-Diskussion aufgemacht wird. Diskussionen wie "Naahrung wird aber mit einem "a" geschrieben" müllen das Wiki nur zu. Sinnvoll ist die Diskussionsfunktion eigentlich nur bei Inhalts-Änderungen, z.B. nur ein Karrenfahrer für Kontor eins.

Go to the top of the page

FrankB

Boardsmutje

Posts: 953

Date of registration: Dec 14th 2003

3

Wednesday, February 15th 2006, 3:14pm

Tabellen

Tabellen ins Wiki zu bekommen ist ja ein Thema für sich. Ich habe für Word jetzt mal ein Makro gebastelt, das eine in Word vorhandene Tabelle ins Wiki-Format "übersetzt" und dabei alle Zellinhalte zentriert formatiert. Die übrigen Formatierungen müssen weiterhin manuell vorgenommen werden.

Wichtig ist noch, daß kein weiterer Text im Word-Dokument vorhanden ist und keine Absatzmarken in der Tabelle vorhanden sind (ggf. müssen diese dann eben für die Konvertierung in Sonderzeichen umgeändert werden - aber nicht in "#", da ich dieses Zeichen für die Konvertierung verwendet habe).

Hier der Text für das Makro (neu vom 23.02.):

Source code

Sub Konvertierung()
  
    Dim Tabelle As Table
    
    Application.DefaultTableSeparator = "#"
    ActiveDocument.Tables(1).ConvertToText Separator:=wdSeparateByDefaultListSeparator
    Selection.EndKey Unit:=wdStory
    Selection.TypeBackspace
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "#"
        .Replacement.Text = " || "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "^p"
        .Replacement.Text = "^p|-^p| "
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "| |-^p|-^p| | ^p"
        .Replacement.Text = "|"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.HomeKey Unit:=wdStory
    Selection.TypeText Text:="{|border=""1"" cellpadding=""5"" "
    Selection.TypeParagraph
    Selection.TypeText Text:="!"
    Selection.EndKey Unit:=wdStory
    Selection.TypeText Text:="}"
    info = MsgBox("Text in Zellen zentrieren?", vbYesNo)
    If info = vbNo Then
        Exit Sub
    Else: Zentrieren
    End If
End Sub
Sub Zentrieren()
Dim Status As Boolean

Status = Options.AutoFormatAsYouTypeReplaceQuotes
Options.AutoFormatAsYouTypeReplaceQuotes = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "^p| "
    .Replacement.Text = "^p|align=""center""| "
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = "|| "
    .Replacement.Text = "||align=""center"" | "
    .Forward = True
    .Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll
Options.AutoFormatAsYouTypeReplaceQuotes = Status
End Sub

Edit: Für die, die noch nicht so mit Makros in Word gearbeitet haben, noch eine kurze Arbeitsanweisung:

Word öffnen und Alt+F11 drücken, um den VBA-Editor zu öffnen. Dann mit rechts auf das Projekt "Normal" klicken und im Kontextmenü Einfügen -> Modul anklicken. Jetzt den Text einfach einfügen und den Editor schließen.

Falls Word beim Beenden fragt, ob die Änderungen der Normal.dot gespeichert werden sollen, muß auf "Ja" geklickt werden - sonst ist das Makro wieder weg.

Um das Makro zu benutzen, geht man wie folgt vor: Tabelle erstellen (oder ins Dokument reinkopieren), kontrollieren, ob auch keine Absatzmarken in der Tabelle sind, dann Extras -> Makro -> Makros anklicken, das Makro auswählen, "Ausführen" anklicken, fertig.

This post has been edited 8 times, last edit by "FrankB" (Feb 23rd 2006, 9:38pm)

Go to the top of the page

Moby-Dick

Schatzjäger

Posts: 2,351

Date of registration: Jun 5th 2003

4

Monday, February 20th 2006, 11:20pm

Quoted

Original von Excalibur3
. . . hi,

kann zwar hier zur Zeit nicht mit einstegen, da ich privat den Kopf voll habe.

Ich weiß ja nicht ob ihr das schon habt - aber >>>Hier<<< ist eine sehr umfangreiche Beschreibung der "Kulturen". Hatte ich mit Jogi damals ausgearbeitet. Braucht sich Jemand nur zu kopieren . . .

Quoted

Original von Excalibur3
. . . jo,

und @Moby weiß ja auch wo jegliche Inseln, 5 verschiedener Inselwelten zu finden sind - da dürfte alles vertreten sein . . .

Das heißt, hier dürfen wir uns auch bedienen ... Danke Excali

.

Go to the top of the page

FrankB

Boardsmutje

Posts: 953

Date of registration: Dec 14th 2003

5

Wednesday, February 22nd 2006, 12:42pm

Nur zur Info: Das Konvertierungsmakro habe ich heute nochmals leicht geändert... So langsam taste ich mich ran.

This post has been edited 1 times, last edit by "FrankB" (Feb 23rd 2006, 9:00pm)

Go to the top of the page

Moby-Dick

Schatzjäger

Posts: 2,351

Date of registration: Jun 5th 2003

6

Sunday, February 26th 2006, 7:39pm

__TOC__ = erzwingt die Platzierung des Inhaltsverzeichnis an dieser Stelle im Text
__NOTOC__ = schaltet das Inhaltsverzeichnis ab
__FORCETOC__ = erzwingt ein Inhaltsverzeichnis, auch wenn weniger als drei Überschriften vorhanden sind
__NOEDITSECTION__ = schaltet die Bearbeiten-Links für Abschnitte ab