Copyright: XLMAIN8.HLP release 3122


Activate-Methode

Aktiviert einen angegebenen Abschnitt in der Sammelmappe.

Syntax

Ausdruck.Activate

Ausdruck   Erforderlich. Ein Ausdruck, der ein Section-Objekt zurückgibt.

Anmerkungen

Sie können zwar mehrere Abschnitte gleichzeitig auswählen, von diesen kann aber nur einer der aktive Abschnitt sein. Wenn Sie einen ausgeblendeten Abschnitt aktivieren, wird er eingeblendet.

Verwenden Sie die SelectedSectionNames-Eigenschaft, um die Matrix der ausgewählten Abschnittsnamen zurückzugeben oder festzulegen.


Beispiel zur Activate-Methode

In diesem Beispiel wird eine neue Sammelmappe erstellt, eine Microsoft Excel-Arbeitsmappe und ein Word-Dokument hinzugefügt. Anschließend wird der erste Abschnitt der Sammelmappe aktiviert.

Set meineMappe = CreateObject("Mappe1.Binder")

meineMappe.Visible = True

meineMappe.Sections.Add Type:="Excel.Sheet"

meineMappe.Sections.Add Type:="Word.Document"

meineMappe.Sections(1).Activate


Add-Methode

Erstellt einen neuen Abschnitt in der angegebenen Sammelmappe und gibt ein Section-Objekt zurück, das den neuen Abschnitt darstellt. Sie können einen Abschnitt hinzufügen, indem Sie entweder ein neues Objekt erstellen oder eine vorhandene Datei als Abschnitt einfügen.

Syntax

Ausdruck.Add(Type, FileName, Before, After)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Sections-Objekt zurückgibt.

Type   Variant optional. Der Typ des zu erstellenden Abschnitts. Dies kann eine der folgenden Klassen sein: Excel.Chart, Excel.Sheet, Word.Document, PowerPoint.Show oder PowerPoint.Slide. Wenn dieses Argument ausgelassen wird, ist das Argument FileName erforderlich.

FileName   Variant optional. Der vollständige Pfad- und Dateiname der Datei, die Grundlage des Abschnitts sein soll, den Sie hinzufügen möchten. Wenn dieses Argument ausgelassen wird, ist das Argument Type erforderlich.

Before   Variant optional. Der Abschnitt, vor den der neue Abschnitt eingefügt wird. Sie können Before nicht angeben, wenn Sie After angegeben haben.

After   Variant optional. Der Abschnitt, nach dem der neue Abschnitt eingefügt wird. Sie können After nicht angeben, wenn Sie Before angegeben haben.

Anmerkungen

Sie müssen entweder Type oder FileName angeben. Der für Type angegebene Name muß nicht die Versionsnummer enthalten, die im Wert enthalten ist, der von der Type-Eigenschaft zurückgegeben wird.

Wenn Sie weder Before noch After angeben, wird der Abschnitt nach dem letzten Abschnitt in der Sammelmappe eingefügt.


Beispiel zur Add-Methode

In diesem Beispiel wird ein Word-Dokument zur Sammelmappe1.obd hinzugefügt, und das resultierende Dokument erhält den Namen "Summen".

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

Set neuerAbschnitt = meineMappe.Sections _

    .Add(Type:="Word.Document", Before:=1)

neuerAbschnitt.Name = "Summen"


Copy-Methode

Kopiert den angegebenen Abschnitt an eine neue Position in der Sammelmappe und gibt die Kopie als Section-Objekt zurück. Die neue Kopie erhält automatisch den Namen des ursprünglichen Abschnitts mit einer Zahl in Klammern. Der ursprüngliche Abschnitt wird nicht verschoben oder geändert.

Syntax

Ausdruck.Copy(Before, After)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Section-Objekt zurückgibt.

Before   Variant optional. Der Name oder die Nummer des Abschnitts, vor den das Objekt kopiert wird. Sie können Before nicht angeben, wenn Sie After angegeben haben.

After   Variant optional. Der Name oder die Nummer des Abschnitts, nach dem das kopierte Objekt eingefügt wird. Sie können After nicht angeben, wenn Sie Before angegeben haben.


Beispiel zur Copy-Methode

In diesem Beispiel wird festgestellt, ob es sich bei dem zweiten Abschnitt in Sammelmappe1.obd um eine Microsoft Excel-Tabelle handelt. Ist dies der Fall, wird der Abschnitt kopiert und nach dem Abschnitt "Summen" eingefügt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineMappe.Sections(2).Activate

With meineMappe.ActiveSection

If .Type = "Excel.Sheet.8" Then

    .Copy After:="Summen"

End If

End With


Count-Eigenschaft

Gibt die Anzahl der Elemente in der Sections-Auflistung zurück. Long Nur-Lese-Zugriff.

Anmerkungen

In der Zahl sind alle eingeblendeten und ausgeblendeten Abschnitte enthalten.


Beispiel zur Count-Eigenschaft

In diesem Beispiel wird die Anzahl der Abschnitte in Sammelmappe1.obd angezeigt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

MsgBox "Im Abschnitt " & meineMappe.Name & _

    " sind " & meineMappe.Sections.Count & _

    " enthalten."


Delete-Methode

Löscht das angegebene Section-Objekt.

Syntax

Ausdruck.Delete

Ausdruck   Erforderlich. Ein Ausdruck, der ein Section-Objekt zurückgibt.


Beispiel zur Delete-Methode

In diesem Beispiel wird der Abschnitt "Summen" in Sammelmappe1.obd gelöscht. Im Beispiel wird der Abschnitt durch seinen Namen angegeben, Sie können ihn aber auch mit Hilfe seiner Nummer angeben. Sie können den Abschnitt nur nach dem Speichern der Sammelmappe dauerhaft löschen.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

   .Sections("Summen").Delete

   .Save

End With


Index-Eigenschaft

Gibt die Indexnummer des Section-Objekts in der Sections-Auflistung zurück. Long Nur-Lese-Zugriff.

Anmerkungen

Die Indexzahl enthält alle eingeblendeten und ausgeblendeten Abschnitte.

Ändern Sie die Reihenfolge der Abschnitte mit der Move-Methode.


Beispiel zur Index-Eigenschaft

In diesem Beispiel wird festgestellt, ob der aktive Abschnitt der erste Abschnitt in Sammelmappe1.obd ist. Wenn dies der Fall ist, wird der erste Abschnitt verschoben und nach dem dritten Abschnitt eingefügt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineMappe.Visible = True

If meineMappe.ActiveSection.Index = 1 Then

meineMappe.ActiveSection.Move After:=3

End If


Item-Eigenschaft

Gibt ein Section-Objekt aus der Sections-Auflistung zurück. Nur-Lese-Zugriff.

Syntax

Ausdruck.Item(Index)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Sections-Objekt zurückgibt.

Index   Variant erforderlich. Der Name oder die Nummer des Abschnitts.

Anmerkungen

Die Item-Eigenschaft ist die Standardeigenschaft der Sections-Auflistung. Mit Sections(Index) können Sie ein einzelnes Section-Objekt zurückgeben. Dabei steht Index für den Namen oder die Indexnummer des Abschnitts. Die Indexnummer gibt an, an welcher Stelle der Abschnitt im Sammelmappenfenster aufgelistet wird. Sections(1) ist das erste Dokument, Sections(Sections.Count) das letzte.


Beispiel zur Item-Eigenschaft

In diesem Beispiel wird der Name des dritten Abschnitts in Sammelmappe1.obd angezeigt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

sectionName = meineMappe.Sections.Item(3).Name

Set meineMappe = Nothing

MsgBox abschnittName


LeftPane-Eigenschaft

