You are not logged in.

Moby-Dick

Schatzjäger

  • "Moby-Dick" started this thread

Posts: 2,352

Date of registration: Jun 5th 2003

  • Send private message

1

Sunday, February 12th 2006, 12:17pm

Wiki-Tips

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

Moby-Dick

Schatzjäger

  • "Moby-Dick" started this thread

Posts: 2,352

Date of registration: Jun 5th 2003

  • Send private message

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.

FrankB

Boardsmutje

Posts: 953

Date of registration: Dec 14th 2003

  • Send private message

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

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

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


Moby-Dick

Schatzjäger

  • "Moby-Dick" started this thread

Posts: 2,352

Date of registration: Jun 5th 2003

  • Send private message

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

FrankB

Boardsmutje

Posts: 953

Date of registration: Dec 14th 2003

  • Send private message

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)


Moby-Dick

Schatzjäger

  • "Moby-Dick" started this thread

Posts: 2,352

Date of registration: Jun 5th 2003

  • Send private message

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

FrankB

Boardsmutje

Posts: 953

Date of registration: Dec 14th 2003

  • Send private message

7

Monday, February 27th 2006, 12:05pm

:up:

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