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.
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 |
This post has been edited 8 times, last edit by "FrankB" (Feb 23rd 2006, 9:38pm)
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 . . .