True, wenn der linke Ausschnitt des Sammelmappenfensters sichtbar ist. Dieser Ausschnitt, das auch Sammelmappenfenster genannt wird, enthält die Symbole aller Abschnitte der Sammelmappe. Boolean Schreib-Lese-Zugriff.

Anmerkungen

Wenn diese Eigenschaft den Wert False hat, ist das Sammelmappenfenster der Sammelmappe nicht sichtbar. Es steht jedoch eine Schaltfläche zur Verfügung, mit der Sie das Sammelmappenfenster anzeigen können.


Beispiel zur LeftPane-Eigenschaft

In diesem Beispiel wird die Sammelmappe2.obd mit der Open-Methode geöffnet. Es wird ein neues Word-Dokument zur Sammelmappe hinzugefügt und das Sammelmappenfenster eingeblendet.

Set meineMappe = CreateObject("Sammelmappe1.Binder")

With meineMappe

    .Open "Sammelmappe2.obd"

    .Visible = True

    .Sections.Add Type:="Word.Document"

    .LeftPane = True

End With


Move-Methode

Verschiebt den angegebenen Abschnitt an eine andere Position in der Sammelmappe.

Syntax

Ausdruck.Move(Before, After)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Section-Objekt zurückgibt.

Before   Variant optional. Der Name oder die Nummer des Abschnitts, vor den das Objekt verschoben wird. Sie können Before nicht angeben, wenn Sie After angegeben haben.

After   Variant optional. Der Name oder die Nummer des Abschnitts, nach dem das Objekt eingefügt wird. Sie können After nicht angeben, wenn Sie Before angegeben haben.


Beispiel zur Move-Methode

In diesem Beispiel werden alle Microsoft Excel-Arbeitsmappen in Sammelmappe1.obd an das Ende der Sammelmappe gestellt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

letzte = meineMappe.Sections.Count

For Each element In meineMappe.Sections

    If element.Type = "Excel.Sheet.8" Then

        element.Move After:=letzte

    End If

Next


Name-Eigenschaft

Binder-Objekt: Gibt den Dateinamen der Sammelmappe ohne seinen Pfad zurück. String Nur-Lese-Zugriff.

Section-Objekt: Gibt den Namen des Abschnitts so zurück, wie er auf dem Symbol im Sammelmappenfenster angezeigt wird, oder legt den Namen fest. String Schreib-Lese-Zugriff.

Anmerkungen

Geben Sie die Position und den Dateinamen der Sammelmappe mit der Path-Eigenschaft zurück.


Beispiel zur Name-Eigenschaft

In diesem Beispiel erhält der zweite Abschnitt in Sammelmappe1.obd den Namen "Budget 97". Danach werden die Änderungen der Sammelmappe gespeichert.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

If meineMappe.Sections(2).Type = "Excel.Sheet.8" Then

    meineMappe.Sections(2).Name = "Budget 97"

    MsgBox "Inhalt der Sammelmappe hat sich geändert."

End If

meineMappe.Save


Object-Eigenschaft

Gibt das mit dem angegebenen Abschnitt verknüpfte OLE-Objekt zurück. Nur-Lese-Zugriff.

Anmerkungen

Greifen Sie mit Hilfe dieser Eigenschaft auf den Inhalt des angegebenen Abschnitts (beispielsweise auf den Wert der Zelle A1 in einer Microsoft Excel-Tabelle) sowie auf alle Objekte, Methoden und Eigenschaften der Anwendung zu, mit der der Abschnitt erstellt wurde.


Beispiel zur Object-Eigenschaft

In diesem Beispiel wird der Wert der Zelle namens "Endsumme" in der ersten Tabelle im Abschnitt "Einnahmen 96" in Sammelmappe1.obd angezeigt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineMappe.Visible = True

gesamt = meineMappe.Sections("Einnahmen 96").Object.Range("Endsumme")

MsgBox "Die Endsumme für 1997 beträgt " & gesamt


Parent-Eigenschaft

Gibt das übergeordnete Objekt für das angegebene Objekt zurück. Nur-Lese-Zugriff.


Beispiel zur Parent-Eigenschaft

In diesem Beispiel wird ein neuer Abschnitt an den Anfang von Sammelmappe1.obd eingefügt und der Name des Abschnitts festgelegt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

Set neuerAbschnitt = meineMappe.Sections.Add(Type:="Word.Document", _

    Before:=1)

neuerAbschnitt.Name = "Einführung in " & neuerAbschnitt.Parent.Name


Path-Eigenschaft

Gibt den vollständigen Pfad- und Dateinamen der angegebenen Sammelmappe zurück. String Nur-Lese-Zugriff.


Beispiel zur Path-Eigenschaft

In diesem Beispiel wird der Benutzer zur Eingabe des Namens einer zu öffnenden Sammelmappe aufgefordert. Anschließend wird die Auswahl bestätigt, indem der Pfad der angegebenen Sammelmappe angezeigt wird.

meineMappe = InputBox("Geben Sie den Namen der zu öffnenden Sammelmappe ein.")

Set meineMappe = GetObject(meineMappe, "OfficeBinder.Binder")

MsgBox "Die angegebene Sammelmappe befindet sich in " _

    & meineMappe.Path


PrintOut-Methode

Druckt alle Abschnitte, einen Teil der Abschnitte oder einen einzelnen Abschnitt der Sammelmappe.

Syntax 1

Ausdruck.PrintOut(What, Numbering, FirstPage, Sections, FileName, PrinterName, DriverName, NoPrinting)

Syntax 2

Ausdruck.PrintOut

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt (Syntax 1) oder ein Section-Objekt (Syntax 2) zurückgibt.

What   Variant erforderlich. Der bzw. die zu druckenden Abschnitte. Dies kann eine der folgenden BindPrintWhat-Konstanten sein: bindPrintActiveSection, bindPrintVisibleSections, bindPrintSelectedSections oder bindPrintSectionSubset.

Numbering   Variant optional. Das Schema der Seitennumerierung. Dies kann eine der folgenden BindPrintNumbering-Konstanten sein: bindConsecutivePages oder bindRestartEachSection. Der Standardwert ist bindConsecutivepages.

FirstPage   Variant optional. Die Nummer der ersten Seite. Wird dieses Argument ausgelassen, beginnt die Seitennumerierung bei 1.

Sections   Variant optional. Wenn What den Wert bindPrintSectionSubset hat, ist dieses Argument eine eindimensionale Matrix der Indizes der zu druckenden Abschnitte. Sie können die Indexnummer angeben, um einen Abschnitt zu drucken, oder eine eindimensionale Matrix von Indizes, wenn Sie mehrere Abschnitte drucken möchten.

FileName   Variant optional. Der Name der Datei, in die der Druck umgeleitet wird.

PrinterName   Variant optional. Der Name des zu verwendenden Druckers. Wird dieses Argument ausgelassen, wird der Standarddrucker verwendet.

DriverName   Variant optional. Der Name des zu verwendenden Druckertreibers. Wird dieses Argument ausgelassen, wird der Standardtreiber verwendet.

NoPrinting   Variant optional. Wenn dieses Argument True ist, werden zwar PrinterName und DriverName gesetzt, es wird aber nichts gedruckt. Wenn es False ist (oder ausgelassen wird), werden die angegebenen Abschnitte gedruckt.

Anmerkungen

Sie können einen einzelnen Abschnitt drucken, wenn Sie Syntax 1 verwenden und die Indexnummer des Abschnitts für das Sections-Argument angeben. Sie können aber auch eine der Druckmethoden verwenden, die im Objektmodell des Abschnittstyps enthalten sind (der Zugriff auf das Objektmodell erfolgt über die Object-Eigenschaft).


