MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    string em negrito - Word

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6391
    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: Qua 20 Set 2017, 20:53