[ziklon]

Hallo,

ich habe eine Prozedur die mir alle aktuell geöffneten Word-Dokumente formatieren soll.

Dies klappt aber nur bei dem Dokument über welches ich das Makro ausführe.

Hier meine Prozedur:

Documents.WholeStory
Documents.FontSize = 6

Kann mir jemand weiterhelfen?

Wäre darüber sehr dankbar!

[Kirill]

Ich kann dir sagen, wie es bei Excel geht.

Option Explicit
Dim Makroname As String
Sub Serienbearbeitung()
Makroeingabe:
Makroname = InputBox("Welches Makro soll mehrfach ausgeführt werden?" & vbNewLine & vbNewLine & "Achtung, alle geöffneten Arbeitsmappen werden geschlossen!")
If Makroname = "" Then Exit Sub
Alle_Arbeitsmappen_schliessen (False)
Oeffne_Arbeitsmappen
Geoeffnete_Arbeitsmappen_bearbeiten
Alle_Arbeitsmappen_schliessen (True)
End Sub

Private Function Geoeffnete_Arbeitsmappen_bearbeiten()
On Error GoTo ErrMsg
Dim wbkWorkbook As Workbook
For Each wbkWorkbook In Application.Workbooks
If wbkWorkbook.Name <> "PERSONAL.XLSB" Then
wbkWorkbook.Activate
Application.Run "PERSONAL.XLSB!" & Makroname
End If
Next wbkWorkbook
Exit Function
ErrMsg:
MsgBox ("Makro " & Makroname & " exestiert nicht.")
End Function

Private Function Alle_Arbeitsmappen_schliessen(save As Boolean)
Dim wbkWorkbook As Workbook
For Each wbkWorkbook In Application.Workbooks
If wbkWorkbook.Name <> "PERSONAL.XLSB" Then
wbkWorkbook.Close SaveChanges:=save
End If
Next wbkWorkbook
End Function

Private Function Oeffne_Arbeitsmappen()
Dim varWorkbooks As Variant
Dim varWorkbook As Variant
varWorkbooks = Application.GetOpenFilename(FileFilter:="Excel-Dateien (*.xls;*.xlsx), *.xls;*.xlsx", MultiSelect:=True)
If IsArray(varWorkbooks) Then
For Each varWorkbook In varWorkbooks
Workbooks.Open varWorkbook
Next varWorkbook
End If
End Function

Damit mache ich eine Menge von Dokumenten auf, bearbeite die und mache sie wieder zu. Bei Word dürfte es vergleichbar ähnlich gehen.