Buenos dias:

Hola estoy realizanco una macro global que me permite desglosar unos certificados imprimirlos y guardarlos, el problema es que tengo que guardarlos en una carpeta en especifico (solucionado), pero el nombre tiene que seguir ciertas normas, tiene que llevar este formato: 2012-0001-XXX , en los puntos suspensivos va las iniciales del instructor. Esta macro la estoy realizando en Word, pero busco en foros de excel porque encuentro mejores soluciones aplicables a este tema....

Para resumir, necesito me ayuden con el contador de 0001.... que necesito guarde el archivo con ese nombre, y al volver a utilizar la macro se grabe como 0002 y asi sucesivamente cada vez que se use la macro.

Y segundo si pudieran ayudarme con la 3era parte del nombre del archivo... yo vi que seria necesario un buscador de texto, asi por ejemplo busque el texto "Fernando Pacheco" y si lo encuentra le asigne a la variable XXX la denotacion FP.

Espero su colaboracion, les copio mi macro.

Sub Desglosar()

'

' Desglosar Macro

' Macro creada el 30/01/2012 por kpo*enfer

'

With ActiveDocument.MailMerge

.Destination = wdSendToNewDocument

.SuppressBlankLines = True

With .DataSource

.FirstRecord = wdDefaultFirstRecord

.LastRecord = wdDefaultLastRecord

End With

.Execute Pause:=False

End With

ActiveDocument.PrintOut

Options.PrintBackground = False

Dim X As Integer

ruta = "C:\Documents and Settings\practicante1geo\Escritorio\certificados\Certificados\"

X = X + 1

Codigo = Format(X, "0000")

archivo = "2012 - " & Codigo & vendedor

ActiveDocument.SaveAs ruta & archivo & ".doc", FileFormat:= _

wdFormatDocument, LockComments:=True, Password:="", AddToRecentFiles:= _

True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _

False, SaveNativePictureFormat:=False, SaveFormsData:=False, _

SaveAsAOCELetter:=False

Windows("PLANTILLA CERTIFICADOS").Activate

ruta1 = "C:\Documents and Settings\practicante1geo\Escritorio\certificados\"

ActiveDocument.SaveAs ruta1 & "PLANTILLA CERTIFICADOS.doc", FileFormat:=wdFormatDocument, _

LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _

:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _

SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _

False

Application.Quit

End Sub

Saludos, espero su pronta respuesta.

Fernando Pacheco

Con las variables que le asigne a codigo, esperaba el contador empieze, pero no lo hace, solo se graba encima y no cambia a 0002.

Necesitaba darles esa aclaracion, y con la parte de vendedor, que vendria a ser XXX, no se que codigos usar, creo que un IF podria servir, pero no se como emplearlo bien, saludos.

Siempre te va salir X = 1 porque cada vez que inicies el macro, al principio X = 0 por defecto, le suma 1, y rellena el archivo.

Pero una vez acaba, el macro, la variable "X" se borra.

Se me ocurre que para que eso no ocurra, pegues el valor de "X" en una celda de una de las hojas, por ejemplo:

...

Dim X As Integer

ruta = "C:\Documents and Settings\practicante1geo\Escritorio\certificados\Certificados\"

X = Sheets("Hoja1").Cells(1,1).Value + 1

Sheets("Hoja1").Cells(1,1).Value = X

Codigo = Format(X, "0000")

archivo = "2012 - " & Codigo & vendedoryo lo que haría sería guardar el valor de "X" en una celda

....

de esta forma, cada vez que inicies el macro, la celda A1 de la "Hoja1" aumentará de valor una unidad, y la variables "X" cogerá el valor de esa celda

El problema es que como te mencione arriba la macro esta en WORD, y la idea de asignar un valor X me parece interesante, esto creo que se podria hacer insertando el valor X dentro de un cuadro de texo, sin lines sin relleno y con letras blancas, de este modo seria invisible y se podria utilizar, creo con el complemento que e puesto se podria hacer, el problema es los codigos para el autollenado de un cuadro de texto en word. Gracias por la respuesta

Como les mencione en la respuesta anterior, intente poder vincular la varibale X a un cuadro de texto, a una tabla y a un texto en el documento, y no puedo asignarle una variable a lo que selecciono, alguien me podria ayudar con eso? creo que esa logica es buena, pero no se como realizarla, en todo caso otro planteamiento seria el de buscar ese archivo en el sistema y si lo encuentra k sume 1 al X.

Respecto a lo de las iniciales me pasa algo parecido, grabo una macro como buscar y me aparece y selecciona lo k encuentra,

y me da una macro asi:

Selection.Find.ClearFormatting

With Selection.Find

.Text = "a"

.Replacement.Text = ""

.Forward = True

.Wrap = wdFindContinue

.Format = False

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False

End With

y no c como hacer para que tome como una variable A lo k encuentra, de poder hacer eso, solo pondria If A= "Fernando Pacheco" then vendedor = "FP" y esa parte estaria solucionada.

Este fue mi avance, y me falta su ayuda con los codigos y orden,

espero su respuesta

saludos,