La meua versió del codi de Bill Coan (veg. Microsoft Word MVP FAQ Site) per a alçar un document en un directori determinat (i amb una proposta de nom que cal completar), és:
Sub ArxivaDoc() ' '17.06.2019. Esta macro alça els documents en la carpeta ... 'i proposa un nom (i una extensió) que cal completar ' 'On Error GoTo eixida Dim AlçaQtria As Dialog Set AlçaQtria = Dialogs(wdDialogFileSaveAs) With AlçaQtria .Name = "D:\***\***.doc" If .Display Then 'Alça el document seguint les preferències previstes AlçaQtria.Execute End If End With eixida: End Sub
Com que a estes altures ja controle un poc també això de fer-ho un poc més bonic, li he fet un quadret de tria per a anar a les dos opcions de directori possibles que necessitava. Les opcions les he generades en dos macros sobre el codi anterior. Segur que es podria fer tot en una macro, però de moment no m'he entretingut reduint-ho, perquè ja funcionava bé. El refinament estètic i informàtic, un poc més avant.
Cap comentari:
Publica un comentari a l'entrada