Office: Word datei aus word heraus öffnen

System: Xp Sp3, Word 2007
Problem: Datei aus Word heraus automatisch öffnen.
Beschreibung:
Ich schreibe an mehreren Büchern gleichzeitig. Zu jedem Titel habe ich eine separate Word Datei in der Informationen zu dem Buch stehen um nicht ständig im Originaldokument hin und her scrollen zu müssen.
Wenn ich das zu bearbeitende Buch öffne, soll die Informationsdatei von Word automatisch nachgeladen werden.
Wir bekomme ich das hin?
Ich denke, dass es in VBA möglich sein müsste, aber ich finde keine Informationen darüber.
Es wäre schön wenn mir jemand helfen könnte.
Danke im Voraus.

 

Hallo,

wenn Du Dich im (Haupt)Word-Dokument befindest, zu dem Du beim Öffnen automatisch eine Word-Infodatei nachladen möchtest:
1) Öffne den VBA-Editor mit der Tastenkombination Alt+F11
2) Im Projekt-Explorer (Tastenkombination Strg+R)
unter dem Listeneintrag "Projekt ...." > Microsoft Word Objekte > ThisDocument
führst Du auf "ThisDocument" einen Doppelklick aus, um in das Codemodul dieses (Haupt)Worddokumentes zu gelangen.
3) Dort fügst Du folgenden VBA-Code ein:

Code:

Private Sub Document_Open()
  
   Application.Documents.Open FileName:="[COLOR="#0000CD"]I:\Pfad\InfoDateiname.docx[/COLOR]"

End Sub

Anstelle der blauen Dateipfadangabe musst Du natürlich den vollständigen Pfad zu Deiner Infodatei angeben, die nachgeladen werden soll. Die erste Codezeile "Private Sub Document_Open()" darfst Du jedoch auf keinen Fall abändern.
4) Mit der Tastenkombination Alt+F11 gehst Du wieder zurück ins Word-Dokument.
5) Das Ganze natürlich abspeichern (als *.doc oder *.docm) und schließen.
6) Wenn Du die (Haupt)Worddatei zB. im Windows-Explorer durch Doppelklick öffnest, wird automatisch als Zweitdatei die angegebene Infodatei nachgeladen.
7) Diesen Vorgang (Schritte 1) bis 5)) müsstest Du mit jeder (Haupt)Worddatei wiederholen, zu der Du eine Infodatei automatisch nachladen möchtest.

Wenn Du gern hättest, dass das Infodokument auch automatisch gespeichert und geschlossen wird, sobald das Hauptdokument geschlossen wird, müsstet Du anstelle des obigen den nachfolgenden Code eingeben/kopieren:

Code:

Public DocInfo As Document

Private Sub Document_Open()
  Dim HauptDoc As Document
  
  Set HauptDoc = ActiveDocument
  Set DocInfo = Application.Documents.Open(FileName:="[COLOR="#0000CD"]I:\Pfad\InfoDateiname.docx[/COLOR]")
  'Den folgenden Befehl nur, wenn das Hauptdokument nach dem Laden angezeigt werden soll:
  HauptDoc.Activate
  
End Sub

Private Sub Document_Close()

  DocInfo.Close SaveChanges:=True
  
End Sub

Nur musst Du dabei unbedingt beachten, dass Du vor dem Schließen der beiden Dokumente Dich im Hauptdokument befindest.

 

Hallo Anton Exl
Vielen Dank für deine Antwort. Funktioniert einwandfrei, genau das was ich gesucht habe.