Beispiel zur PrintOut-Methode

In diesem Beispiel werden alle eingeblendeten Abschnitte in Sammelmappe1.obd gedruckt. Die erste Seite erhält die Seitenzahl 10.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineMappe.PrintOut What:=bindPrintVisibleSections, _

Numbering:=bindConsecutivePages, FirstPage:=10

Set meineMappe = Nothing

In diesem Beispiel werden der erste und zweite Abschnitt sowie der Abschnitt "Ausgabenbericht" in Sammelmappe4.obd gedruckt.

Set meineMappe = GetObject("Sammelmappe4.obd", "OfficeBinder.Binder")

meineMappe.PrintOut What:=bindPrintSectionSubset, _

Sections:=Array(1, 2, "Ausgabenbericht")

Set meineMappe = Nothing


Save-Methode

Speichert die Änderungen der angegebenen Sammelmappe. Verwenden Sie diese Methode nur für Sammelmappen, die zuvor gespeichert wurden.

Syntax

Ausdruck.Save

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt zurückgibt.

Anmerkungen

Wenn Sie die Save-Methode zum Speichern einer neuen Sammelmappe verwenden, tritt ein Fehler auf. Benutzen Sie die SaveAs-Methode, wenn Sie eine neue Sammelmappe zum ersten Mal speichern.


Beispiel zur Save-Methode

In diesem Beispiel erhält der zweite Abschnitt in Sammelmappe1.obd den Namen "Budget 97". Anschließend werden die Änderungen der Sammelmappe gespeichert.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

If meineMappe.Sections(2).Type = "Excel.Sheet.8" Then

    meineMappe.Sections(2).Name = "Budget 97"

    MsgBox "Der Inhalt der Sammelmappe hat sich geändert."

End If

meineMappe.Save


SaveAs-Methode

Speichert Änderungen der angegebenen Sammelmappe oder des angegebenen Abschnitts in einer anderen Datei. Verwenden Sie diese Methode nur für eingeblendete oder neu erstellte Sammelmappen, die noch nicht gespeichert wurden. Die Methode gibt True zurück, wenn die Sammelmappe gespeichert wird, bzw. False, wenn ein Fehler auftritt und die Sammelmappe nicht gespeichert werden kann.

Syntax 1

Ausdruck.SaveAs(FileName, SaveOption)

Syntax 2

Ausdruck.SaveAs(FileName)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt (Syntax 1) oder ein Section-Objekt (Syntax 2) zurückgibt.

FileName   Erforderlich für Section, optional für Binder. Eine Zeichenfolge, die den Namen der zu speichernden Datei angibt. Sie können einen vollständigen Pfad angeben; wenn Sie keinen Pfad eingeben, wird die Datei im aktuellen Ordner gespeichert.

SaveOption   Variant optional. Gibt an, wie die angegebene Sammelmappe gespeichert wird. Dies kann eine der folgenden BindSaveOption-Konstanten sein:

Konstante	Beschreibung
bindFailIfFileExists	Wenn FileName existiert, tritt ein Fehler auf (FileName muß angegeben werden). Diese Konstante ist die Voreinstellung.
bindOverwriteExisting	Wenn FileName existiert, wird die Datei von SaveAs überschrieben (FileName muß angegeben werden).
bindDisplayDialog	Zeigt das Dialogfeld Sammelmappe speichern unter an (FileName ist optional). Wenn der Benutzer das Dialogfeld Sammelmappe speichern unter schließt, ohne die Datei zu speichern, gibt SaveAs den Wert False zurück.
Anmerkungen

Mit der SaveAs-Methode werden Abschnitte als einzelne Dateien gespeichert, ohne daß die entsprechenden Abschnitte in der Sammelmappe gelöscht werden. Wenn Sie einen Abschnitt aus der Sammelmappe löschen möchten, verwenden Sie die Delete-Methode.


Beispiel zur SaveAs-Methode

In diesem Beispiel wird festgestellt, ob der erste Abschnitt in Sammelmappe1.obd vom Typ Excel.Sheet.8 ist. Trifft dies zu, wird der Abschnitt als Arbeitsmappe MeineMappe1.xls gespeichert.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

If meineMappe.Sections(1).Type = "Excel.Sheet.8" Then

meineMappe.Sections(1).SaveAs "MeineMappe1.xls"

End If

Set meineMappe = Nothing

In diesem Beispiel wird eine neue Sammelmappe erstellt und eingeblendet. Anschließend wird der Benutzer aufgefordert, sie unter Sammelmappe1.obd zu speichern.

Set neueMappe = CreateObject("OfficeBinder.Binder")

neueMappe.Visible = True

neueMappe.SaveAs FileName:="Sammelmappe1.obd", _

SaveOption:=bindDisplayDialog


Sections-Eigenschaft

Gibt eine Sections-Auflistung zurück, die alle Abschnitte in der angegebenen Sammelmappe darstellt. Nur-Lese-Zugriff.

Weitere Informationen über die Rückgabe eines einzelnen Elements einer Auflistung finden Sie unter Zurückgeben eines Objekts aus einer Auflistung.


Beispiel zur Sections-Eigenschaft

In diesem Beispiel wird die Anzahl von Microsoft Excel-Abschnitten in Sammelmappe1.obd angezeigt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

am = 0

For Each abschnitt In meineMappe.Sections

If abschnitt.Type = "Excel.Sheet.8" Then

am = am + 1

End If

Next

MsgBox "Diese Sammelmappe enthält " & wk & " Microsoft Excel-Abschnitte."

Set meineMappe = Nothing

In diesem Beispiel wird der Name des dritten Abschnitts in Sammelmappe1.obd angezeigt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

MsgBox meineMappe.Sections(3).Name

Set meineMappe = Nothing


SelectedSectionNames-Eigenschaft

Gibt die Matrix zurück, die die Namen der ausgewählten Abschnitte enthält, oder legt sie fest. Variant Schreib-Lese-Zugriff.

Anmerkungen

Wenn Sie die SelectedSectionNames-Eigenschaft setzen, wird der in der Matrix zuerst genannte Abschnitt zum aktiven Abschnitt. Wenn die Matrix den Namen eines nicht vorhandenen Abschnitts enthält, tritt ein Fehler auf.


Beispiel zur SelectedSectionNames-Eigenschaft

In diesem Beispiel werden die Namen der ausgewählten Abschnitte in Sammelmappe1.obd angezeigt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

meinematrix = .SelectedSectionNames

MsgBox UBound(meinematrix) & " Abschnitt ist ausgewählt."

For x = 1 To UBound(meinematrix)

    MsgBox "Der Abschnittsname lautet " & meinematrix(x)

Next

End With


Type-Eigenschaft

Gibt eine Zeichenfolge zurück, die den langen OLE-Klassennamen des Section-Objekts enthält. String Nur-Lese-Zugriff.

Anmerkungen

Lange OLE-Klassennamen werden folgendermaßen angegeben: AppName.ObjektType.VersionNummer (Beispiel: "Word.Document.8"). Weitere Informationen über verfügbare Abschnittstypen von Sammelmappen finden Sie unter der Add-Methode.


Beispiel zur Type-Eigenschaft

In diesem Beispiel werden alle Microsoft Excel-Arbeitsmappen in Sammelmappe1.obd an das Ende der Sammelmappe gestellt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

letzte = meineMappe.Sections.Count

For Each element In meineMappe.Sections

    If element.Type = "Excel.Sheet.8" Then

        element.Move After:=letzte

    End If

Next


Visible-Eigenschaft

True, wenn die angegebene Sammelmappe oder der angegebene Abschnitt eingeblendet ist. Boolean Schreib-Lese-Zugriff.

Anmerkungen

