MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido] Criar espaços no Word

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido] Criar espaços no Word Empty [Resolvido] Criar espaços no Word

    Mensagem  vieirasoft 24/5/2010, 20:16

    Caros Amigos

    Estou exportando dados de um form em Access para o Word. Utilizo o método:
    Dim docword As Word.Document
    Dim rgncurrent As Word.range



    Set appword = CreateObject("Word.Application.8")

    Set docword = appword.documents.Add()

    appword.Visible = True
    Set rngcurrent = docword.content

    With rngcurrent

    .insertafter "Nome: " & nome & vbCrLf
    Etc.

    Gostava de saber como criar um espaço de formatação no documento para que ao invés de o nome aparecer no canto esquerdo aparecesse-se no local que eu criar.

    Alguém sabe como fazer isso?

    Obrigado
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido] Criar espaços no Word Empty Re: [Resolvido] Criar espaços no Word

    Mensagem  JPaulo 25/5/2010, 09:08

    Bom Dia Vieira;

    Veja este exemplo, que funciona através do Bookmark e manda os registros para o lugar do Word que quisermos.

    http://dl.dropbox.com/u/771097/AccessWord.rar


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido] Criar espaços no Word Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido] Criar espaços no Word Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido] Criar espaços no Word Folder_announce_new Instruções SQL como utilizar...
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido] Criar espaços no Word Empty Re: [Resolvido] Criar espaços no Word

    Mensagem  vieirasoft 25/5/2010, 12:55

    Boa Tarde Mestre JPaulo

    Em primeiro lugar os meus agradecimentos. Tenho adaptado vários exemplos seus à minha aplicação + a ajuda que me tem dado às minhas solicitações. A úlrima adaptação que fiz ontem foi a DLL para evitar cópia da aplicação e foi fantástico! Os meus parabéns!

    Abri o exemplo dei voltas ao mesmo e recebo sempre o mesmo erro ao clicar no botão Enviar ao Word:
    < A Expressão que introduziu como definição da......Error in Loading DLL > ???

    Faltou mais alguma coisa: Se clicar no botão, no form (procedimento do acontecimento) abre de imediato o módulo com Error in Loading DLL.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido] Criar espaços no Word Empty Re: [Resolvido] Criar espaços no Word

    Mensagem  criquio 25/5/2010, 13:11

    Provavelmente seja necessário referenciar algo, ou não? Porque no meu teste aqui funcionou certinho.
    Só uma observação que eu faria, é fazer uma pequena alteração para ele diferenciar gênero masculino de feminino na carta do Word, para que não coloque "Caro" tanto para homem quanto para mulher, mas para isso é preciso ter um campo para o gênero mais a obrigatoriedade desse campo estar preenchido né?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido] Criar espaços no Word Empty Re: [Resolvido] Criar espaços no Word

    Mensagem  vieirasoft 25/5/2010, 13:16

    Muito obrigado

    Realmente estava marcada uma referência ao Word12 e eu trabalho com o 2003 logo retirei a referência e marquei a 11 e já funcionou.

    Obriagado aos dois pela preciosa ajuda

    Conteúdo patrocinado


    [Resolvido] Criar espaços no Word Empty Re: [Resolvido] Criar espaços no Word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 11:27