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


2 participantes

    string em negrito - Word

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    string em negrito - Word Empty string em negrito - Word

    Mensagem  biligo 12/12/2015, 16:21

    Boas pessoal,
    Estou quase lá com um problema muito antigo.

    Tenho que criar um .doc baseado em um template. Tenho a seguinte instrução:

    vServ, vDesc, vServDesc as string

    vServ = rsProd!NComumServico
    vDesc = rsProd!Descricao

    vServDesc = vServ & ": " & vDesc

    .ActiveDocument.Bookmarks("SERVDESC").Select
    .Selection.Text = vServDesc

    Até ai tudo bem, mas gostaria que vServ fosse em negrito ao enviar para o Word ou após a incrementação dos dados.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    string em negrito - Word Empty Re: string em negrito - Word

    Mensagem  Alexandre Neves 13/12/2015, 17:59

    Boa tarde
    Coloque
    Selection.Font.Bold = True


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    string em negrito - Word Empty Re: string em negrito - Word

    Mensagem  biligo 14/12/2015, 00:06

    Boas Alexandre,
    Grato por estar sempre a ajudar, mas infelizmente não funcionou.

    Ficou tudo em negrito e gostaria que apenas vServ fosse negrito.
    Não mencionei mais esta instrução esta em um loop e devido o formato com que o texto deve ser escrito:
    (Servico: Descrição)
    (Servico: Descrição)
    ....
    não posso separar se não sai do formato.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    string em negrito - Word Empty Re: string em negrito - Word

    Mensagem  Alexandre Neves 17/12/2015, 21:59

    Boa noite,
    Tente
    .ActiveDocument.Bookmarks("SERVDESC").Select
    .TypeText Text:=rsProd!NComumServico
    Selection.Font.Bold = true
    .TypeText Text:=": " & rsProd!Descricao
    Selection.Font.Bold = false


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 228
    Registrado : 10/04/2014

    string em negrito - Word Empty Re: string em negrito - Word

    Mensagem  biligo 19/12/2015, 21:16

    Boas Alexandre,
    Grato pela paciência mas ainda não funcionou.

    Tentei uma solução mas não estou conseguindo formular:

    Código:

    vServ, vDesc as string

    Do While Not rsDet.EOF

               If vDesc = "" Then
                   vDesc = rsProd!Descricao
                   
                   .ActiveDocument.Bookmarks("SERV").Select
                   .Selection.Font.Bold = True
                   .Selection.Text = vServ

                   .ActiveDocument.Bookmarks("DESC").Select
                   .Selection.Text = vDesc & vbCrLf
                   
               Else
                   .Font.Bold = True
                   .Insert vServ
                   .Font.Bold = False
                   .Insert ": " & vDesc & vbCrLf
                   
               End If

       rsDet.MoveNext
    Loop



    O problema é que quando termina só me mostra a ultima descrição, se tento colocar para achar Bookmarks no else me fala que não acha
    por que é um novo arquivo e não tem as marcas
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    string em negrito - Word Empty Re: string em negrito - Word

    Mensagem  Alexandre Neves 20/12/2015, 13:23

    Boa tarde,
    Coloque 2 bookmarks e assim poder formatar só um deles a negrito


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    string em negrito - Word Empty Re: string em negrito - Word

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:45