Sie sind nicht angemeldet.

Moby-Dick

Schatzjäger

  • »Moby-Dick« ist der Autor dieses Themas

Beiträge: 2 352

Registrierungsdatum: 5. Juni 2003

  • Nachricht senden

1

Sonntag, 12. Februar 2006, 12:17

Wiki-Tips

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

Moby-Dick

Schatzjäger

  • »Moby-Dick« ist der Autor dieses Themas

Beiträge: 2 352

Registrierungsdatum: 5. Juni 2003

  • Nachricht senden

2

Sonntag, 12. Februar 2006, 14:51

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.

FrankB

Boardsmutje

Beiträge: 953

Registrierungsdatum: 14. Dezember 2003

  • Nachricht senden

3

Mittwoch, 15. Februar 2006, 15:14

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.):

Quellcode

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
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. :)

Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von »FrankB« (23. Februar 2006, 21:38)


Moby-Dick

Schatzjäger

  • »Moby-Dick« ist der Autor dieses Themas

Beiträge: 2 352

Registrierungsdatum: 5. Juni 2003

  • Nachricht senden

4

Montag, 20. Februar 2006, 23:20

Zitat

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 . . .


Zitat

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 :].

FrankB

Boardsmutje

Beiträge: 953

Registrierungsdatum: 14. Dezember 2003

  • Nachricht senden

5

Mittwoch, 22. Februar 2006, 12:42

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

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »FrankB« (23. Februar 2006, 21:00)


Moby-Dick

Schatzjäger

  • »Moby-Dick« ist der Autor dieses Themas

Beiträge: 2 352

Registrierungsdatum: 5. Juni 2003

  • Nachricht senden

6

Sonntag, 26. Februar 2006, 19:39

  • __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

FrankB

Boardsmutje

Beiträge: 953

Registrierungsdatum: 14. Dezember 2003

  • Nachricht senden

7

Montag, 27. Februar 2006, 12:05

:up:

Ich hab's in die Hilfe aufgenommen - im Kapitel "Überschriften".