Juntar documentos do word

Veja como é possível juntar documentos do word a partir de uma pasta!!!!

Crie um novo documento em branco, crie uma macro e coloque o código abaixo. Após executar, você terá todos os documentos da pasta especificada em pastaDocs no seu novo documento.

Legal, não é?

Private Sub juntarDocs()

'

' juntarDocs Macro

'

Dim nomeArquivo As String

Dim r As Range

Dim doc As Document

Const pastaDocs = "J:\"

Set doc = ActiveDocument

nomeArquivo = Dir$(pastaDocs & "\*.doc")

Do

Set r = doc.Bookmarks("\EndOfDoc").Range

If r.End > 0 Then

r.InsertBreak wdSectionBreakNextPage

r.Collapse wdCollapseEnd

End If

r.InsertFile (pastaDocs & "\" & nomeArquivo)

nomeArquivo = Dir$()

Loop Until nomeArquivo = ""

End Sub

Simples cadastro em delphi - Parte 1

Há algum tempo não utilizo o delphi para desenvolver aplicativos. Utilizo mais o java e em alguns casos (bem raramente) utilizo o csharp.

Mas para aqueles que pretendem iniciar em programação e consideram cSharp ou Java muito complicado para começar, e isso poderia ser desmotivante, resolvi fazer um simples cadastro em Delphi, a pedido de um amigo.

No entanto, sugiro que este exemplo seja apenas o começo, pois seria interessante começarmos a utilizar as linguagens mais próximas das novas tecnologias principalmente Java ou até mesmo Csharp.


Nesta primeira parte, vou fazer um simples cadastro utilizando um arquivo dbf (poderia utilizar firebird ou access, mas escolhi dbf pela facilidade ). Pretendo dar prosseguimento a este tópico e futuramente estaremos utilizando banco de dados relacionais.

Simples cadastro em delphi

Antes de iniciar o projeto, crie um arquivo dbf com dois campos: codigo e nome, ambos tipo caractere com tamanho de 5 e 40, respectivamente.

Criar um novo projeto
Salvar o novo projeto em c:\cadastro


inserir um table -> paleta BDE
name (nome que voce vai atribuir ao objeto) --> tabCliente ou Table1
databasename (nome do banco de dados ou onde estão as tabelas) --> c:\cadastro
tablename (nome da tabela a ser usada) --> cliente
active (abrir ou fechar a tabela) --> true

inserir um datasource -> paleta DATA CONTROLS
name (nome que voce vai atribuir ao objeto) --> ds_cliente ou datasource1
Dataset (nome do objeto a ser ligado, no nosso caso a table) --> tabCliente ou Table1

inserir um DBGrid -> paleta Data Controls
name (nome que voce vai atribuir ao objeto) --> DBGridCliente ou DBGrid1
Datasource (nome da fonte de dados) --> ds_cliente ou datasource1


inserir

label
caption -> Código
edit
name -> e_codigo
text -> deixe em branco

label
caption -> Nome
edit
name -> e_nome
text -> deixe em branco


button
name -> btOk
no evento onClick (ou clica-se duas vezes no botao) entre o begin e o end, digite

table1.insert;
table1.fieldbyname('codigo').value = e_codigo.text;
table1.fieldbyname('nome').value = e_nome.text;
table1.post
DBGridCliente.refresh;


obs: 1 - se voce trocou o nome dos componentes, troque também quando for se referir a ele. Por exemplo
table1.insert deve ser mudado para DBGridCliente.insert

2 - O delphi, diferente de csharp, java entre outras, não é sensitive case, ou seja,
tanto faz letras maiusculas e minusculas


pronto! para executar, pressione f9.
se der algum erro e ficar travado, pressione ctrl-f2

Adicione outros edits e labels ao projeto e faca um cadastro completo.

Para deletar, insira um botao e no evento onclick coloque table1.delete

até a proxima!

Linux e Windows

Tenho alguns clientes que utilizam linux, por isso também preciso saber um pouco sobre ele. Acho um ótimo sistema operacional, principalmente como servidor de rede.
Não tenho uma máquina com o linux instalado diretamente, utilizo uma máquina virtual onde faço meus testes.

Para acessar o linux pelo windows você pode usar várias ferramentas. Recentemente descobrir o nxclient; achei excelente! Por isso, vou colocar algumas coisas aqui que considero útil para utilizar o nxclient.

1- adicionar usuários: nxserver --useradd

Frases

Certa vez um amigo me disse:

"Se algum amigo lhe pedir dinheiro emprestado e você emprestar, corre o risco de perder o dinheiro e, consequentemente o amigo. Se não emprestar, você perde apenas o amigo."

Ele falou e ainda é meu amigo!

Ummm... começando!!!!!!

De vez em quando me surge a idéia (ops, nova regra ortográfica) digo, ideia de escrever sobre algum assunto mas sempre me falta coragem. Já criei músicas porém nunca publiquei por vergonha e terminei esquecendo. Agora vou derrubar essa barreira!!!!!!

Possivelmente, não escreverei muito, pelo menos no início. Acredito que com o passar do tempo me acostume a escrever mais.

Pretendo escrever aquilo que achar importante, mesmo que algum leitor não concorde, principalmente do nosso cotidiano.Escreverei também sobre informática, deixarei links principalmente como forma de futura consulta.Letras de músicas que gosto, musicas católicas, cifras, mensagens.Talvez, até mesmo algo sobre educação, mas não prometo.Espero que consiga o melhor , e assim, você leitor, possa aproveitar esse blog da melhor maneira possível.