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.
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 |
Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von »FrankB« (23. Februar 2006, 21:38)
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 . . .
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »FrankB« (23. Februar 2006, 21:00)