Ich habe bereits folgenden Text per E-Mail an einige Experten verschickt und leider noch keine befriedigende Antwort erhalten aus diesem Grund schreibe ich diese Frage anders Experten Forum in der Hoffnung dass sich jemand damit auskennt und mir weiterhelfen kann.
»ich suche seit langem eine Ausführliche Erklärung zu folgendem VBA
Script, da ich keinerlei erfahrung habe bitte ich Sie hiermit mir zu
helfen. Oder mir helfen dieses VBA Script meinen Bedürfnissen
anzupassen.
Passieren soll folgendes:
das script soll in dem ordner (D:\documents\correspondence\2003) die
„.doc“ dateien zählen und im Brief die Zahl der Dokumente +1
ausgeben.
Beim speichern soll mein kürzel (fd 03-) und die Zahl (bsp. 0001)
automatisch als Speichername vergeben werden.
===>
Public Sub EDVNrErstellen()
Dim x$
Dim AktVerz$
Dim a$
Dim Anzahl
Dim Zahl
Dim Zahl_$
WordBasic.WW7_EditGoTo Destination:=„Betreff“ 'Betreff
anspringen
WordBasic.CharLeft 1
WordBasic.CharRight 3, 1
WordBasic.EditCopy
WordBasic.EditBookmark Name:=„ser“, SortBy:=0, Add:=1
x$ = WordBasic.GetBookmark$
Rem Makro Dialogbox Verzeichnisse ausführen
WordBasic.ToolsMacro Name:=„DialogboxVerzeichnisAuswahl“, Run:=1,
Show:=0,
Description:="", NewName:=""
AktVerz$ = WordBasic.Files$
a$ = WordBasic.[Files$](x$ + „-???.doc“)
Anzahl = 1
While a$ „“
Anzahl = Anzahl + 1
a$ = WordBasic.Files$
Wend
WordBasic.WW7_EditGoTo Destination:=„EDVNummer“ 'EDV-Nr
anspringen
WordBasic.Insert "EDV-Nr.: "
Zahl = (Anzahl)
Zahl_$ = WordBasic.LTrim$
WordBasic.AllCaps 1
If Zahl