Hyperlinks auf Dokumentenvorlage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Halo Tobi,
wenn man statt mit Hyperlinks mit dem Selection-Change Ereignis arbeitet, dann kann man in Word bzw. Excel jeweils neue Dokumente auf Basis der Vorlagen anlegen. Der vollständige Dateiname inkl. Pfad muss dann als Zellinhalt hinterlegt werden.
Kleines Handicap bei meiner Lösung, es muss noch sichergestellt sein, dass Word bereits geöffnet ist. Im einfachsten Fall eine entsprechende MsgBox für den Anwender einbauen.
Problem ist ggf. der Laufwerksbuchstabe für die Vorlagen, wenn die Rechner der Anwender nicht einheitlich konfiguriert sind.
Gruß
Franz


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wb As Workbook, dok As Word.document
'Verweis auf Microsoft Word x.y Object Library muss aktiviert sein
If Target.Column = 1 And Target.Row > 17 And Target.Value  "" Then
If Dir(Target.Value)  "" Then
Select Case LCase(Right(Target, 3))
Case "dot"
'hier ggf. prüfung einbauen, das Anwendung Word geöffnet ist
Set dok = Word.documents.Add(Template:=Target.Value)
VBA.AppActivate ("Microsoft Word")
Case "xlt"
Set wb = Workbooks.Add(Template:=Target.Value)
wb.Activate
End Select
Else
MsgBox "Dokumentvorlage: " & vbLf & Target.Value & vbLf _
& "konnte nicht gefundene werden."
End If
End If
End Sub

Hallo Tobias,
du muss für die Datei in der das Makro gespeichert ist im Excel-VBA-Editor unter Extras--Verweise den Verweis auf die "Microsoft Word x.y Object Library" aktivieren.
Wie du das Problem mit den unterschiedlichen Verzeichnisstrukturen in den Griff bekommst (sollte eigentlich "nur" der Laufwerksbuchstabe sein) weiss ich nicht genau. Die Verzeichnisse im Netzwerk sollten eigentlich auch unter ihrer Originalbezeichnung ansprechbar sein. Sprich mal mit deinem System-Administrator.
Falls sich die Zahl der Anwender und deren Spieltrieb in Grenzen hält dann kann man zur Not in einer Select Case Anweisung den Pfad abhängig vom Usernamen festlegen. Dies sollte aber nur der letzte Notnagel sein.
In der Firma, bei der ich arbeite, hat man es so gelöst, dass alle Dokumentvorlagen im Netzwerk in einem Verzeichnis mit einigen Unterverzeichnissen gespeichert sind. Auf allen Anwender-PC ist dann der gleiche Laufwerksbuchstabe (z.B. R) mit diesem Verzeichnis verknüpft. So kann man auch bei entsprechender Einstellung unter Optionen via Menü--Datei--Neu oder zum Einfügen von Tabellen-/Diagrammblättern auf diese Vorlagen zugreifen.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread