title image


Smiley Re: jederzweiter Absatz in einer Zelle soll fett !




Hier in VBA.



Gruß!



C.









Option Explicit





Sub TabelleDurchgehen()

    

    ' Makro am 01.03.2004

    

    Dim aCell           As Cell

    Dim aPara           As Paragraph

    Dim intCountPara    As Long

    

    

    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 aCell In Selection.Tables(1).Range.Cells

        intCountPara = 1

        For Each aPara In aCell.Range.Paragraphs

            If intCountPara Mod 2 = 0 Then

                aPara.Range.Font.Bold = True

            End If

            intCountPara = intCountPara + 1

        Next aPara

    Next aCell



    MsgBox "Fertig.", vbInformation



End Sub







Code eingefügt mit Syntaxhighlighter 2.4





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: