Zum Inhalt springen

Empfohlene Beiträge

Geschrieben

Hi, kennt sich hier jemand mit VB-Makroerstellung in Word aus? :confused:

Kann man in Word mittels eines Makros eine Tabelle erstellen? Wenn ja, wie?

Es soll in einem Formular eine Zahl eingegeben werden, aus der sich dann die zu erstellende Tabelle bzw. ihre Zeilenanzahl ergibt. Max. Zeilenanzahl: 10

Diese Tabelle beinhaltet wiederum Makros, die aber schon programmiert sind.

Bisher gab es im Formular die Tabelle mit den Makros in einer Größe von 4 Zeilen und 2 Spalten. Nun möchte der Kunde diese Tabelle dynamisch gestaltet haben, d.h. er möchte selbst eingeben können, wie groß diese Tabelle sein soll. In dieser Tabelle werden mittels der Makros Adressaten für einen Workflow eingegeben.

Weiß vielleicht jemand, ob und wie man mit einem Makro eine solche Tabelle dynamisch in einen Vordruck einbinden kann?

Wäre suuuuper! ;)

Geschrieben

Hallo,

Ich hab jetzt erstmal ein kleines Makro aufgezeichnet, indem Ich eine Tabelle mit 4 Zeilen und 2 Spalten erstellt habe.

Wenn Du jetzt in den VB-Editor gehst (Alt+F11), steht dort folgender code:


[COLOR=blue]Sub[/COLOR] Tabelle()

[COLOR=green]'

' Tabelle Makro

' Makro aufgezeichnet am 06.09.02 von EnsignKim

'[/COLOR] 

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _

        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

        wdAutoFitFixed

[COLOR=blue]End Sub[/COLOR] 

NumRows:=4 steht für die Zeilen-, NumColumns:=2 für die Spaltenanzahl. Jetzt legst Du ein neues (oder altes) Formular an, das zwei Textboxen und einen Button hat. Mit doppelt Klick auf den Button (oder RMB -> Code anzeigen) erscheint der Code des Formulars.

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()


[COLOR=blue]End Sub[/COLOR]

Dort fügst du dein Makro ein:

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()

[COLOR=green]'

' Tabelle Makro

' Makro aufgezeichnet am 06.09.02 von EnsignKim

'[/COLOR] 

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _

        2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

        wdAutoFitFixed

[COLOR=blue]End Sub[/COLOR]

Sub Tabelle() und End sub kannst du dabei weglassen, weil es sonst doppelt währe. Die 4 und die 2 ersetzt Du durch die Namen deiner Textboxen (zB. TextBox1 und TextBox2).

[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()

[COLOR=green]'

' Tabelle Makro

' Makro aufgezeichnet am 06.09.02 von EnsignKim

'[/COLOR] 

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=[b]TextBox1[/b], NumColumns:= _

        [b]TextBox2 [/b], DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

        wdAutoFitFixed

[COLOR=blue]End Sub[/COLOR]

Und schon bist du fertig und es läuft.

Wenn du jetzt noch Fragen hast, zB. wie das Formular durch ein Makro aufgerufen wird, dann poste das hier.

Geschrieben

Hallo,

ich mach mir da keinen großen Kopf.

Versuch mal Extra/Makro/aufzeichnen , dann füge eine Tabelle ein, nehme alle Änderung vor die du willst. Stoppe das Makro. Unter Extra/Makro/Makros kannst du dein Makro das du gerade aufgezeichnet hast mit bearbeiten ansehen und den Quellcode an einer anderen Stelle benutzen.

Gruß

Geschrieben

Hi,

das Problem hat sich schon erledigt.

Aber so einfach, wie Du das meinst, ging es leider nicht.

Da die Tabelle in einem Wordformular (.dot) erstellt und in verschiedenen Zellern wiederum Makros aufgerufen werden mußten.

Aber danke für den Hilfeversuch.

Gruß IT-Girl :)

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...