Arquivo da categoria: VBA

Macro para criar cópias de segurança automaticamente ao sair do Word

‘ Macro para sempre manter uma cópia de segurança‘ Colocar este código em normal / módulo1 Function FazerCopiaS()‘‘ Macro1 Macro‘ Macro gravada 15/10/2011 por Cliente‘    Set fs = CreateObject(“Scripting.FileSystemObject”)        CaminhoDocumento = fs.buildpath(ActiveDocument.Path, ActiveDocument.Name)    CaminhoCopiaS = fs.buildpath(“D:\SuaPasta\Minhas Cópias de Segurança”, … Continuar lendo

Publicado em Macro, VBA, Word | Deixe um comentário

Macro VBA para colar especial no Word

‘ Macro para colar somente texto.‘ Por que o gravador de macro do winword não registra esta ação com precisão. Sub PasteUnfText()    On Error GoTo oops    Selection.PasteSpecial _    DataType:=wdPasteText, _    Placement:=wdInLine    Endoops:BeepEnd Sub Fonte: http://www.gmayor.com/word_vba_examples.htm

Publicado em Macro, VBA, Word | Deixe um comentário

Macro para Excel – Elimina linhas repetidas

Sub EliminarLinhasRepetidas() ‘ Macro para Excel ‘ Elimina linhas repetidas. ‘ As linhas devem estar classificadas. ‘ Vantagem: bem mais rápida do que a anterior ‘ Criador: *codes***@gmail.com – *codes***@yahoo.com.br contador = 0 valor = ActiveCell.Value ActiveCell.Offset(1, 0).Range(“A1”).Select While ActiveCell.Value … Continuar lendo

Publicado em Excel, VBA | Deixe um comentário

Exemplo de Macro em VBA para apagar linha indesejada Word

‘ Apaga todas as linhas que contiverem a palavra definida pela variável ‘txtLinha’ Sub LimparCatalogo()‘‘ LimparCatalogo Macro‘ Macro gravada 18/6/2011 por Cliente‘ txtLinha = “@gmail.com” Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = txtLinha .Replacement.Text = “” .Forward = True .Wrap = … Continuar lendo

Publicado em Macro, VBA, Word | Deixe um comentário

Delay no VBA

: Macro VBA; Dá um delay de cinco segundos e continua executando o código Sub Intervalo() Dim StartTime As Date StartTime = Now Do While DateDiff(“s”, StartTime, Now) 5 Loop MsgBox “Foi dado um Delay de cinco segundos.” End Sub

Publicado em Programação, VBA | 2 Comentários