ciao,
intanto ti ringrazio per il tuo interesse!
dunque da quanto mi chiedi mi pare di capire che tu opteresti per ampliare la macro che ho creato io in modo che da sola possa applicarsi a tutti i file di una cartella, ho capito bene?
io in realtà pensavo ad una cosa un pelino diversa, cioè:
io uso molto Photoshop e in Photoshop mi creo le mie azioni (che sono delle macro)
Poi posso decidere di applicare una data azione (quella che preferisco) ad un gruppo di file (che siano essi i file aperti in Photoshop in quel momento oppure i file contenuti in una cartella)
Questo mi consente di poter decidere, per esempio, di applicare l'azione1 alla cartella 1, azione2 alla cartella2 e così via
Il tutto da un menu di photoshop.
Ora mi rendo conto che i 2 software non hanno nulla in comune, ma mi chiedevo se esistesse un modo per applicare una macro a scelta tra 5 o 6 ad una data cartella, quindi una macro che lancia altre macro applicandole a specifiche cartelle.
Nel caso non si potesse fare, pazienza, allora si potrebbe provare ad incrementare il codice.
Intanto allego il codice di una macro (che in sostanza cambia la formattazione):
Sub Distinte()
'
' Distinte Macro
'
'
WordBasic.TogglePortrait Tab:=3, PaperSize:=0, TopMargin:="2", _
BottomMargin:="2", LeftMargin:="2.5", RightMargin:="2", Gutter:="0", _
PageWidth:="27.94", PageHeight:="21.59", Orientation:=1, FirstPage:=0, _
OtherPages:=0, VertAlign:=0, ApplyPropsTo:=0, FacingPages:=0, _
HeaderDistance:="1.27", FooterDistance:="1.27", SectionStart:=2, _
OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=1, LineNum:=0, _
StartingNum:=1, FromText:=wdAutoPosition, CountBy:=0, NumMode:=0, _
TwoOnOne:=0, GutterPosition:=0, LayoutMode:=0, CharsLine:=45, LinesPage:= _
44, CharPitch:=220, LinePitch:=299, DocFontName:="+Body Asian", _
DocFontSize:=11, PageColumns:=1, TextFlow:=0, FirstPageOnLeft:=0, _
SectionType:=1, FolioPrint:=0, ReverseFolio:=0, FolioPages:=1
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(2)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.27)
.FooterDistance = CentimetersToPoints(1.27)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(1.27)
.BottomMargin = CentimetersToPoints(1.27)
.LeftMargin = CentimetersToPoints(1.27)
.RightMargin = CentimetersToPoints(1.27)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.27)
.FooterDistance = CentimetersToPoints(1.27)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
Selection.PageSetup.TopMargin = CentimetersToPoints(2)
Selection.WholeStory
Selection.Style = ActiveDocument.Styles("Normal")
Selection.ParagraphFormat.LineSpacing = LinesToPoints(1)
WordBasic.OpenOrCloseParaBelow
Selection.Font.Name = "Courier New"
Selection.Font.Size = 8
With ActiveDocument.Styles(wdStyleNormal).Font
If .NameFarEast = .NameAscii Then
.NameAscii = ""
End If
.NameFarEast = ""
End With
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientLandscape
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(1.27)
.LeftMargin = CentimetersToPoints(0.9)
.RightMargin = CentimetersToPoints(0.9)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.27)
.FooterDistance = CentimetersToPoints(1.27)
.PageWidth = CentimetersToPoints(29.7)
.PageHeight = CentimetersToPoints(21)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
End With
ActiveDocument.Save
ActiveDocument.Close
End Sub
