Arquivo do mês: dezembro 2011

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