MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    string em negrito - Word

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    string em negrito - Word

    Mensagem  biligo em Sab 12 Dez 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
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: string em negrito - Word

    Mensagem  Alexandre Neves em Dom 13 Dez 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: string em negrito - Word

    Mensagem  biligo em Seg 14 Dez 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
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: string em negrito - Word

    Mensagem  Alexandre Neves em Qui 17 Dez 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: string em negrito - Word

    Mensagem  biligo em Sab 19 Dez 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
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: string em negrito - Word

    Mensagem  Alexandre Neves em Dom 20 Dez 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

      Data/hora atual: Sab 10 Dez 2016, 06:52