Verschiedene Aufgaben
Dieses Thema enthält Visual Basic-Beispiele für die in den folgenden Abschnitten identifizierten Aufgaben.
Ändern der Ansicht
Das View-Objekt enthält Eigenschaften und Methoden im Zusammenhang mit Ansichtsattributen (z. B. alle anzeigen, Feldschattierung und Tabellengitternetzlinien) für ein Fenster oder einen Bereich. Im folgenden Beispiel wird die Ansicht in die Drucklayoutansicht geändert.
Sub ChangeView()
ActiveDocument.ActiveWindow.View.Type = wdPrintView
End Sub
Einfügen von Text in eine Kopf- oder Fußzeile
Das HeaderFooter-Objekt wird von den Eigenschaften Headers, Footers und HeaderFooter zurückgegeben. Im folgenden Beispiel wird der Text in der Kopfzeile der aktuellen Seite geändert.
Sub AddHeaderText()
With ActiveDocument.ActiveWindow.View
.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.Range.Text = "Header text"
.SeekView = wdSeekMainDocument
End With
End Sub
In diesem Beispiel wird ein Range-Objekt erstellt, rngFooter
das auf die primäre Fußzeile für den ersten Abschnitt im aktiven Dokument verweist. Nachdem das Range-Objekt festgelegt ist, wird der vorhandene Fußzeilentext gelöscht. Der Fußzeile wird zusammen mit zwei Tabstopps und dem AUTHOR-Feld das FILENAME-Feld hinzugefügt.
Sub AddFooterText()
Dim rngFooter As Range
Set rngFooter = ActiveDocument.Sections(1) _
.Footers(wdHeaderFooterPrimary).Range
With rngFooter
.Delete
.Fields.Add Range:=rngFooter, Type:=wdFieldFileName, Text:="\p"
.InsertAfter Text:=vbTab & vbTab
.Collapse Direction:=wdCollapseStart
.Fields.Add Range:=rngFooter, Type:=wdFieldAuthor
End With
End Sub
Festlegen von Optionen
Das Options-Objekt enthält Eigenschaften, die optionalen Einstellungen entsprechen, die in verschiedenen Menüs und Dialogfeldern in Word verfügbar sind. Im folgenden Beispiel werden drei Anwendungseinstellungen für Word festgelegt.
Sub SetOptions()
With Options
.AllowDragAndDrop = True
.ConfirmConversions = False
.MeasurementUnit = wdPoints
End With
End Sub
Ändern des Dokumentlayouts
Das PageSetup enthält alle Seiteneinrichtungsattribute eines Dokuments (z. B. linker Rand, unterer Rand und Papierformat) als Eigenschaften. Im folgenden Beispiel werden die Seitenrandwerte für das aktive Dokument festgelegt.
Sub ChangeDocumentLayout()
With ActiveDocument.PageSetup
.LeftMargin = InchesToPoints(0.75)
.RightMargin = InchesToPoints(0.75)
.TopMargin = InchesToPoints(1.5)
.BottomMargin = InchesToPoints(1)
End With
End Sub
Durchlaufen von Absätzen in einem Dokument
In diesem Beispiel werden alle Absätze im aktiven Dokument durchlaufen. Wenn die Einstellung "Abstand vor" für einen Absatz 6 Punkt lautet, wird der Abstand in diesem Beispiel auf 12 Punkt geändert.
Sub LoopParagraphs()
Dim parCount As Paragraph
For Each parCount In ActiveDocument.Paragraphs
If parCount.SpaceBefore = 12 Then parCount.SpaceBefore = 6
Next parCount
End Sub
Weitere Informationen finden Sie unter Durchlaufen einer Auflistung.
Anpassen von Menüs und Symbolleisten
Das CommandBar-Objekt stellt sowohl Menüs als auch Symbolleisten dar (in Versionen von Word, die das Menüband nicht verwenden). Verwenden Sie die CommandBars-Eigenschaft mit einem Menü- oder Symbolleistennamen, um ein einzelnes CommandBar-Objekt zurückzugeben. Die Controls-Eigenschaft gibt ein CommandBarControls-Objekt zurück, das sich auf die Elemente auf der angegebenen Befehlsleiste bezieht. Im folgenden Beispiel wird dem Menü Standard der Befehl Wörter zählen hinzugefügt.
Sub AddToolbarItem()
Dim btnNew As CommandBarButton
CustomizationContext = NormalTemplate
Set btnNew = CommandBars("Standard").Controls.Add _
(Type:=msoControlButton, ID:=792, Before:=6)
With btnNew
.BeginGroup = True
.FaceId = 700
.TooltipText = "Word Count"
End With
End Sub
Im folgenden Beispiel wird der Befehl Doppelt unterstrichen zur Formatsymbolleiste hinzugefügt.
Sub AddDoubleUnderlineButton()
CustomizationContext = NormalTemplate
CommandBars("Formatting").Controls.Add _
Type:=msoControlButton, ID:=60, Before:=7
End Sub
Schalten Sie die Makroaufzeichnung ein, und passen Sie ein Menü oder eine Symbolleiste an, um den ID-Wert für einen bestimmten Befehl zu ermitteln (z. B. ist ID 60 der Befehl Doppelt unterstrichen).
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für