|
Hallo Zusammen
Ich habe eine kleine Frage.
Ich hab im Word VBA gemacht zum auswählern von 5 Verschidenen Vorlagen.
Die frage ist wir haben in der firma 5 Benutzer die die Vorlagen benutzen.
Kann man was machen das alle Benutzer das haben??
Code
Public opt As Integer
Private Sub CommandButton1_Click()
Unload UserForm 'Formular ausblenden
'Datei nach auswahl öffnen
Select Case opt
Case 1
Documents.Open FileName:="\\1.0.0.0\Test\Word_Vorlagen\Test1.docx"
Case 2
Documents.Open FileName:="\\1.0.0.0\Test\Word_Vorlagen\Test2.docx"
Case 3
Documents.Open FileName:="\\1.0.0.0\Test\Word_Vorlagen\Test3.docx"
Case 4
Documents.Open FileName:="\\1.0.0.0\Test\Word_Vorlagen\Test4.docx"
Case 5
Documents.Open FileName:="\\1.0.0.0\Test\Word_Vorlagen\Test5.docx"
Case Else
m = MsgBox("keine Auswahl getroffen", vbInformation)
Cancel = True
End Select
End Sub
Private Sub CommandButton2_Click()
Unload UserForm
Cancel = True
End Sub
Private Sub OptionButton1_Click()
opt = 1
End Sub
Private Sub OptionButton2_Click()
opt = 2
End Sub
Private Sub OptionButton3_Click()
opt = 3
End Sub
Private Sub OptionButton4_Click()
opt = 4
End Sub
Private Sub OptionButton5_Click()
opt = 5
End Sub
Private Sub OptionButton6_Click()
End Sub
|