Apaixonado por tecnologia. Trabalho com tecnologia desde 2003.

Saiba mais sobre minha vida profissional aqui .

Fale comigo.
Siga-me no Twitter
Ultimos comentários
Calendário de Posts
<<  novembro 2017  >>
stqqssd
303112345
6789101112
13141516171819
20212223242526
27282930123
45678910

Siga o @DicaDoNerd no Twitter e acompanhe as novidades


Eu utilizo o BlogEngine 1.6 e cada vez mais gosto dele, tanto pela facilidade de administração, personalização e principalmente a facilidade da publicação de artigos.

Estou utilizando o Word para publicar este artigo e sem esforço nenhum é assumido todo o estilo (css) que utilizo em meu site.

Conto com diversos benefícios do Word, embora a maioria das vezes eu utilize o Windows Liver Writer para escrever meus Posts, pois, consigo customizar facilmente os plug-ins para inserção de formatação de códigos, vídeos, imagens e etc.

Vou mostrar de forma não muito abrangente como publicar um post utilizando o Microsoft Word.

Abra o Word e selecione a opção “Novo” e depois “Nova Postagem no blog”, como informado na figura abaixo.

 Blog

clip_image002

 

 

 O Word solicitará a configuração do seu blog. O Word poderá conectar-se a vários providers, como o Live Spaces e Blogger por exemplo.

Você deverá selecionar o seu provider do B log. Como utilizo o BlogEngine, selecionei Outros.

clip_image004

 

 

 

No url , informe sua url seguida metaweblog.axd.

Coloque seu usuário e senha. Configure as opções de imagem (se fará o Upload para seu repositório de imagens ou para o SkyDrive. Para isso será necessário vincular sua conta do Hotmail.

Confirme no botão Ok, você receberá uma mensagem de confirmação e pronto já pode começar a postar no seu blog.

Você tem alguma sugestão? Entre em contato, assim, faremos este blog evoluir juntos!

Abraços e até a próxima.

     No Microsoft word, existe um problema quando você insere as legendas, marcadores e índices no documento, sempre que você coloca um novo ítem, é necessário selecionar os itens e clicar com botão direito e atualizar campo.

     Há uma forma mais simples de realizar esta operação atualizando os Range via VBA.

     Segue o exemplo:

   1: Sub AtualizarRanges() 
   2:      
   3:     Dim Ranges
   4:      
   5:     Set Ranges = Selection.Range 
   6:      
   7:     Selection.WholeStory 
   8:     Selection.Fields.Update 
   9:      
  10:     Ranges.Select 
  11:      
  12: End Sub

      Simples assim.

 

      Minato 8-)

Quanta vezes precisamos baixar um arquivo via download via código. A idéia aqui é bem simples, basta passar a url do arquivo que deseja baixar e o destino.

   1: Public Sub DownloadFile(Url As String, DestFileName As String)    
   2:     Dim http As WinHttpRequest    
   3:     Set http = New WinHttpRequest        
   4:     http.Open "GET", Url, False    
   5:     http.Send        
   6:     Dim hFile As Integer    
   7:     hFile = FreeFile        
   8:  
   9:     Open DestFileName For Output As #hFile    
  10:         Print #hFile, StrConv(http.ResponseBody, vbUnicode)    
  11:     Close #hFile
  12:  
  13:     End Sub

Ë necessário criar uma referência na sua aplicação para utilizar o WinHttpRequest.

 

Minato 8-)

Minato , Criado em 20/02/2010, 06:56

Uma grande trabalho que existe em aplicativos criados com Access é a validação de preenchimento dos campos. Criei um exemplo que trata as validações de forma genérica.

Existe uma propriedade pouco utilizada no Access (Tag ou Marca para quem tem o Office em Português). A idéia é bem simples, passamos por todos os controles do formulário e verificar se esta propriedade está preenchida, se a propriedade estiver preenchida, isso indica que o controle deve ser preenchido. Utilizo o valor desta propriedade para exibir a mensagem.

 

senha1
Figura 1 - Propriedade TAG

 

senha

Figura 2 – Tela em Execução

 

Método que verifica o preenchimento.

   1: Private Function ValidaPreenchimento() As Boolean
   2:  
   3:     Dim ctl As Control
   4:  
   5:     On Error GoTo ValidaPreenchimento_Error
   6:  
   7:     For Each ctl In Me.Controls    'Passo por todos controles do formulario
   8:  
   9:         If ctl.ControlType = acTextBox Then    ' Verifico se é uma caixa de texto
  10:             If IsNull(ctl.Value) Then    'Verifico se o campo foi preenchido
  11:                 AplicaExibicaoErro "O Campo '" + ctl.Tag + "' não pode ficar em branco", ctl    'Coloco a mensagem e movo a imagem para frente do controle com erro
  12:                 ctl.SetFocus    'Coloco foco no controle, para agilizar procedimento de correção do usuário
  13:                 Exit Function
  14:             End If
  15:         End If
  16:     Next
  17:  
  18:     If Me.txtSenhaNova <> Me.txtSenhaNova_Confirma Then    'Verifico se a confirmação da nova senha
  19:         AplicaExibicaoErro "A nova senha não confere", Me.txtSenhaNova_Confirma    'coloca a mensagem de erro e movo a imagem
  20:         Me.txtSenhaNova.SetFocus
  21:         Exit Function
  22:     End If
  23:  
  24:     Const TAMANHO_MINIMO_SENHA As Byte = 6    'Parametrizo o tamanho do campo (Boas práticas de programação) basta alterarmos aqui para fazer todas as modificações
  25:     If Len(Me.txtSenhaNova) < TAMANHO_MINIMO_SENHA Then    'Verifico se o tamanho mínimo foi preenchido
  26:         AplicaExibicaoErro "A nova senha deve conter no mínimo " & TAMANHO_MINIMO_SENHA & " caracteres", Me.txtSenhaNova_Confirma    'Coloco mensangem e movo imagem
  27:         Me.txtSenhaNova.SetFocus    'dou foco ao controle
  28:         Exit Function
  29:     End If
  30:  
  31:     ValidaPreenchimento = True
  32:     Me.txtLogin.SetFocus
  33:  
  34: ValidaPreenchimento_Exit:
  35:     Exit Function
  36:  
  37: ValidaPreenchimento_Error:
  38:     MsgBox Err.Description, vbCritical, " Erro imprevisto"
  39:     Resume ValidaPreenchimento_Exit
  40:  
  41: End Function

 

Baixe a solução

 

Até a próxima

Minato 8-)

 
teste