Hi,
aus Access heraus möchte ich ein Formular in Word (2016) erstellen.
Bis zum Speichern klappt das auch prima.
Ich möchte folgendes gerne erreichen:
Wenn ein Ordner mit dem Nachnamen ("Meier") schon existiert, dann soll das erstellte Word-Formular dort unter sDatei ("Meier_AAFormular.docx") gespeichert werden.
Wenn kein Ordner mit dem Nachnamen ("Meier") existiert, dann soll in strPfad("C:\Formulare\) ein neuer Ordner angelegt und die Datei unter sDatei ("Meier_AAFormular.docx") gespeichert werden.
_______________________________________________________
Dim o_NewWord, doc As Object
Dim strPfad, sDatei, NName As String
Set o_NewWord = CreateObject("Word.Application")
o_NewWord.Visible = True
o_NewWord.Documents.Add
With o_NewWord.Selection
'Einrücken 23
.Font.Name = "Candara"
.Font.Bold = True
.Font.Size = 13
.TypeText Text:= vbTab & "Formular" & vbLf & vbLf
.TypeText Text:=""......................
.....
.....
strPfad="C:\Formulare\"
NName= Forms!fm_MA_Daten!Nachname
sDatei=NName & "_AAFormular.docx"
_______________________________________________________
Bin für jede Hilfe dankbar.
BW
aus Access heraus möchte ich ein Formular in Word (2016) erstellen.
Bis zum Speichern klappt das auch prima.
Ich möchte folgendes gerne erreichen:
Wenn ein Ordner mit dem Nachnamen ("Meier") schon existiert, dann soll das erstellte Word-Formular dort unter sDatei ("Meier_AAFormular.docx") gespeichert werden.
Wenn kein Ordner mit dem Nachnamen ("Meier") existiert, dann soll in strPfad("C:\Formulare\) ein neuer Ordner angelegt und die Datei unter sDatei ("Meier_AAFormular.docx") gespeichert werden.
_______________________________________________________
Dim o_NewWord, doc As Object
Dim strPfad, sDatei, NName As String
Set o_NewWord = CreateObject("Word.Application")
o_NewWord.Visible = True
o_NewWord.Documents.Add
With o_NewWord.Selection
'Einrücken 23
.Font.Name = "Candara"
.Font.Bold = True
.Font.Size = 13
.TypeText Text:= vbTab & "Formular" & vbLf & vbLf
.TypeText Text:=""......................
.....
.....
strPfad="C:\Formulare\"
NName= Forms!fm_MA_Daten!Nachname
sDatei=NName & "_AAFormular.docx"
_______________________________________________________
Bin für jede Hilfe dankbar.
BW