alguem

[digonaum 0]

TENHO UMA DUVIDA SOBRE COMO CRIAR UMA MACRO Q ABRA MAIS DE UM ARQUIVO E SALVE-OS. OLHEM OQ EU JA FIZ...SO FUNCIONA PRA UM...AGRADEÇO QUALQUER AJUDA...' ******************************************************************************' C:\DOCUME~1\User\CONFIG~1\Temp\swx3304\Macro1.swb - macro recorded on 08/08/06 by Projetos' ******************************************************************************Dim swApp As ObjectDim Part As ObjectDim SelMgr As ObjectDim boolstatus As BooleanDim longstatus As Long, longwarnings As LongDim Feature As ObjectSub main()Set swApp = Application.SldWorksARQ = "C200"NOMEARQORIG = "\\F1srvpro\Projetos\OT-891_CORPO 040201B\PROJETO\PROJETO_2D\SWKS\VERSÃO A_3(13-07-2006)\" & ARQ & ".SLDDRW"NOMEARQFINAL = "\\F1srvpro\Projetos\OT-891_CORPO 040201B\PROJETO\PROJETO_2D\SWKS\VERSÃO A_3(13-07-2006)\" & ARQ & ".DWG"Set Part = swApp.OpenDoc6(NOMEARQORIG, 3, 0, "", longstatus, longwarnings)' Set Part = swApp.ActivateDoc2("P2 - Sheet1", False, longstatus)swApp.ActiveDoc.ActiveView.FrameLeft = 0swApp.ActiveDoc.ActiveView.FrameTop = 0swApp.ActiveDoc.ActiveView.FrameState = 1swApp.ActiveDoc.ActiveView.FrameState = 1swApp.SetUserPreferenceToggle 305, 1Part.SaveAs2 NOMEARQFINAL, 0, True, FalseSet Part = Nothing'swApp.CloseDoc "P2 - Sheet1"End Sub

[Luizgrs 0]

Primeiro: http://forum.imasters.com.br/index.php?act=Help

 

 

 

Já para seu problema, você precisa de uma estrutura de repetição:

For x=1 to 5 'vai fazer o bloco de instruções 5 vezes 'instruçõesNext x

while condicao 'enquanto a condição for verdadeira ele executa as instruções  'instrucoeswend

Tem outras, dá uma pesquisada ^^