Word Eingabefelder als Textfeld erstellen und in Macro Code vba abfragen

Word Code und Beispiel Vorlage Download unter:

Microsoft Office 365 Home (jetzt Microsoft 365 Family) multilingual | 6 Nutzer | Mehrere PCs / Macs, Tablets und mobile Geräte | 1 Jahresabonnement | Box von Microsoft Software

[BartZocktPictures]

Ein sehr gutes Video, falls es bei jmd. nicht geht kann das an einem Rich-Textfeld liegen, dann muss man einfach die Zeile

ElseIf word_ContentControl.Type = wdContentControlRichText Then
sText =

innerhalb der For Schleife einfügen, damit auch dieser Typ durchsucht wird.

[thomasjacob]

Hallo Herr Popp,

ich verfolge einige Ihrer Videos mit großem Interesse. Aktuell stehe ich vor einem konkretem Problem, zu dem ich bisher keine Lösung finden konnte.
Ich möchte per VBA verschiedene Textfelder aus einem Word-Dokument beim Speichern als Dateinamen verwenden (automatisch abspeichern) und habe dafür ein Makro (siehe unten) gebaut. D.h., ich hätte gern das Ergebnis, dass die Datei mit dem Namen abgespeichert wird. Ich verwende Word 2016. Mit den Dokumenteigenschaften klappt das. Beim Datumsfeld (Set Datum = mache ich irgendwas falsch. Das Datumsfeld ist ein Standardfeld über und dann auf das Format {DATE \@ "yyMMddhhmmss" \* MERGEFORMAT} angepasst. Das Dokument verwendet auch noch ein automatisches Inhaltsverzeichnis. Ich glaube, das Problem liegt darin, dem Rechner zu erklären, worauf er genau zugreifen soll. Kann mir jemand weiterhelfen, wie der Programmcode aussehen müsste, um das gewünschte Ergebnis zu erreichen?

Haben Sie hierfür einen Tipp?

Tausend Dank!

MfG
T. Jacob

Hier das Makro:

Sub Speichern()
'
' Speichern Makro
'
'


ChangeFileOpenDirectory "G:\User\Thomas\Dokumente"

Set Title =
Set Betreff =
Set Datum =
myFileName = Title.Value & "-" & Datum.Value & "_" & Betreff.Value & ".docx"

ActiveDocument.SaveAs2 FileName:=myFileName, FileFormat:= _
wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
:=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False, CompatibilityMode:=15


End Sub