Office: Dateien vorab auf Serienbrief überprüfen

Hallo,
ich habe eine größere Menge an u.a. Word- Dateien zu verschieben. Ich habe diese Dateien nicht erstellt. Kann ich im Vorfeld überprüfen, ob es sich um Dateien mit Serienbrieffunktion handelt, ohne jede einzeln zu öffnen?

Danke und Gruß

 

Keine Ahnung, ob das noch aktuell ist. Kennst du dich ein wenig mit VBA aus? Dann kannst du das mal versuchen:

Code:

Sub testSB()
Dim dd1 As Document

Dim fD As FileDialog
Application.DisplayAlerts = False

Set fD = Application.FileDialog(msoFileDialogFilePicker)

 Dim vrtSelectedItem As Variant
 

 With fD

 If .Show = -1 Then
 
 For Each vrtSelectedItem In .SelectedItems
 
Set dd1 = GetObject(vrtSelectedItem)

 If dd1.MailMerge.Fields.Count = 0 Then
 Else
 MsgBox "das ist ein SB" & dd1.Name
 End If
 dd1.Close
 Set dd1 = Nothing
 Next vrtSelectedItem

 Else
 End If
 End With
 
 Set fD = Nothing
 
Application.DisplayAlerts = True




End Sub

Nervig daran ist nur, wenn eine Datenquelle nicht gefunden wird, dann muss man den Dialog der aufpoppt abbrechen.

 

Ja, vielen Dank. Ich werde es mal testen.

Danke nochmal