---

Moinsens zusammen.

Ich möchte beim öffnen einer (idealerweise Word-)Datei per Aufforderung einen Text eingeben müssen und per Anzahl eine entsprechende Anzahl an Tabellenzellen erstellen.

Z.B. "Bitte Text eingeben": benewet
"Anzahl": 5

Dann sollte der Text 5x in einer Tabelle stehen. Tabelle bzw. Rahmen deswegen, damit man eine Linie zum ausschneiden hat 

Ist das in Word möglich oder ist das eher das falsche Programm. Alternativ wäre natürlich auch noch Excel mit dazugehöriger Formatierung der Zellen.

Gruß
Benewet

------------------
Gruß Benewet

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch aktuell?
Im Prinzip ist das über eine Programmierung (Makro) möglich.
Mußt dazu nur die Document_Open Funktion neu definieren, eine Form mit Deinen Abfragen erstellen und die Tabelle erzeugen lassen.
Bzw. wenn das nur bei neu zu erstellenden Dokumenten der Fall sein soll, dann eben die Document_New oder AutoNew Funktion entsprechend neu definieren.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Grundsätzlich ist die Aufgabenstellung mit Excel, Word, Powerpoint und Access möglich... in der Reihenfolge  letztere(n) Kasteien sich halt gerne selbst 

Code:

---

Sub Makro1()
Dim txt As String
Dim Anz As Integer

txt = InputBox("Bitte eingeben", "test", "Beispieltext")
Anz = InputBox("Zeilenanzahl", "Zeilenanzahl", 5)

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=Anz, NumColumns:= _
    1, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    wdAutoFitFixed
       
'ermitteln der gerade aktiven Tabelle
Dim itbl As Integer
If ActiveDocument.Tables.Count = 0 Then Exit Sub
    If Selection.Information(wdWithInTable) = False Then MsgBox "Nicht in einer Tabelle"
        For itbl = 1 To ActiveDocument.Tables.Count
            If Selection.Tables(1).Range.InRange(ActiveDocument.Tables(itbl).Range) Then
          'MsgBox itbl
        Exit For
    End If
Next itbl
       
Dim itblr As Integer 'Zeilenanzahl der aktiven Tabelle
itblr = ActiveDocument.Tables(itbl).Rows.Count
 
    With ActiveDocument.Tables(itbl)
        For c = 1 To itblr
            .Cell(c, 1).Range = txt
        Next
    End With
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP