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!
Seite 1 von 1
geöffnete Word-Dokumente formatieren über VB
Anzeige
#2 _der dom_
geschrieben 20. August 2011 - 14:51
Bin mir nicht sicher ob das mit VBA funktioniert...
Wenn, dann sollte das mit einer Schleife funktionieren die automatisch jedes einzelne Doc in den Focus setzt und dir dann die Formatierung setzt....so in etwa müsste das gehen.
Wenn, dann sollte das mit einer Schleife funktionieren die automatisch jedes einzelne Doc in den Focus setzt und dir dann die Formatierung setzt....so in etwa müsste das gehen.
#3
geschrieben 24. November 2011 - 11:49
Ich kann dir sagen, wie es bei Excel geht.
Damit mache ich eine Menge von Dokumenten auf, bearbeite die und mache sie wieder zu. Bei Word dürfte es vergleichbar ähnlich gehen.
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.
Most rethrashing{
DiskCache=AllocateMemory(GetTotalAmountOfAvailableMemory);}
DiskCache=AllocateMemory(GetTotalAmountOfAvailableMemory);}
Thema verteilen:
Seite 1 von 1