Wenn ein Binder-Objekt von der CreateObject-Funktion erstellt oder von der GetObject-Funktion geöffnet wird, hat die Visible-Eigenschaft den Wert False. Wenn Sie die Sammelmappe einblenden möchten, setzen Sie die Visible-Eigenschaft auf True.

Die von der Sections-Auflistung zurückgegebene Anzahl der Abschnitte umfaßt auch ausgeblendete Abschnitte.


Beispiel zur Visible-Eigenschaft

In diesem Beispiel wird Sammelmappe1.obd geöffnet und eingeblendet.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineMappe.Visible = True


Open-Methode

Öffnet eine vorhandene oder eine neue Sammelmappe auf der Grundlage einer existierenden Sammelmappenvorlage.

Hinweis   Zum Öffnen einer vorhandenen Sammelmappe ist die GetObject-Funktion vorzuziehen. Mit der Visible-Methode können Sie dem Benutzer anschließend die Sammelmappe anzeigen. Wenn Sie die Open-Methode anstelle der GetObject-Funktion verwenden, setzen Sie diese Methode unmittelbar nach CreateObject ein, da andernfalls ein Fehler auftritt.

Syntax

Ausdruck.Open(FileName, OpenAsTemplate)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt zurückgibt.

FileName   String erforderlich. Der Name der zu öffnenden Datei.

OpenAsTemplate   Variant optional. Wenn dieses Argument den Wert True hat, wird die Datei als neue Sammelmappe auf der Grundlage der angegebenen Sammelmappenvorlage geöffnet. Wenn es False ist (oder ausgelassen wird), wird die Datei als Sammelmappendatei geöffnet.


Beispiel zur Open-Methode

In diesem Beispiel wird Sammelmappe2.obd geöffnet. Danach wird ein neues Word-Dokument zur Sammelmappe hinzugefügt und die Sammelmappe eingeblendet.

Set meineMappe = CreateObject("OfficeBinder.Binder")

With meineMappe

    .Open "Sammelmappe2.obd"

    .Sections.Add Type:="Word.Document"

    .Visible = True

End With


Update-Methode

Aktualisiert den angegebenen Abschnitt, speichert jedoch keine Änderungen der Sammelmappe. Speichern Sie Änderungen an der Sammelmappe mit der Save-Methode.

Syntax

Ausdruck.Update

Ausdruck   Erforderlich. Ein Ausdruck, der ein Section-Objekt zurückgibt.

Anmerkungen

Die Update-Methode ist sinnvoll, wenn mehrere Abschnitte vor dem Speichern der Sammelmappe aktualisiert werden müssen.


Beispiel zur Update-Methode

In diesem Beispiel wird eine Microsoft Excel-Tabelle zu einer vorhandenen Sammelmappe hinzugefügt, ein Wert in die Tabelle eingefügt und der neue Abschnitt aktualisiert. Ohne die Update-Methode ginge die Änderung verloren, wenn das neue Section-Objekt auf Nothing gesetzt wird. (Speichern Sie die Änderungen mit Hilfe der Save-Methode dauerhaft in der Sammelmappe.)

Set neueMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

Set neuerAbschnitt = neueMappe.Sections.Add(Type:="Excel.Sheet")

With neuerAbschnitt

    .Object.Worksheets(1).Range("A1").Value = 3.14159

    .Update

End With

Set neuerAbschnitt = Nothing


Formatierungs-Codes für Kopf- und Fußzeilen

Die in der folgenden Tabelle aufgeführten speziellen Formatierungs-Codes können zusammen mit den Kopf- und Fußzeileneigenschaften verwendet werden (LeftHeader-Eigenschaft, CenterHeader-Eigenschaft, RightHeader-Eigenschaft, LeftFooter-Eigenschaft, CenterFooter-Eigenschaft, und RightFooter-Eigenschaft).

Formatierungs-Code	Beschreibung
&L	Richtet die folgenden Zeichen links aus.
&C	Zentriert die folgenden Zeichen.
&R	Richtet die folgenden Zeichen rechts aus.
&E	Aktiviert bzw. deaktiviert das doppelte Unterstreichen.
&X	Aktiviert bzw. deaktiviert hochgestellte Zeichen.
&Y	Aktiviert bzw. deaktiviert tiefgestellte Zeichen.
&B	Aktiviert bzw. deaktiviert fette Schrift.
&I	Aktiviert bzw. deaktiviert kursive Schrift.
&U	Aktiviert bzw. deaktiviert unterstrichene Zeichen.
&S	Aktiviert bzw. deaktiviert durchgestrichene Zeichen.
&O	Druckt die Abschnittsnummer.
&H	Druckt die Gesamtzahl der Abschnitte.
&D	Druckt das aktuelle Datum.
&T	Druckt die aktuelle Zeit.
&F	Druckt den Namen des Dokuments.
&A	Druckt den Namen des Abschnitts.
&P	Druckt die Seitenzahl.
&P+Nummer	Druckt die Seitenzahl plus Nummer.
&P-Nummer	Druckt die Seitenzahl minus Nummer.
&&	Druckt ein einzelnes kaufmännisches Und-Zeichen.
& "Schriftname"	Druckt die folgenden Zeichen in der angegebenen Schrift. Sie müssen die doppelten Anführungsstriche angeben.
&nn	Druckt die folgenden Zeichen in der angegebenen Schriftgröße. Geben Sie die Schriftgröße in Punkt mit einer zweistelligen Zahl an.
&N	Druckt die Gesamtzahl der Seiten im Dokument.
&K	Druckt den Benutzernamen als statische Textzeichenfolge.
&M	Druckt den Firmennamen als statische Textzeichenfolge.


CenterFooter-Eigenschaft

Gibt den mittleren Teil der Fußzeile von Abschnitten zurück, die Kopf- oder Fußzeilen (oder beides) unterstützen und die zu dem Zeitpunkt in der Sammelmappe enthalten sind, an dem die Fußzeile definiert wird, bzw. legt den mittleren Teil der Fußzeile fest. String Schreib-Lese-Zugriff.

Anmerkungen

Sie können im Fußzeilentext spezielle Formatierungs-Codes verwenden.


Beispiel zur CenterFooter-Eigenschaft

In diesem Beispiel wird auf jeder Seite aller Abschnitte von Sammelmappe1.obd, die Kopf- oder Fußzeilen (bzw. beides) unterstützen, die Seitennummer, fett und kursiv formatiert, in der Mitte der Fußzeile gedruckt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If a.SupportsBinderHeaderFooter Then

        .PageSetup.CenterFooter = "&B &I &P &B"

        a.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


CenterHeader-Eigenschaft

Gibt den mittleren Teil der Kopfzeile von Abschnitten zurück, die Kopf- oder Fußzeilen (oder beides) unterstützen und die zu dem Zeitpunkt in der Sammelmappe enthalten sind, an dem die Kopfzeile definiert wird, bzw. legt den mittleren Teil der Kopfzeile fest. String Schreib-Lese-Zugriff.

Anmerkungen

Sie können im Kopfzeilentext spezielle Formatierungs-Codes verwenden.


Beispiel zur CenterHeader-Eigenschaft

In diesem Beispiel werden auf jeder Seite aller Abschnitte von Sammelmappe1.obd, die Kopf- oder Fußzeilen (bzw. beides) unterstützen, Datum und Uhrzeit, fett formatiert, in der Mitte der Kopfzeile gedruckt.

