Como bloquear a impressão no Microsoft Word


 

By Marco Aurélio

 

Crédito especial: Adelson Rosendo

 

 

Olá pessoal!!

 

Esse POST é dedicado a um leitor que solicitou os procedimentos para “bloquear” a impressão no Word.

Como não é tão simples assim e na resposta do comentário ficaria um tanto restrito devido a quantidade de caracteres, resolvi criar esse passo a passo para que fique visível a todos.

 

Baixe o arquivo que se encontra no meu SkyDrive a partir do link: http://sdrv.ms/1aJNJZs

 

Esse documento já está com o código desenvolvido (Figura 1) bastando copiar e colar os códigos no outro arquivo (ou exportar o arquivo e realizar o processo inverso no outro documento).

 

Figura 1 – Procedimento para se bloquear a impressão no Microsoft Word

 

Eu poderia detalhar todos os pormenores desse código mas acredito que não é o caso.

 

Por esse motivo, solicito que a quem possa interessar, baixe o arquivo proposto acima, copie o código e faça a adaptação no seus documentos.

 

Boa sorte e até a próxima!

 

MAC

Anúncios

Alterando o código de área de um Contato do Outlook via VBA


Esse código realiza a seguinte operação: Imaginando que você tenha um celular TIM onde os números em sua agenda estejam gravados com o código 41 e você trocou de operadora, por exemplo a CLARO e necessita que o código seja alterado para 21 (Embratel).

Execute o código abaixo e troque o número dos seus contatos automaticamente. Faça os devidos ajustes para qualquer operadora e códigos:

==========================

Private Sub AlteraContatos()

    Dim items As items, item As ContactItem, folder As folder

    Dim contactItems As Outlook.items

    Dim itemContact As Outlook.ContactItem

    Dim Count As Integer

    Set folder = Session.GetDefaultFolder(olFolderContacts)

    Set items = folder.items

    Count = items.Count

    If Count = 0 Then

        MsgBox “Nothing to do!”

        Exit Sub

    End If

    ‘Filter on the message class to obtain only contact items in the folder

    Set contactItems = items.Restrict(“[MessageClass]=’IPM.Contact'”)

    For Each itemContact In contactItems

       itemContact.BusinessTelephoneNumber = “(11) 4545-5031”

       itemContact.MobileTelephoneNumber = Replace(itemContact.MobileTelephoneNumber, “855”, “041”)

       itemContact.Save

    Next

    MsgBox “Your contacts have been re-filed.”

End Sub

=================


Para a conclusão desse POST contei com a ajuda do Programador Marcelo Santos (Mondial Tecnologia).

Até a próxima!

MAC