locked
ajuda com macro RRS feed

  • Pergunta

  • presiso fazer um script para executar EX tenho um documento fabio.doc ele sempre é alterado e quero fazer um script que quando eu execute o script ele pegue o arquivo fabio.doc C:/fabio.doc e coloque a fonte desse arquivo com tamanho 10 alguem sabe como fazer isso ?????
    sábado, 17 de julho de 2010 20:36

Todas as Respostas

  • Olá,

     

    você pode usar um código mais ou menos como este a seguir. Ele pode ser acionado dentro do próprio documento, ou então ser alterado para que seja chamado a partir de uma aplicação externa (que chama o Word por meio de automação).

    Option Explicit
    
    Private WithEvents wdApp As Word.Application
    
    Private Sub Document_Open()
    
    On Error GoTo ErrHandler
    
    Set wdApp = ThisDocument.Application
    
    ExitHere:
    Exit Sub
    
    ErrHandler:
    MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "Document_Open"
    Resume ExitHere
    End Sub
    
    Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
    Dim prg As Paragraph
    
    On Error GoTo ErrHandler
    
    For Each prg In ThisDocument.Paragraphs
      prg.Range.Font.Size = 10
    Next prg
    
    ExitHere:
    Exit Sub
    
    ErrHandler:
    MsgBox Err.Description & vbCrLf & Err.Number & vbCrLf & Err.Source, vbCritical, "wdApp_DocumentBeforeSave"
    Resume ExitHere
    End Sub

     


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    domingo, 18 de julho de 2010 14:58
    Moderador
  • isso ai cara valeuuu, porem tipo salvo esse codigo onde cara iso que nao entendo EX crio um arquivo .bat alguma coisa do tipo ??????
    domingo, 18 de julho de 2010 16:59
  • Esse código foi escrito para ser usado dentro do Word. Você pode criá-lo em outros lugares, como numa aplicação .NET, ajustando apenas a sintaxe conforme a linguagem de programação da ferramenta que você escolher.

     

    Se você quer ficar monitorando uma pasta, pode criar um serviço para o Windows com o Visual Studio.NET, que é uma solução mais complexa. Outra alternativa, mais simples, é criar o código num documento do Word, deixar este documento na pasta que quer monitorar, adaptar a rotina para verificar a data de atualização de todos os demais documentos da pasta e usar o agendador do Windows para abrir o arquivo periodicamente.


    Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br
    terça-feira, 20 de julho de 2010 01:12
    Moderador