You are not logged in.

Wiki-Tipps

Dear visitor, welcome to AnnoZone Forum. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

Moby-Dick

Schatzjäger

  • "Moby-Dick" started this thread

Posts: 2,351

Date of registration: Jun 5th 2003

  • Send private message

1

Sunday, February 12th 2006, 12:17pm

Wiki-Tipps

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,351

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,351

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,351

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

1 user apart from you is browsing this thread:

1 guests