title image


Smiley Hier ein anderer Ansatz!
Hallo,



probiere mal folgenden Makro in Deinem Button aus und sage mir, ob es Dir genügt.

Tip: Fülle vor dem Drücken die letzte Zeile der Tabelle aus... ;-)







'

' Ändere Dokumentfußzeile, Michael Kauer 01.10.2005 www.einfach-hilfe.de

'

Private Sub CommandButton1_Click()

'   Umstellen auf Kopf- & Fußzeilenbearbeitung

    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

'                                           wdSeekCurrentPageFooter für Fußzeile

'                                           wdSeekCurrentPageHeader für Kopfzeile

    Selection.WholeStory

    Selection.TypeBackspace

    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

    Selection.Font.Name = "Arial"

    Selection.Font.Size = 14

    If Selection.Font.Bold = False Then: Selection.Font.Bold = wdToggle

    Options.DefaultBorderLineWidth = wdLineWidth150pt

    With Selection.Borders(wdBorderTop)

        .LineStyle = Options.DefaultBorderLineStyle

        .LineWidth = Options.DefaultBorderLineWidth

        .Color = Options.DefaultBorderColor

    End With

'   Übergabe der Tabelleninformationen

    Set Quelle = ActiveDocument.Tables(1)

    Zeilen = Quelle.Rows.Count

    Spalten = Quelle.Columns.Count

'   Letzte Zeile der Spalte voll ausgefüllt? => Neue Zeile anfügen

    If Len(Quelle.Cell(Zeilen, Spalten).Range.Text) > 2 Then

        ActiveDocument.Tables(1).Rows.Add

    End If

    QText = ""

    For k = 1 To Spalten ' Je nachdem wieviele Spalten die Tabelle hat

        Helfer = Quelle.Cell(Zeilen, k).Range.Text

        Helfer = Left(Helfer, Len(Helfer) - 2)

        QText = QText + Helfer

        If k < Spalten Then: QText = QText & ", "

    Next k

    Selection.TypeText Text:=QText

'   Zurückstellen auf Normale Ansicht

    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub









Gruß, Michael

Ich weiß, daß ich nichts weiß, aber ich will's wissen!


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: