Sie sind nicht angemeldet.

Lieber Besucher, herzlich willkommen bei: AnnoZone Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

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