title image


Smiley Re: Format in Tabellen per VBA auslesen (Word 97)


Gruß, C.









Option Explicit





Sub TabelleDurchgehen()

    

    ' Makro am 01.03.2004

    

    Dim aRow As Row ' Zeile in Tabelle

    

    

    If Documents.Count <= 0 Then

        MsgBox "Kein Dokument geöffnet." & _

               vbNewLine & _

               vbNewLine & _

               "Abbruch.", _

               vbExclamation

        End

    End If

    

    If Selection.Tables.Count <> 1 Then

        MsgBox "Zahl der Tabellen in der Markierung <> 1." & _

               vbNewLine & _

               vbNewLine & _

               "Abbruch.", _

               vbExclamation

        End

    End If

    

    For Each aRow In Selection.Tables(1).Rows

        If aRow.Cells(2).Range.Style = "Standard" Then

            MakroNummeriere aRow.Cells(1).Range

        End If

    Next aRow



    MsgBox "Fertig.", vbInformation



End Sub



Sub MakroNummeriere(MyRange1 As Range)

'

' Makro am 01.03.2004



    With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1)

        .NumberFormat = "%1."

        .TrailingCharacter = wdTrailingTab

        .NumberStyle = wdListNumberStyleArabic

        .NumberPosition = CentimetersToPoints(0.63)

        .Alignment = wdListLevelAlignLeft

        .TextPosition = CentimetersToPoints(1.27)

        .TabPosition = CentimetersToPoints(1.27)

        .ResetOnHigher = 0

        .StartAt = 1

        With .Font

            .Bold = wdUndefined

            .Italic = wdUndefined

            .StrikeThrough = wdUndefined

            .Subscript = wdUndefined

            .Superscript = wdUndefined

            .Shadow = wdUndefined

            .Outline = wdUndefined

            .Emboss = wdUndefined

            .Engrave = wdUndefined

            .AllCaps = wdUndefined

            .Hidden = wdUndefined

            .Underline = wdUndefined

            .Color = wdUndefined

            .Size = wdUndefined

            .Animation = wdUndefined

            .DoubleStrikeThrough = wdUndefined

            .Name = ""

        End With

        .LinkedStyle = ""

    End With

    ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""

    MyRange1.ListFormat.ApplyListTemplate ListTemplate:=ListGalleries( _

        wdNumberGallery).ListTemplates(1), ContinuePreviousList:=True, ApplyTo:= _

        wdListApplyToWholeList, DefaultListBehavior:=wdWord9ListBehavior

        

End Sub







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: