title image


Smiley Re: Button ist grau
Hallo,



bevor Du den Button anklickst, muss der Cursor in der Tabelle stehen.

Inzwischen habe ich (in Word XP) etwas ausprobiert, wie man die Tabelle Zeile für Zeile in eine Form laden kann.

'Code in einem Modul

Sub ZeigeForm()

UserForm1.Show vbModeless

End Sub

'

'Code in der Userform

Private Sub UserForm_Initialize()

Dim rwc As Variant

rwc = ActiveDocument.Tables(1).Rows.Count

'

With Me

.Caption = String(4, 32) & "Datensätze aus Wordtabelle"

'

.ScrollBar1.Min = 2

.ScrollBar1.Max = rwc

.ScrollBar1.SmallChange = 1

.ScrollBar1.ControlTipText = "' Blättern ' = Klick auf eines der kleinen Dreiecke"

End With

'

'Labels mit dem Text der Überschrift

'beschriften

For i = 1 To ActiveDocument.Tables(1).Columns.Count

Lab = "Label" & CStr(i)

Me.Controls(Lab).Caption = Chr(32) _

& ActiveDocument.Tables(1).Cell(1, i).Range.Text

Next i

'

ActiveDocument.Tables(1).Rows(2).Select

'

For i = 1 To Selection.Cells.Count

If Me.ScrollBar1.Max > ActiveDocument.Tables(1).Rows.Count Then Exit Sub

Txtb = "TextBox" & CStr(i)

sText = Left(ActiveDocument.Tables(1).Cell(2, i).Range.Text, _

Len(ActiveDocument.Tables(1).Cell(2, i).Range.Text) - 2)

Me.Controls(Txtb).Text = sText

Next i

'

Me.ScrollBar1.Value = 2

End Sub

'

Private Sub ScrollBar1_Change()

Dim z, Txtb, sText

Me.Label8.Caption = Format(Me.ScrollBar1.Value - 1, " 00000")

z = Me.ScrollBar1.Value

'

If Me.ScrollBar1.Max > Me.ScrollBar1.Max Then

Exit Sub

ElseIf Me.ScrollBar1.Min = 1 Then

Exit Sub

End If

'

ActiveDocument.Tables(1).Rows(z).Select

'

For i = 1 To Selection.Cells.Count

If Me.ScrollBar1.Max > ActiveDocument.Tables(1).Rows.Count Then Exit Sub

Txtb = "TextBox" & CStr(i)

sText = Left(ActiveDocument.Tables(1).Cell(z, i).Range.Text, Len(ActiveDocument.Tables(1).Cell(z, i).Range.Text) - 2)

Me.Controls(Txtb).Text = sText

Next i

End Sub

'

Private Sub CommandButton1_Click()

'Schliessen

Selection.Collapse

Unload Me

End Sub

'

Private Sub CommandButton2_Click()

Application.Run "SeriendruckDatenmaske"

End Sub

      Hubert





geschrieben von

Anhang
Bild 425 zu Artikel 49783

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: