AnnoZone Forum

Quellcode

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