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

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, das auf die primäre rngFooter 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 Dialogen 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ück zu geben. 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.