Word-Datei mit VBA suchen lassen (Word 2007)

Computer: Software & Programmierung Office Software
1

Hallo Zusammen,

ich habe folgendes Anliegen.
Ich habe ein geöffnetes Word-Dokument. Dort gibt es eine 5-stellige Zahl welche mit „3“ beginnt (kann jedesmal auch eine andere Zahl sein welche mit „3“ beginnt). Nun soll dieses Word-Dokument automatisch im Ordner C:\Berichte gespeichert werden und zwar mit dieser 5-stelligen Zahl als Dateiname (z.B. als „31335.doc“).
Falls in dem Ordner C:\Berichte bereits eine Datei mit der 5-stelligen Zahl existiert, soll das Dokument nicht gespeichert werden, sondern eine kurze Meldung erscheinen und das Makro beendet werden.

Für die Lösung meines Problems bin ich schon jetzt sehr Dankbar.

Gruß
Roland

2

Hallo Roland,

Ich habe ein geöffnetes Word-Dokument. Dort gibt es eine
5-stellige Zahl welche mit „3“ beginnt (kann jedesmal auch
eine andere Zahl sein welche mit „3“ beginnt). Nun soll dieses
Word-Dokument automatisch im Ordner C:\Berichte gespeichert
werden und zwar mit dieser 5-stelligen Zahl als Dateiname
(z.B. als „31335.doc“).

gibt es in dem Dokument IMMER nur EINE Ziffernfolge, die fünfstellig ist und mit 3 beginnt?

Falls in dem Ordner C:\Berichte bereits eine Datei mit der
5-stelligen Zahl existiert, soll das Dokument nicht
gespeichert werden, sondern eine kurze Meldung erscheinen und
das Makro beendet werden.

Das müßte in Word (ungetestet) so gehen:

strZahl="31335"
If Dir("C:\Berichte\ & strZahl & ".doc") "" Then
 Msgbox "Nix da, Datei existiert schon"
Else
 ActiveDocument.SaveAs "C:\Berichte\ & strZahl & ".doc"
 ActiveDocument.Close Savechanges:=False
End If

Gruß
Reinhard

3

Hallo Reinhard,

bis auf ein paar " hat alles super geklappt. Vielen Dank!
Da nun in Office2007 das „FileSearch“ nicht mehr vorhanden ist (außer in der Office2007-Hilfe!?) musste ich nach einer Alternative fragen.

Viele Grüße
Roland