Word auf Knopfdruck speichern (VBA)

Computer: Software & Programmierung Office Software
1

Hallo Wissende,

ich hab ein VBA Problem.
Ich habe ein Fornular, darin ist ein CommandButton.
Wird dieser Button gedrückt, so soll das Formular:

  1. Unter einem Namen abgespeichert werden, der in einem
    „Textformularfeld steht“ (Pfad ist immer der Gleiche!).
  2. Als Mail an eine Bestimmte Adresse gesendet werden (Auch immer die Gleiche).

In Excel hab ich denau das schon realisiert. In Word …???

Kann mir jemand helfen?

Danke…
Rudolf

2

Hi,
ich hatte gestern fast das selbe Problem, nur ohne Textfeld.
Aber so in der Art müsste es funktionieren:

Private Sub cmd_mail2_Click()
On Error GoTo Fehlermelden
Dim speicherort As String

speicherort = „c:\temp“ & ThisDocument.txt_textfeld.Value & „.doc“
ThisDocument.SaveAs speicherort

Dim OutLookJob As Object, E_Mail As Object
Set OutLookJob = CreateObject(„Outlook.Application“)

Set E_Mail = OutLookJob.CreateItem(0)
E_Mail.To = „[email protected]“
E_Mail.Subject = „Benutzerantrag“
E_Mail.attachments.Add speicherort
E_Mail.body = „Bitte um Bearbeitung dieses Benutzerantrages“ & Chr(13) & Chr(13)
E_Mail.Display
E_Mail.send
Set E_Mail = Nothing
Set OutLookJob = Nothing

MsgBox „Der Antrag wurde erfolgreich abgeschickt“, vbInformation, „Info“

Exit Sub

Fehlermelden:
MsgBox „Beim Versenden des Antrag trat ein Fehler auf.“ & Chr(13) & „Bitte versuchen Sie es erneut.“, vbExclamation, „Fehler“
End

End Sub

Gruß
Martin