Set meineMappe = GetObject("c:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If a.SupportsBinderHeaderFooter Then

        .PageSetup.CenterHeader = "&B &D &T &B"

        a.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


FirstPage-Eigenschaft

Gibt die Nummer der ersten Seite eines Abschnitts zurück, der Kopf- oder Fußzeilen (bzw. beides) unterstützt, oder legt die Nummer der ersten Seite fest. Long Schreib-Lese-Zugriff.

Anmerkungen

Beim Erstellen einer Sammelmappe wird diese Eigenschaft auf 1 gesetzt. Verwenden Sie diese Eigenschaft, wenn Sie der ersten Seite eine andere Seitenzahl als 1 zuweisen möchten.


Beispiel zur FirstPage-Eigenschaft

In diesem Beispiel wird der erste Abschnitt von Sammelmappe1.obd gedruckt. Die Seitennumerierung beginnt bei 100. Die Seitenzahl wird im ersten Abschnitt als rechts ausgerichtete Fußzeile gedruckt, falls dieser Abschnitt Kopf- oder Fußzeilen (bzw. beides) unterstützt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

If.Sections(1).SupportsBinderHeaderFooter Then

    With .PageSetup

        .FirstPage = 100

        .RightFooter = "&P"

        .PrintWhat = bindPageSetupSelectedSections

     End With

End If

.Close SaveChanges:=True

End With


LeftFooter-Eigenschaft

Gibt den links ausgerichteten Teil der Fußzeile von Abschnitten zurück, die Kopf- oder Fußzeilen (oder beides) unterstützen und die zu dem Zeitpunkt in der Sammelmappe enthalten sind, an dem die Fußzeile definiert wird, bzw. legt den links ausgerichteten Teil der Fußzeile fest. String Schreib-Lese-Zugriff.

Anmerkungen

Sie können im Fußzeilentext spezielle Formatierungs-Codes verwenden.


Beispiel zur LeftFooter-Eigenschaft

In diesem Beispiel wird in der unteren linken Ecke jeder Seite aller Abschnitte von Sammelmappe1.obd, die Kopf- oder Fußzeilen (bzw. beides) unterstützen, die Seitennummer fett und kursiv formatiert gedruckt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If a.SupportsBinderHeaderFooter Then

        a.PageSetup.LeftFooter = "&B &I &P &B"

        a.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


LeftHeader-Eigenschaft

Gibt den links ausgerichteten Teil der Kopfzeile von Abschnitten zurück, die Kopf- oder Fußzeilen (oder beides) unterstützen und die zu dem Zeitpunkt in der Sammelmappe enthalten sind, an dem die Kopfzeile definiert wird, bzw. legt den links ausgerichteten Teil der Kopfzeile fest. String Schreib-Lese-Zugriff.

Anmerkungen

Sie können im Kopfzeilentext spezielle Formatierungs-Codes verwenden.


Beispiel zur LeftHeader-Eigenschaft

In diesem Beispiel werden in der oberen linken Ecke jeder Seite aller Abschnitte von "Sammelmappe1.obd", die Kopf- oder Fußzeilen (bzw. beides) unterstützen, Datum und Uhrzeit fett formatiert gedruckt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If a.SupportsBinderHeaderFooter Then

        .PageSetup.LeftHeader = "&B &D &T &B"

        a.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


Numbering-Eigenschaft

Gibt die Art der Numerierung der Abschnitte in der angegebenen Sammelmappe zurück bzw. legt sie fest. Dies kann eine der folgenden BindPrintNumbering-Konstanten sein: bindConsecutivePages oder bindRestartEachSection. Variant Schreib-Lese-Zugriff.


Beispiel zur Numbering-Eigenschaft

In diesem Beispiel wird die Seitenzahl in die untere linke Ecke jeder Seite in Sammelmappe1.obd gesetzt. Die Seitennumerierung beginnt dabei in jedem Abschnitt der Sammelmappe neu.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe.PageSetup

    .LeftFooter = "&P"

    .Numbering = bindRestartEachSection

End With


PrintWhat-Eigenschaft

Gibt die Abschnitte der angegebenen Sammelmappe zurück, die gedruckt werden, bzw. legt die Abschnitte fest. Dies kann eine der folgenden BindPageSetupPrintWhat-Konstanten sein: bindPageSetupSelectedSections oder bindPageSetupVisibleSections. Variant Schreib-Lese-Zugriff.


Beispiel zur PrintWhat-Eigenschaft

In diesem Beispiel werden das Datum und die Uhrzeit in die obere linke Ecke jeder Seite in Sammelmappe1.obd gesetzt. Danach werden alle eingeblendeten Abschnitte der Sammelmappe gedruckt, die Kopf- bzw. Fußzeilen (oder beides) unterstützen.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If a.SupportsBinderHeaderFooter Then

        .PageSetup.LeftHeader = "&D &T"

        .PageSetup.PrintWhat = bindPageSetupVisibleSections

        a.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


RightFooter-Eigenschaft

Gibt den rechts ausgerichteten Teil der Fußzeile von Abschnitten zurück, die Kopf- oder Fußzeilen (oder beides) unterstützen und die zu dem Zeitpunkt in der Sammelmappe enthalten sind, an dem die Fußzeile definiert wird bzw. legt den rechts ausgerichteten Teil der Fußzeile fest. String Schreib-Lese-Zugriff.

Anmerkungen

Sie können im Fußzeilentext spezielle Formatierungs-Codes verwenden.


Beispiel zur RightFooter-Eigenschaft

In diesem Beispiel wird in der unteren rechten Ecke jeder Seite aller Abschnitte von Sammelmappe1.obd, die Kopf- oder Fußzeilen (bzw. beides) unterstützen, die Seitennummer fett und kursiv formatiert gedruckt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If a.SupportsBinderHeaderFooter Then

        .PageSetup.RightFooter = "&B &I &P &B"

        a.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


RightHeader-Eigenschaft

Gibt den rechts ausgerichteten Teil der Kopfzeile von Abschnitten zurück, die Kopf- oder Fußzeilen (oder beides) unterstützen und die zu dem Zeitpunkt in der Sammelmappe enthalten sind, an dem die Kopfzeile definiert wird, bzw. legt den rechts ausgerichteten Teil der Kopfzeile fest. String Schreib-Lese-Zugriff.

Anmerkungen

Sie können im Kopfzeilentext spezielle Formatierungs-Codes verwenden.


Beispiel zur RightHeader-Eigenschaft

In diesem Beispiel werden in der oberen rechten Ecke jeder Seite aller Abschnitte von Sammelmappe1.obd, die Kopf- oder Fußzeilen (bzw. beides) unterstützen, Datum und Uhrzeit fett formatiert gedruckt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineMappe

For Each abschnitt In.Sections

    If abschnitt.SupportsBinderHeaderFooter Then

        .PageSetup.RightHeader = "&B &D &T &B"

        abschnitt.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


Close-Methode

Schließt die angegebene Sammelmappe.

Syntax

Ausdruck.Close(SaveChanges, FileName)

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt zurückgibt.

SaveChanges   Variant optional. Wenn True, werden Änderungen der Sammelmappe gespeichert. Wenn False, wird die Sammelmappe ohne die Änderungen gespeichert. Wird dieses Argument nicht angegeben und wurde die Sammelmappe geändert, wird der Benutzer in einem Dialogfeld gefragt, ob die Änderungen gespeichert werden sollen. Wenn keine Änderungen vorhanden sind, wird dieses Argument nicht beachtet.

FileName   Variant optional. Der Name, den Sie der Sammelmappe beim Speichern geben möchten, falls sie nicht zuvor schon gespeichert wurde. Wird dieses Argument nicht angegeben und wurde die Sammelmappe nicht mindestens einmal gespeichert, wird das Dialogfeld Sammelmappe speichern unter angezeigt. Wurde die Sammelmappe bereits gespeichert, wird dieses Argument nicht beachtet.


Beispiel zur Close-Methode

In diesem Beispiel wird die als neueMappe bezeichnete Sammelmappe unter NeueMappe2.obd gespeichert.

neueMappe.Close _

SaveChanges:=True, FileName:="NeueMappe2.obd"


DefaultFilePath-Eigenschaft

Gibt den Standardpfad zurück, den Microsoft Office Sammelmappe beim Öffnen oder Speichern von Dateien verwendet, oder legt ihn fest. String Schreib-Lese-Zugriff.

Anmerkungen

Der Standardpfad nach der Installation von Microsoft Office lautet C:\Eigene Dateien.


Beispiel zur DefaultFilePath-Eigenschaft

In diesem Beispiel wird der aktuelle Standard-Dateipfad angezeigt.

MsgBox "Der aktuelle Standard-Dateipfad ist " & _

neueMappe.DefaultFilePath


DisplayAlerts-Eigenschaft

True, wenn Microsoft Office Sammelmappe bestimmte Warnungen und Meldungen anzeigt, wenn die angegebene Sammelmappe aktiv ist. Boolean Schreib-Lese-Zugriff.


Beispiel zur DisplayAlerts-Eigenschaft

In diesem Beispiel wird die mit neueMappe bezeichnete Sammelmappe geschlossen, ohne daß der Benutzer zum Speichern der Änderungen aufgefordert wird. Die Änderungen der Sammelmappe werden nicht gespeichert.

neueMappe.DisplayAlerts = False

neueMappe.Close


ExitOpenMode-Methode

Schließt die Host-Anwendung und kehrt zu Microsoft Office Sammelmappe zurück.

Syntax

Ausdruck.ExitOpenMode

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt zurückgibt.


Beispiel zur ExitOpenMode-Methode

In diesem Beispiel wird eine neue Microsoft Excel-Arbeitsmappe zur Sammelmappe hinzugefügt und der neue Abschnitt in der Host-Anwendung (Microsoft Excel) geöffnet. Die Zahl 45 wird in einen Bereich einer Tabelle eingefügt. Danach wird die Host-Anwendung geschlossen und die neue Sammelmappendatei gespeichert.

Set neueMappe = GetObject("C:\Sammelmappe2.obd", _

"Office.Binder")

neueMappe.ViewOpenMode

Set neuerAbschnitt = neueMappe.Sections.Add(Type:="Excel.Sheet")

With neuerAbschnitt

    .Object.Worksheets(1).Range("A1").Value = 45

End With

neueMappe.ExitOpenMode

neueMappe.Close _

SaveChanges:=True, FileName:="Geändert.obd"


DisplayLeftPaneAndButton-Eigenschaft

True, wenn das linke Fenster der angegebenen Sammelmappe (das auch als Sammelmappenfenster bezeichnet wird) sowie die Schaltfläche eingeblendet sind, mit der der Benutzer dieses Fenster anzeigen kann. Boolean Schreib-Lese-Zugriff.


Beispiel zur DisplayLeftPaneAndButton-Eigenschaft

In diesem Beispiel wird die mit neueMappe bezeichnete Sammelmappe angezeigt, nicht jedoch das Sammelmappenfenster. Die Schaltfläche, mit der der Benutzer dieses Fenster einblenden kann, ist nicht verfügbar.

neueMappe.DisplayLeftPaneAndButton = False

neueMappe.Visible = True


PageSetup-Eigenschaft

Gibt ein PageSetup-Objekt zurück, das die Seiteneinrichtung darstellt. Nur-Lese-Zugriff.


Beispiel zur PageSetup-Eigenschaft

In diesem Beispiel wird auf jeder Seite der Sammelmappe meineMappe die Seitennummer, fett und kursiv formatiert, in der Mitte der Fußzeile gedruckt.

Set meineMappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineMappe.PageSetup.CenterFooter = "&B &I &P &B"


SinglePrintJob-Eigenschaft

True, wenn alle Abschnitte in der Sammelmappe zusammen in einem Auftrag gedruckt werden. False, wenn jeder Abschnitt der Sammelmappe in einem separaten Auftrag gedruckt wird. Boolean Schreib-Lese-Zugriff.


Beispiel zur SinglePrintJob-Eigenschaft

In diesem Beispiel wird eine Sammelmappendatei geöffnet, und alle Abschnitte werden in einem zusammenhängenden Auftrag gedruckt.

Set neueMappe = GetObject("C:\Sammelmappe2.obd", _

"Office.Binder")

With neueMappe

    .SinglePrintJob = True

    .PrintOut What:=bindPrintVisibleSections, _

    Numbering:=bindConsecutivePages

    .Close _

    SaveChanges:=True, FileName:="Geändert.obd"

End With


ViewOpenMode-Methode

Zeigt den aktiven Abschnitt der angegebenen Sammelmappe in der entsprechenden Host-Anwendung des Abschnitts an.

Syntax

Ausdruck.ViewOpenMode

Ausdruck   Erforderlich. Ein Ausdruck, der ein Binder-Objekt zurückgibt.

Anmerkungen

Wenn die Host-Anwendung nicht verfügbar oder nicht installiert ist, verursacht diese Methode einen Fehler.


Beispiel zur ViewOpenMode-Methode

In diesem Beispiel wird eine neue Microsoft Excel-Arbeitsmappe zur Sammelmappe hinzugefügt und der neue Abschnitt in der Host-Anwendung (Microsoft Excel) geöffnet. Die Zahl 45 wird in einen Bereich einer Tabelle eingefügt. Danach wird die Host-Anwendung geschlossen und die neue Sammelmappendatei gespeichert.

Set neueMappe = GetObject("C:\Sammelmappe2.obd", _

"Office.Binder")

neueMappe.ViewOpenMode

Set neuerAbschnitt = neueMappe.Sections.Add(Type:="Excel.Sheet")

With neuerAbschnitt

    .Object.Worksheets(1).Range("A1").Value = 45

End With

neueMappe.ExitOpenMode

neueMappe.Close _

SaveChanges:=True, FileName:="Geändert.obd"


DisplayStatusBar-Eigenschaft

True, wenn in Microsoft Office Sammelmappe im Anwendungsfenster unten eine Statusleiste angezeigt wird. Boolean Schreib-Lese-Zugriff.


Beispiel zur DisplayStatusBar-Eigenschaft

In diesem Beispiel wird die Datei "SMappe2.obd" geöffnet, die Statusleiste angezeigt und die Sammelmappe dargestellt.

Set neueSammelmappe = GetObject("C:\SMappe2.obd", "Office.Sammelmappe")

neueSammelmappe.DisplayStatusBar = True

neueSammelmappe.Visible = True


ActiveSection-Eigenschaft

Gibt ein Section-Objekt zurück, das den aktiven Abschnitt in der Sammelmappe darstellt. Enthält die Sammelmappe keine sichtbaren Abschnitte, wird ein Fehler ausgegeben. Nur-Lese-Zugriff.

Anmerkungen

Verwenden Sie die Activate-Methode, um einen Abschnitt zum aktiven Abschnitt zu machen.


Beispiel zur ActiveSection-Eigenschaft

In diesem Beispiel wird die Datei "SMappe2.obd" geöffnet, der erste Abschnitt aktiviert und eine Kopie des aktiven Abschnitts erstellt, wenn es sich beim aktiven Abschnitt um ein Excel-Diagramm handelt. Der neue Abschnitt wird mit "Kopie Abschnitt 1" neu benannt.

Set neueSammelmappe = GetObject("C:\SMappe2.obd", _

    "Office.Sammelmappe")

With neueSammelmappe

    .Visible = True

    .Sections(1).Activate

    If .ActiveSection.Type = "Excel.Diagramm.8" Then

        .ActiveSection.Copy

        .ActiveSection.Name = "Kopie Abschnitt 1"

    End If

End With


HasBinderHeaderFooter-Eigenschaft

True, wenn der angegebene Abschnitt der Sammelmappe eine druckbare Kopf- oder Fußzeile enthält. Boolean Schreib-Lese-Zugriff.


Beispiel zur HasBinderHeaderFooter-Eigenschaft

In diesem Beispiel wird die Seitenzahl (in fett, kursiv) in die Mitte jeder Seite der Abschnitte der Datei "SMappe1.obd" gedruckt, die Kopf- oder Fußzeilen (oder beides) unterstützen.

Set meineSammelmappe = GetObject("C:\SMappe1.obd", _

    "OfficeBinder.Sammelmappe")

With meineSammelmappe

For Each abschnitt In .Sections

    If abschnitt.SupportsBinderHeaderFooter Then

        .PageSetup.CenterFooter = "&F &K &S &F"

        abschnitt.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


SupportsBinderHeaderFooter-Eigenschaft

True, wenn der angegebene Abschnitt der Sammelmappe Kopf- oder Fußzeilen unterstützt. Boolean Nur-Lese-Zugriff.


Beispiel zur SupportsBinderHeaderFooter-Eigenschaft

In diesem Beispiel wird die Seitenzahl (in fett, kursiv) in die Mitte jeder Seite der Abschnitte der Datei "SMappe1.obd" gedruckt, die Kopf- oder Fußzeilen (oder beides) unterstützen.

Set meineSammelmappe = GetObject("C:\SMappe1.obd", _

    "OfficeBinder.Sammelmappe")

With meineSammelmappe

For Each abschnitt In .Sections

    If abschnitt.SupportsBinderHeaderFooter Then

        .PageSetup.CenterFooter = "&F &K &S &F"

        abschnitt.HasBinderHeaderFooter = True

    End If

Next

.Close SaveChanges:=True

End With


Section-Objekt

Stellt einen Abschnitt (ein bestimmtes Dokument) in einer Sammelmappe dar. Wenn eine Sammelmappe zum Beispiel eine Microsoft Excel-Tabelle zwei Word-Dokumente und eine PowerPoint-Präsentation enthält, hat die Sammelmappe vier Abschnitte. Das Section-Objekt ist ein Element der Sections-Auflistung.

Verwenden des Section-Objekts

Verwenden Sie Sections(Index), um ein einzelnes Section-Objekt zurückzugeben. Dabei ist Index die Nummer des Abschnitts, den Sie zurückgeben möchten. Die Indexnummer gibt die Reihenfolge an, in der die Abschnitte im Sammelmappenfenster aufgelistet werden. Sections(1) ist das erste Dokument und Sections(Sections.Count) das letzte Dokument.

Durch das Aktivieren eines Abschnitts wird das aktuelle Dokument geöffnet; die Indexnummer des Dokuments wird dabei nicht geändert. Im Indexzähler sind alle Abschnitte enthalten, auch ausgeblendete Abschnitte. Im folgenden Beispiel wird das erste Dokument in der Sammelmappe meineSammelmappe aktiviert.

meineSammelmappe.Sections(1).Activate

Anmerkungen

Die Name-Eigenschaft gibt den Namen des angegebenen Abschnitts zurück oder legt ihn fest. Im folgenden Beispiel wird der Name des ersten Abschnitts in Sammelmappe1.obd angezeigt.

Set meineSammelmappe = GetObject("Sammelmappe1.obd", "OfficeBinder.Binder")

derName = meineSammelmappe.Sections(1).Name

Set meineSammelmappe = Nothing

MsgBox derName

Verwenden Sie die SaveAs-Methode, um eine Kopie des angegebenen Abschnitts in einer anderen Datei zu speichern. Im folgenden Beispiel wird der erste Abschnitt in Sammelmappe1.obd in einer neuen Microsoft Excel-Arbeitsmappe gespeichert.

Set meineSammelmappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

If meineSammelmappe.Sections(1).Type = "Excel.Sheet.8" Then

meineSammelmappe.Sections(1).SaveAs "MeineMappe3.xls"

End If

Im folgenden Beispiel wird der Abschnitt namens "Gesamtumsatz" in Jahresbericht.obd aktiviert.

Set meineSammelmappe = GetObject("C:\reports\Jahresbericht.obd", _

"OfficeBinder.Binder")

meineSammelmappe.Visible = True

meineSammelmappe.Sections("Gesamtumsatz").Activate


Sections-Objekt (Auflistung)

Eine Auflistung aller Section-Objekte einer Sammelmappe, unabhängig davon, ob sie aus- oder eingeblendet sind.

Verwenden der Sections-Auflistung

Verwenden Sie die Sections-Eigenschaft, um die Sections-Auflistung zurückzugeben. Im folgenden Beispiel wird die Anzahl der Abschnitte in Sammelmappe1.obd angezeigt.

Set meineSammelmappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

MsgBox "Diese Sammelmappe enthält " & meineSammelmappe.Sections.Count & _

    " Abschnitte."

Verwenden Sie die Add-Methode, um einen neuen Abschnitt zu erstellen oder um eine vorhandene Datei als Abschnitt hinzuzufügen. Im folgenden Beispiel wird eine leere Microsoft Excel-Arbeitsmappe in die neue Sammelmappe eingefügt.

Set meineSammelmappe = CreateObject("OfficeBinder.Binder")

meineSammelmappe.Sections.Add Type:="Excel.Sheet"

Im folgenden Beispiel wird eine vorhandene Sammelmappe geöffnet und die Word-Datei Beispiele.doc als letzter Abschnitt in die Sammelmappe eingefügt.

Set meineSammelmappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

meineSammelmappe.Sections.Add _

    FileName:="C:\Programme\Microsoft Office\Winword\Beispiele.doc"

Verwenden Sie Sections(Index), um ein einzelnes Section-Objekt zurückzugeben. Dabei ist Index die Nummer des Abschnitts, der zurückgegeben werden soll. Im folgenden Beispiel erhält der zweite Abschnitt in Sammelmappe1.obd den Namen "Budget 95". Anschließend werden die Änderungen gespeichert.

Set meineSammelmappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

If meineSammelmappe.Sections(2).Type = "Excel.Sheet.8" Then

    meineSammelmappe.Sections(2).Name = "Budget 95"

    MsgBox "Inhalt der Sammelmappe hat sich geändert."

End If

meineSammelmappe.Save


Binder-Objekt

Stellt eine Microsoft Office-Sammelmappe dar. Eine Sammelmappe wird in Visual Basic als Automation-Objekt (früher OLE Automation-Objekt) geöffnet.

Verwenden des Binder-Objekts

Verwenden Sie die CreateObject-Funktion, um eine neue Sammelmappe zu erstellen. Im folgenden Beispiel wird eine neue Sammelmappe erstellt, eingeblendet und danach als Meinemappe.obd gespeichert.

Set meineSammelmappe = CreateObject("OfficeBinder.Binder")

meineSammelmappe.Visible = True

meineSammelmappe.SaveAs FileName:="Meinemappe.obd"

Verwenden Sie die GetObject-Funktion, um eine vorhandene Sammelmappe zu öffnen. Im folgenden Beispiel wird die zuvor erstellte Sammelmappe geöffnet und eingeblendet.

Set meineSammelmappe = GetObject("Meinemappe.obd", "OfficeBinder.Binder")

meineSammelmappe.Visible = True

Anmerkungen

Wenn eine Sammelmappe erstellt oder geöffnet wird, ist sie standardmäßig ausgeblendet. Geben Sie der Visible-Eigenschaft für die angegebene Sammelmappe den Wert True, um die Sammelmappe anzuzeigen.


PageSetup-Objekt

Stellt die Seiteneinrichtung dar. Das PageSetup-Objekt enthält alle Attribute zur Seiteneinrichtung (Fußzeile links, Kopfzeile Mitte, Numerierung usw.) als Eigenschaften.

Verwenden des PageSetup-Objekts

Verwenden Sie die PageSetup-Eigenschaft, um das PageSetup-Objekt zurückzugeben. In diesem Beispiel werden die eingeblendeten Abschnitte der Sammelmappe gedruckt, und der Beginn der Seitennumerierung wird auf 100 gesetzt. Die Seitenzahlen sind in der Fußzeile rechts ausgerichtet.

Set meineSammelmappe = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineSammelmappe.PageSetup

    .FirstPage = 100

    .RightFooter = "&P"

    .PrintWhat = bindPrintVisibleSections

End With

Anmerkungen

Wenn in einem Abschnitt eine Kopf- oder Fußzeile gedruckt werden soll, muß der Abschnitt zunächst gedruckte Kopf- oder Fußzeilen (bzw. beides) unterstützen und eine druckbare Kopf- oder Fußzeile haben. Legen Sie mit der SupportsBinderHeaderFooter-Eigenschaft fest, ob der Abschnitt Kopf- oder Fußzeilen unterstützt. Bestimmen Sie mit HasBinderHeaderFooter, ob der Abschnitt eine druckbare Kopf- oder Fußzeile enthält. Im folgenden Beispiel wird in allen Abschnitten von Sammelmappe1.obd, die Kopf- oder Fußzeilen unterstützen, auf jeder Seite eine fett formatierte Seitenzahl in der Mitte der Fußzeile gedruckt. Anschließend werden alle eingeblendeten Abschnitte der Sammelmappe gedruckt.

Set meineSammelmappe = GetObject("c:\Sammelmappe1.obd", "OfficeBinder.Binder")

With meineSammelmappe

For Each abschnitt In .Sections

    If abschnitt.SupportsBinderHeaderFooter Then

        .PageSetup.CenterFooter = "&B &P &B"

        abschnitt.HasBinderHeaderFooter = True

    End If

Next

meineSammelmappe.PrintOut What:=bindPrintVisibleSections

.Close SaveChanges:=True

End With


BuiltinDocumentProperties-Eigenschaft

Gibt eine DocumentProperties-Auflistung zurück, die alle integrierten Dokumenteigenschaften der angegebenen Sammelmappe darstellt. Nur-Lese-Zugriff.

Anmerkungen

Verwenden Sie die CustomDocumentProperties-Eigenschaft, um die DocumentProperties-Auflistung zurückzugeben, die alle benutzerdefinierten Dokumenteigenschaften der angegebenen Sammelmappe darstellt.


Beispiel zur BuiltinDocumentProperties-Eigenschaft

In diesem Beispiel wird der Name des Autors von Sammelmappe1.obd angezeigt.

Set name = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

MsgBox name.BuiltinDocumentProperties("Autor").Value

Set name = Nothing


CustomDocumentProperties-Eigenschaft

Gibt eine DocumentProperties-Auflistung zurück, die alle benutzerdefinierten Dokumenteigenschaften der angegebenen Sammelmappe darstellt. Nur-Lese-Zugriff.

Anmerkungen

Verwenden Sie die BuiltinDocumentProperties-Eigenschaft, um die DocumentProperties-Auflistung zurückzugeben, die alle integrierten Dokumenteigenschaften der angegebenen Sammelmappe darstellt.


Beispiel zur CustomDocumentProperties-Eigenschaft

In diesem Beispiel wird zu Sammelmappe1.obd eine benutzerdefinierte Dokumenteigenschaft hinzugefügt. Danach wird die Sammelmappe gespeichert.

Set name = GetObject("C:\Sammelmappe1.obd", "OfficeBinder.Binder")

name.CustomDocumentProperties.Add Name:="vollständig", _

    LinkToContent:=False, Type:=offPropertyTypeBoolean, Value:=False

name.Save

Set name = Nothing


Microsoft Office Sammelmappe-Objekte


Programmtechnische OLE-Bezeichner (Microsoft Office Sammelmappe)

Sie verwenden einen programmtechnischen OLE-Bezeichner (auch ProgID genannt), um ein Automation-Objekt zu erstellen.

Um ein Automation-Objekt zu erstellen, das ein Binder-Objekt von Microsoft Office Sammelmappe darstellt, verwenden Sie "OfficeBinder.Binder.8". Wird "OfficeBinder.Binder" ohne Versionsnummer verwendet, wird eine Sammelmappe in der aktuellsten Version von Microsoft Office Sammelmappe erstellt, die auf dem Computer verfügbar ist, auf dem das Makro ausgeführt wird.


Zurückgeben eines Objekts aus einer Auflistung

Die Item-Eigenschaft gibt ein einzelnes Objekt aus einer Auflistung zurück. Im folgenden Beispiel wird für die Variable meinAbschnitt ein Section-Objekt festgelegt, das den ersten Abschnitt in einer Sammelmappe darstellt. Für die Variable meineSammelmappe wird eine vorhandene Sammelmappendatei festgelegt.

Set meinAbschnitt = meineSammelmappe.Sections.Item(1)

Die Item-Eigenschaft ist die Standardeigenschaft der Sections-Auflistung, d. h. Sie können dasselbe Argument kürzer halten, indem Sie das Item-Stichwort auslassen.

Set meinAbschnitt = meineSammelmappe.Sections(1)


Hilfethema nicht verfügbar

Das Hilfethema kann nicht angezeigt werden, da die Hilfe zu Visual Basic für Applikationen nicht gefunden werden kann oder nicht installiert wurde.

So installieren Sie die Hilfe zu Visual Basic für Applikationen

1.	Starten Sie das Setup-Programm von Microsoft Office 97, und klicken Sie auf Hinzufügen/Löschen.

2.	Klicken Sie auf Microsoft Excel, Microsoft PowerPoint oder Microsoft Word, und klicken Sie anschließend auf Option ändern.

3.	Klicken Sie bei Microsoft Excel auf Online-Hilfe und Beispiele. Klicken Sie bei Microsoft PowerPoint oder Microsoft Word auf Hilfe und wählen Sie dann Option ändern.

4.	Stellen Sie sicher, daß bei Microsoft PowerPoint und Microsoft Excel das Kontrollkästchen Online-Hilfe für Visual Basic bzw. bei Microsoft Word das Kontrollkästchen Hilfe für Visual Basic markiert ist.

5.	Fahren Sie mit dem Setup-Programm fort.


Hilfethema nicht verfügbar

Das Hilfethema kann nicht angezeigt werden, da die Hilfe zu Visual Basic für Applikationen nicht gefunden werden kann oder nicht installiert wurde.

So installieren Sie die Hilfe zu Visual Basic für Applikationen

1.	Starten Sie das Setup-Programm von Microsoft Office 97, und klicken Sie auf Hinzufügen/Löschen.

2.	Klicken Sie auf Microsoft Excel, Microsoft PowerPoint oder Microsoft Word, und klicken Sie anschließend auf Option ändern.

3.	Klicken Sie bei Microsoft Excel auf Online-Hilfe und Beispiele. Klicken Sie bei Microsoft PowerPoint oder Microsoft Word auf Hilfe und wählen Sie dann Option ändern.

4.	Stellen Sie sicher, daß bei Microsoft PowerPoint und Microsoft Excel das Kontrollkästchen Online-Hilfe für Visual Basic bzw. bei Microsoft Word das Kontrollkästchen Hilfe für Visual Basic markiert ist.

5.	Fahren Sie mit dem Setup-Programm fort.