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


    [Resolvido]Expotar para word com formatação

    toyebom
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012
    • Mensagem nº1

    [Resolvido]Expotar para word com formatação Empty [Resolvido]Expotar para word com formatação

    Mensagem  toyebom 12/1/2018, 00:41

    Tenho um botão que me exporta os dados para um documento word o problema é que certos campos deveriam ter formatação em negrito e com tamanho de letra maior, tentei este código mas dá erro.

    .ActiveDocument.Bookmarks("Pessoas").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_pessoas!Texto19) 'PessoaNome
    ActiveDocument.Bookmarks("Pessoas").Select
    Selection.Font.Size = 40


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    • Ir para o topo
    toyebom
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012
    • Mensagem nº2

    [Resolvido]Expotar para word com formatação Empty Expotar para word com formatação

    Mensagem  toyebom 12/1/2018, 19:17

    Já consegui resolver. Ficou:

    .ActiveDocument.Bookmarks("Pessoas").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_pessoas!Texto19) 'PessoaNome
    .Selection.Range.Font.Underline = True
    .Selection.Range.Font.Size = 30


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    • Ir para o topo
    toyebom
    toyebom
    toyebom
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1128
    Registrado : 18/07/2012
    • Mensagem nº3

    [Resolvido]Expotar para word com formatação Empty Expotar para word com formatação

    Mensagem  toyebom 12/1/2018, 19:18

    O código fica assim só me falta configurar os campos onde quero alterar:

    Private Sub Comando161_Click()
    Dim wdApl As Object
    Select Case MsgBox("COLOCAR CUMPRIMENTOS?", vbInformation + vbYesNoCancel, [cam7] & [SIGLAS])
    Case vbYes
    Me.t11 = "Com os melhores cumprimentos"
    DoCmd.RefreshRecord
    Set wdApl = CreateObject("Word.Application")
    wdApl.Documents.Open FileName:=CurrentProject.Path & "\Oficio_SIIOP-2.doc"
    With wdApl
    .ActiveDocument.Bookmarks("Comando").Select: .Selection.text = Nz(Forms!OficioNovo.Texto333) 'Comando
    .ActiveDocument.Bookmarks("Comando1").Select: .Selection.text = Nz(Forms!OficioNovo.Lista137) 'Destacamento
    .ActiveDocument.Bookmarks("Posto").Select: .Selection.text = Nz(Forms!OficioNovo.Texto329) 'Posto
    .ActiveDocument.Bookmarks("MoreCabe").Select: .Selection.text = Nz(Forms!OficioNovo.Texto783) 'Morada Cabeçalho
    .ActiveDocument.Bookmarks("Tel").Select: .Selection.text = Nz(Forms!OficioNovo.Texto784) 'Telefone Cabeçalho
    .ActiveDocument.Bookmarks("Fax").Select: .Selection.text = Nz(Forms!OficioNovo.Texto785) 'Fax Cabeçalho
    .ActiveDocument.Bookmarks("Mail").Select: .Selection.text = Nz(Forms!OficioNovo.Texto786) 'Mail Cabeçalho
    .ActiveDocument.Bookmarks("NUIPC1").Select: .Selection.text = Nz(Forms!OficioNovo.CaixaCombinação776) 'NUIPC1
    .ActiveDocument.Bookmarks("NUIPC2").Select: .Selection.text = Nz(Forms!OficioNovo.Texto767) 'NUIPC2
    .ActiveDocument.Bookmarks("Ref1").Select: .Selection.text = Nz(Forms!OficioNovo.Texto610) 'S. Referência
    .ActiveDocument.Bookmarks("Ref2").Select: .Selection.text = Nz(Forms!OficioNovo.[16]) 'S. Referência1
    .ActiveDocument.Bookmarks("Ref3").Select: .Selection.text = Nz(Forms!OficioNovo.[17]) 'S. Referência2
    .ActiveDocument.Bookmarks("Ref4").Select: .Selection.text = Nz(Forms!OficioNovo.Texto611) 'S. Referência3
    .ActiveDocument.Bookmarks("Re").Select: .Selection.text = Nz(Forms!OficioNovo.Texto789) 'N. Referência_
    .ActiveDocument.Bookmarks("Nref1").Select: .Selection.text = Nz(Forms!OficioNovo.cam7) 'N. Referência
    .ActiveDocument.Bookmarks("Nref2").Select: .Selection.text = Nz(Forms!OficioNovo.CaixaCombinação720) 'N. Referência1
    .ActiveDocument.Bookmarks("Classificador").Select: .Selection.text = Nz(Forms!OficioNovo![Caixa de combinação674].Column(1)) 'Classificador
    .ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Left(Forms!OficioNovo.Texto614, 10)) 'N. Referência Data
    .ActiveDocument.Bookmarks("Assunto").Select: .Selection.text = Nz(Forms!OficioNovo.t10) 'Assunto do oficio
    .ActiveDocument.Bookmarks("Corp1").Select: .Selection.text = Nz(Forms!OficioNovo.valoresfurtados) 'Corpo do oficio 1
    .ActiveDocument.Bookmarks("Pessoas").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_pessoas!Texto19) 'PessoaNome
    .Selection.Range.Font.Underline = True
    .Selection.Range.Font.Size = 30
    .ActiveDocument.Bookmarks("Pessoas1").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_pessoas!Texto25 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto37 & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo77 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto76 & " " & Forms!OficioNovo.OficioNovo_pessoas!CaixaCombinação242 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto21 & " " & Forms!OficioNovo.OficioNovo_pessoas!CaixaCombinação238 & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo53 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto52 & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo59 & " " & Forms!OficioNovo.OficioNovo_pessoas![Caixa de combinação58] & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo73 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto72 & " " & Forms!OficioNovo.OficioNovo_pessoas!CaixaCombinação248 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto62) 'PessoaDados
    .ActiveDocument.Bookmarks("Corp2").Select: .Selection.text = Nz(Forms!OficioNovo.Texto701) 'Corpo do oficio 2
    .ActiveDocument.Bookmarks("Destino1").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!Texto23) 'Destino1
    .ActiveDocument.Bookmarks("Destino2").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!t7) 'Destino2
    .ActiveDocument.Bookmarks("Destino3").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino![8]) 'Destino3
    .ActiveDocument.Bookmarks("Destino4").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!t19) 'Destino4
    .ActiveDocument.Bookmarks("Destino5").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!t9) 'Destino5
    .ActiveDocument.Bookmarks("RF").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!Texto319) 'RF
    .ActiveDocument.Bookmarks("Cumprimentos").Select: .Selection.text = Nz(Forms!OficioNovo.t11) 'Cumprimentos
    .ActiveDocument.Bookmarks("OCMPT").Select: .Selection.text = Nz(Forms!OficioNovo.[Caixa de combinação619]) 'Tipo Comandante posto
    .ActiveDocument.Bookmarks("CMPT").Select: .Selection.text = Nz(Forms!OficioNovo.[Caixa de combinação617]) 'Nome Comandante Posto
    .ActiveDocument.Bookmarks("CMPT1").Select: .Selection.text = Nz(Forms!OficioNovo!CaixaCombinação163) 'Posto Comandante Posto
    .ActiveDocument.Bookmarks("Rodaposto").Select: .Selection.text = Nz(Forms!OficioNovo.Texto787) 'Rodapé
    .ActiveDocument.Bookmarks("NIF").Select: .Selection.text = Nz(Forms!OficioNovo.Texto788) 'Rodapé_Nif
    .ActiveDocument.SaveAs CurrentProject.Path & "\Oficios\Oficios Expedidos\" & Nz(Replace(Me!cam7, "/", "_")) & "." & Me.CaixaCombinação720 & ".doc"
    .ActiveDocument.Close
    .Quit
    End With
    Set wdApl = Nothing
    MsgBox "Oficio gerado em Word com sucesso na pasta ''Oficios Expedidos''.", vbInformation, "Aviso"
    Case vbNo
    Me.t11 = ""
    DoCmd.RefreshRecord
    Set wdApl = CreateObject("Word.Application")
    wdApl.Documents.Open FileName:=CurrentProject.Path & "\Oficio_SIIOP-2.doc"
    With wdApl
    .ActiveDocument.Bookmarks("Comando").Select: .Selection.text = Nz(Forms!OficioNovo.Texto333) 'Comando
    .ActiveDocument.Bookmarks("Comando1").Select: .Selection.text = Nz(Forms!OficioNovo.Lista137) 'Destacamento
    .ActiveDocument.Bookmarks("Posto").Select: .Selection.text = Nz(Forms!OficioNovo.Texto329) 'Posto
    .ActiveDocument.Bookmarks("MoreCabe").Select: .Selection.text = Nz(Forms!OficioNovo.Texto783) 'Morada Cabeçalho
    .ActiveDocument.Bookmarks("Tel").Select: .Selection.text = Nz(Forms!OficioNovo.Texto784) 'Telefone Cabeçalho
    .ActiveDocument.Bookmarks("Fax").Select: .Selection.text = Nz(Forms!OficioNovo.Texto785) 'Fax Cabeçalho
    .ActiveDocument.Bookmarks("Mail").Select: .Selection.text = Nz(Forms!OficioNovo.Texto786) 'Mail Cabeçalho
    .ActiveDocument.Bookmarks("NUIPC1").Select: .Selection.text = Nz(Forms!OficioNovo.CaixaCombinação776) 'NUIPC1
    .ActiveDocument.Bookmarks("NUIPC2").Select: .Selection.text = Nz(Forms!OficioNovo.Texto767) 'NUIPC2
    .ActiveDocument.Bookmarks("Ref1").Select: .Selection.text = Nz(Forms!OficioNovo.Texto610) 'S. Referência
    .ActiveDocument.Bookmarks("Ref2").Select: .Selection.text = Nz(Forms!OficioNovo.[16]) 'S. Referência1
    .ActiveDocument.Bookmarks("Ref3").Select: .Selection.text = Nz(Forms!OficioNovo.[17]) 'S. Referência2
    .ActiveDocument.Bookmarks("Ref4").Select: .Selection.text = Nz(Forms!OficioNovo.Texto611) 'S. Referência3
    .ActiveDocument.Bookmarks("Re").Select: .Selection.text = Nz(Forms!OficioNovo.Texto789) 'N. Referência_
    .ActiveDocument.Bookmarks("Nref1").Select: .Selection.text = Nz(Forms!OficioNovo.cam7) 'N. Referência
    .ActiveDocument.Bookmarks("Nref2").Select: .Selection.text = Nz(Forms!OficioNovo.CaixaCombinação720) 'N. Referência1
    .ActiveDocument.Bookmarks("Classificador").Select: .Selection.text = Nz(Forms!OficioNovo![Caixa de combinação674].Column(1)) 'Classificador
    .ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Left(Forms!OficioNovo.Texto614, 10)) 'N. Referência Data
    .ActiveDocument.Bookmarks("Assunto").Select: .Selection.text = Nz(Forms!OficioNovo.t10) 'Assunto do oficio
    .ActiveDocument.Bookmarks("Corp1").Select: .Selection.text = Nz(Forms!OficioNovo.valoresfurtados) 'Corpo do oficio 1
    .ActiveDocument.Bookmarks("Pessoas").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_pessoas!Texto19) 'PessoaNome
    .ActiveDocument.Bookmarks("Pessoas1").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_pessoas!Texto25 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto37 & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo77 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto76 & " " & Forms!OficioNovo.OficioNovo_pessoas!CaixaCombinação242 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto21 & " " & Forms!OficioNovo.OficioNovo_pessoas!CaixaCombinação238 & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo53 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto52 & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo59 & " " & Forms!OficioNovo.OficioNovo_pessoas![Caixa de combinação58] & " " & Forms!OficioNovo.OficioNovo_pessoas!Rótulo73 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto72 & " " & Forms!OficioNovo.OficioNovo_pessoas!CaixaCombinação248 & " " & Forms!OficioNovo.OficioNovo_pessoas!Texto62) 'PessoaDados
    .ActiveDocument.Bookmarks("Corp2").Select: .Selection.text = Nz(Forms!OficioNovo.Texto701) 'Corpo do oficio 2
    .ActiveDocument.Bookmarks("Destino1").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!Texto23) 'Destino1
    .ActiveDocument.Bookmarks("Destino2").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!t7) 'Destino2
    .ActiveDocument.Bookmarks("Destino3").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino![8]) 'Destino3
    .ActiveDocument.Bookmarks("Destino4").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!t19) 'Destino4
    .ActiveDocument.Bookmarks("Destino5").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!t9) 'Destino5
    .ActiveDocument.Bookmarks("RF").Select: .Selection.text = Nz(Forms!OficioNovo.OficioNovo_destino!Texto319) 'RF
    .ActiveDocument.Bookmarks("Cumprimentos").Select: .Selection.text = Nz(Forms!OficioNovo.t11) 'Cumprimentos
    .ActiveDocument.Bookmarks("OCMPT").Select: .Selection.text = Nz(Forms!OficioNovo.[Caixa de combinação619]) 'Tipo Comandante posto
    .ActiveDocument.Bookmarks("CMPT").Select: .Selection.text = Nz(Forms!OficioNovo.[Caixa de combinação617]) 'Nome Comandante Posto
    .ActiveDocument.Bookmarks("CMPT1").Select: .Selection.text = Nz(Forms!OficioNovo!CaixaCombinação163) 'Posto Comandante Posto
    .ActiveDocument.Bookmarks("Rodaposto").Select: .Selection.text = Nz(Forms!OficioNovo.Texto787) 'Rodapé
    .ActiveDocument.Bookmarks("NIF").Select: .Selection.text = Nz(Forms!OficioNovo.Texto788) 'Rodapé_Nif
    .ActiveDocument.SaveAs CurrentProject.Path & "\Oficios\Oficios Expedidos\" & Nz(Replace(Me!cam7, "/", "_")) & "." & Me.CaixaCombinação720 & ".doc"
    .ActiveDocument.Close
    .Quit
    End With
    Set wdApl = Nothing
    MsgBox "Oficio gerado em Word com sucesso na pasta ''Oficios Expedidos''.", vbInformation, "Aviso"
    Case vbCancel
    End Select
    End Sub


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]Expotar para word com formatação Empty Re: [Resolvido]Expotar para word com formatação

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/4/2024, 12:06