Word Datei aus gleichem ordner öffnen
16.07.2014 09:50:55
Knoof
In meiner UserForm gibt es einen Button "Druck", wenn ich diesen betätige bekommen ich ein Fenster in dem ich meine Word datei auswählen kann die bearbeitet werden soll.
Allerdings soll die Word datei nicht vom User selbst ausgewählt werden.
Das Programm soll nach betätigen des "Druck" Buttons automatisch die Word Datei namens "Vorlage2.docx" öffnen, anstatt das diese erst manuell gewählt werden muss.
Pfad Angaben sind eher schlecht da dieses Programm von mehreren Usern genutzt werden soll und immer einen anderen Pfad haben kann, Programm und Vorlage liegen jedoch immer im selben Ordner.
Nun weiß ich nicht wie ich meinen vorhandenen Code darauf anpassen kann:
Sub dateiwählen()
Dim ResultFile As String
Dim ErrorDesc As String
Dim WindowName As String
On Error Resume Next
Set wdAnw = GetObject(, "Word.Application") 'Bestehende Word-Instanz suchen
Select Case Err.Number
Case 0 'OK
Case 429 'Es gibt soweit keine Word-Instanz
Err.Clear
Set wdAnw = CreateObject("Word.Application") 'Word-Instanz erzeugen
If Err.Number > 0 Then
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End If
Case Else 'Unerwarteter Fehler
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End Select
On Error GoTo 0
wdAnw.Visible = True 'Instanz sichtbar machen
wdAnw.WindowState = 0
'Je nach dem, ob das Dokument bereits geöffnet ist oder nicht wird verbunden
'bzw. geöffnet. Diese Differenzierung geschieht implizit.
On Error Resume Next
Set wdDok = wdAnw.Documents.Open(Filename:=sbrief)
If Err.Number > 0 Then 'Wenn Arbeitsmappe nicht existiert oder unerwarteter Fehler
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End If
On Error GoTo 0
BadOrHappyEnd Err.Number, Err.Description
' ElseIf checkspan.Value = False Then
' wdAnw.ActiveDocument.Bookmarks("Text2").Range.Fields(1).Result.Text = UserForm3.TextBox1. _
_
Value
' BadOrHappyEnd Err.Number, Err.Description
' End If
'Dokument unter neuem Namen speichern - Word 97 doc format
Ersatzwort = Format(txtprakvon & txtname)
'wdAnw.ActiveDocument.SaveAs Filename:=sbrief & Ersatzwort & ".doc", _
' FileFormat:=wdFormatDocument97
pfad = wdDok.Path
wdAnw.ActiveDocument.SaveAs Filename:=pfad & "/" & monatjahr & "_" & nname & "_" & _
Ersatzwort & ".doc", _
FileFormat:=wdFormatDocument97
'Serienbrief Vorlage schliessen - ohne zu speichern
wdDok.Close SaveChanges:=wdDoNotSaveChanges
'Word App schliessen
Set wdDok = Nothing
wdAnw.Quit
Set wdAnw = Nothing
Application.ScreenUpdating = True
End Sub