Microsoft Word: So bearbeiten Sie die Eigenschaften mehrerer Tabellen

Leider ist es nicht möglich, alle Tabellen gleichzeitig mit einer ordentlichen Verknüpfung auszuwählen. Glücklicherweise kann sogar ein Anfänger ein einfaches Makro verwenden, und der Job ist in wenigen Minuten abgeschlossen.

Ab Word 2010 sollte die Registerkarte "Entwickler" bereits standardmäßig angezeigt werden. Ist dies nicht der Fall, wird über den integrierten Ribbon-Editor darauf zugegriffen. In diesen Anwendungen ist der Ribbon-Editor unter " Datei" > " Optionen" > " Multifunktionsleiste anpassen" verfügbar . Aktivieren Sie das Kontrollkästchen für Entwickler .

Klicken Sie anschließend auf die Registerkarte " Entwickler" > Schaltfläche " Makros"

Geben Sie im neuen Fenster "Autofit_All_Tables" in das angezeigte Textfeld ein und klicken Sie auf die Schaltfläche Erstellen, um ein neues Makro zu erstellen.

Fügen Sie den folgenden Code in den weißen Textbereich ein, um den vorhandenen Code vollständig zu ersetzen.

Sub Autofit_All_Tables() Application.ScreenUpdating = False Dim Tbl As Table For Each Tbl In ActiveDocument.Tables Tbl.AutoFitBehavior (wdAutoFitWindow) Tbl.AllowAutoFit = True Next Application.ScreenUpdating = True Application.ScreenRefresh MsgBox "Done", vbOKOnly End Sub 

Klicken Sie dann auf den grünen Ausführen-Pfeil (im roten Feld im Bild).

Sie sollten ein kleines Fenster mit der Aufschrift "Fertig" erhalten. Schließen Sie das VBA-Entwicklerfenster und lehnen Sie sich in Ihrem Stuhl zurück.

Hinweis: Wenn Sie die Breite auf einen prozentualen Bruchteil der Breite zwischen den Rändern festlegen möchten, erstellen Sie ein Makro mit dem Namen "Set_Global_Table_Width" und fügen Sie stattdessen den folgenden Code ein. Hier ist die Breite auf 100 (dh 100%) festgelegt. Sie können sie jedoch nach dem Einfügen in das oben abgebildete Word VBA Developer Macro-Feld in einen beliebigen Prozentsatz ändern.

Sub Set_Global_Table_Width() Dim pT As Word.Table For Each pT In ActiveDocument.Tables pT.PreferredWidthType = wdPreferredWidthPercent pT.PreferredWidth = 100 Next MsgBox "Done" End Sub 

Verwenden Sie den Cursor einfach so, als würden Sie die gesamte Zeile auswählen, von der aus Sie zur äußersten linken Seite der Seite gehen, bis der Randbereich angezeigt wird, bis sich die Cursor auf der rechten Seite neigen, also etwa 45 Grad, und Sie können andere auch markieren Halten Sie die Steuertaste nach der ersten Auswahl gedrückt. Dies ist im Grunde die Auswahl mehrerer Zeilen auf der gesamten Seite, und ich habe gerade nach so vielen VB-Skriptforenempfehlungen (nicht praktisch) entdeckt, dass es auch für Tabellen funktioniert. Ich bin gerade dabei, ein 21-seitiges Sicherheitsdatenblatt mit Tabellen zu erstellen.