Word com formato em Maiúscula e outro

Boa tarde a todos.

Fiz buscas no site, mas não encontrei o que preciso:

1) Tenho um formulário que gera documento no Word mesclando os campos através de indicadores feitos em um arquivo matriz, que funciona perfeitamente, o que preciso é que ao transportar determinado campo para o Word o mesmo esteja com letras maiúsculas, sem precisar fazer isso no campo do formulário, ou seja, apenas no documento do Word ficaria como letras em maiúsculo.

Tentei o comando:
.ActiveDocument.Bookmarks("Campo02").Select
.Selection.Text = "PROMOTORIA DE JUSTIÇA DE " & Format(Maiúscula(Forms!F15_Documentos!NomeComarca))
Mas, não funcionou.

2) Nesse mesmo assunto de formatação de campo do formulário para um documento Word, também preciso do seguinte:
.ActiveDocument.Bookmarks("Campo01").Select
.Selection.Text = (Format(Forms!F15_Documentos!NrDocCSMP, "0000/0000-00"))

No comando acima, consigo transportar para o documento Word o formato desejado, porém não consegui gravar o nome do arquivo que foi gerado usando o formato "0000/0000-00" na linha de comando:
.ActiveDocument.SaveAs Pasta & "\" & "Voto " & Me.NomeConselheiro & " " & Me.NrDocCSMP & ".doc"

Agradeço a atenção de todos.

Aproveitando este tópico para não ter que abrir outro, pois é do mesmo assunto, preciso também do seguinte, além das 2 pendências anteriores:

3) No mesmo formulário citado anteriormente: Inseri um campo (com indicador) no documento matriz do Word para ser impresso no cabeçalho buscando a informação de um campo do formulário, mas quando visualizo ele coloca esse campo dentro do texto e não no cabeçalho do documento como desejado.

Alguém já fez algo assim para jogar o campo dentro do cabeçalho do Documento Word ?

Alguém ??

Up !

Bom dia,
Não será fácil alguém responder sem ver os ficheiros

Alexandre, segue 2 arquivos em anexo, pois ao compactar juntos ultrapassou o limite permitido pelo site, então estou enviando primeiramento o BD e em seguida o arquivo matriz do Word para melhor entendimento.

Segue agora o arquivo matriz do Word.

Para usar e testar para entendimento as questões seguir as orientações:

1) Criar pasta na unidade C:\CONSILIUM
2) Criar subpasta na pasta acima C:\CONSILIUM\03.Votos
3) Copiar arquivo MatrizVoto1.doc para a subpasta acima

Up !!

Boa tarde,
Só agora tive algum tempo que desse para abrir o ficheiro. Explique que devo fazer para testar o que pretende

Bom dia, Alexandre

Realmente faltou eu dizer como seriam os procedimentos para testar.

Após seguir as instruções já repassadas na mensagem nº 7:
1) abra o formulário "F15_Documentos" que posiciona no último registro já com dados para os testes;
2) na Guia "Relatório e Voto", selecione em 1-Homologação, e em Gerar Documento Word, clique em 'Sim';
3) ao aparecer a logomarca do Word, clique na mesma e confirme com 'Sim';
4) vai gerar um documento do word, então a partir daí observe as questões solicitadas que não estou conseguindo fazer com relação a colocar alguns campos com letras em maiúsculo, formatação do campo SIIG quando grava na subpasta e inserir campo dentro do cabeçalho da página.

PS: não pretendo converter os campos para letras em maiúsculo no formulário ou na tabela, e sim, apenas quando gerar o documento no Word, que seja convertido apenas nesse momento para o documento do Word.

Qualquer dúvida, estou a disposição.

Boa tarde,
Fiz tudo como indicou e, não sei porquê, o procedimento não é executado ao clicar no botão
No entanto, percebi a sua dúvida e tente
.Selection.Text = "Promotoria de Justiça de " & Format(Forms!F15_Documentos!NomeComarca_Termo, ">")
e assim, sucessivamente

Alexandre, boa noite

Testei novamente aqui na minha máquina o arquivo enviado e funcionou perfeitamente.

Inclusive fiz conforme orientação, mas não colocou o campo no documento Word em letra maiúscula.

Prefere que eu envie novamente o arquivo ?

Boa tarde,
Não entendo porquê, o biotão não executa, mas criei novo botão.
Utuilize
'OBRIGATÓRIO: Marcar Referência: Microsoft Word 11.0 Object Library
' Marcar Referência: Microsoft Scripting Runtime
Dim ntram
Dim fso As FileSystemObject
ntram = MsgBox("Deseja GERAR um novo Documento WORD ?" & vbCr & "ALERTA: Caso já tenha sido gerado o RELATÓRIO anterior será substituído pelo Arquivo-Matriz !", vbQuestion + vbYesNo, "Sistema - Confirmação")
If ntram = 6 Then 'INÍCIO 1º IF
#Const DESENV = -1
On Error GoTo TrataErro
Dim oApp As Object 'Cria uma variável objeto
Dim strSQL As String
Dim Pasta As String
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists("C:\CONSILIUM\03.Votos\" & Year(DataVoto)) Then ' verifica se já existe a pasta
'Não faz nada
Else
'cria a pasta em falta para o ano em causa
MkDir "C:\CONSILIUM\03.Votos\" & Year(DataVoto) ' se não existir cria
End If
Pasta = "C:\CONSILIUM\03.Votos\" & Year(DataVoto)

'Inicia o MS Word
Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
With oApp
'Torna o MS Word visível
Visible = True
'Abre o documento base
.Documents.Open ("C:\CONSILIUM\03.Votos\MatrizVoto1.doc")
.ActiveDocument.Bookmarks("Campo01").Select
.Selection.Text = (CStr(Forms!F15_Documentos!NrSIIG))
'.Selection.Text = (Format(Forms!F15_Documentos!NrDocCSMP, "0000/0000-00"))'DÚVIDA FÓRUM MÁXIMO ACCESS X FORMATO COMO SEGUE
.ActiveDocument.Bookmarks("Campo02").Select
'.Selection.Text = "Promotoria de Justiça de " & (CStr(Forms!F15_Documentos!NomeComarca_Termo))
.Selection.Text = "Promotoria de Justiça de " & Format(Forms!F15_Documentos!NomeComarca_Termo, ">")
.ActiveDocument.Bookmarks("Campo03").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeOrgaoMPPE, ">") 'DÚVIDA FÓRUM MÁXIMO ACCESS X COLOCAR EM LETRAS MAIÚSCULAS
.ActiveDocument.Bookmarks("Campo04").Select
.Selection.Text = Format(Forms!F15_Documentos!AssuntoResumo, ">")
.ActiveDocument.Bookmarks("Campo05").Select
.Selection.Text = Format(Forms!F15_Documentos!ParteEnvolvida1, ">")
.ActiveDocument.Bookmarks("Campo06").Select
.Selection.Text = Format(Forms!F15_Documentos!ParteEnvolvida2, ">")
.ActiveDocument.Bookmarks("Campo07").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeConselheiro, ">")
.ActiveDocument.Bookmarks("Campo08").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeTipoDocumento, ">") & " Nº " & Format(Forms!F15_Documentos!NrDocRecebido, ">")
.ActiveDocument.Bookmarks("Campo09").Select
.Selection.Text = Format(Forms!F15_Documentos!NrArquimedesAuto, ">")
.ActiveDocument.Bookmarks("Campo10").Select
.Selection.Text = Format(Forms!F15_Documentos!EmentaRelatorio, ">")
.ActiveDocument.Bookmarks("Campo11").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeTipoDocumento, ">") & " Nº " & Format(Forms!F15_Documentos!NrDocRecebido, ">")
.ActiveDocument.Bookmarks("Campo12").Select
.Selection.Text = "PROMOTORIA DE JUSTIÇA DE " & Format(Forms!F15_Documentos!NomeComarca_Termo, ">")
.ActiveDocument.Bookmarks("Campo13").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeOrgaoMPPE, ">")
.ActiveDocument.Bookmarks("Campo14").Select
.Selection.Text = Format(Forms!F15_Documentos!RelatorioTexto1, ">")
.ActiveDocument.Bookmarks("Campo15").Select
.Selection.Text = Format(Forms!F15_Documentos!RelatorioTexto2, ">")
.ActiveDocument.Bookmarks("Campo16").Select
.Selection.Text = Format(Forms!F15_Documentos!RelatorioTexto3, ">")
.ActiveDocument.Bookmarks("Campo17").Select
.Selection.Text = Format(Forms!F15_Documentos!DataRecebimento, "dd") & " de " & (Format(Forms!F15_Documentos!DataRecebimento, "mmmm")) & " de " & (Format(Forms!F15_Documentos!DataRecebimento, "yyyy"))
.ActiveDocument.Bookmarks("Campo18").Select
.Selection.Text = (Format(Forms!F15_Documentos!DataAtual, "dd")) & " de " & (Format(Forms!F15_Documentos!DataAtual, "mmmm")) & " de " & (Format(Forms!F15_Documentos!DataAtual, "yyyy"))
.ActiveDocument.Bookmarks("Campo19").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeConselheiro, ">")
.ActiveDocument.Bookmarks("Campo20").Select
.Selection.Text = Format(Forms!F15_Documentos!CargoConselheiro, ">")
.ActiveDocument.Bookmarks("Campo21").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeOrgaoMPPE, ">")
.ActiveDocument.Bookmarks("Campo22").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeTipoDocumento, ">") & " Nº " & (CStr(Forms!F15_Documentos!NrDocRecebido))
.ActiveDocument.Bookmarks("Campo23").Select
.Selection.Text = Format(Forms!F15_Documentos!VotoTexto1, ">")
.ActiveDocument.Bookmarks("Campo24").Select
.Selection.Text = (Format(Forms!F15_Documentos!DataAtual, "dd")) & " de " & (Format(Forms!F15_Documentos!DataAtual, "mmmm")) & " de " & (Format(Forms!F15_Documentos!DataAtual, "yyyy"))
.ActiveDocument.Bookmarks("Campo25").Select
.Selection.Text = Format(Forms!F15_Documentos!NomeConselheiro, ">")
.ActiveDocument.Bookmarks("Campo26").Select
.Selection.Text = Format(Forms!F15_Documentos!CargoConselheiro, ">")
'.ActiveDocument.Bookmarks("Campo27").Select 'DÚVIDA FÓRUM MÁXIMO ACCESS: COLOCAR NO CABEÇALHO DOCUMENTO WORD
'.Selection.Text = (CStr(Forms!F15_Documentos!NrSIIG)) 'DÚVIDA FÓRUM MÁXIMO ACCESS: COLOCAR NO CABEÇALHO DOCUMENTO WORD

'Salva o arquivo gerado
' .ActiveDocument.SaveAs Pasta & "\" & "Oficio " & Replace(Me.NumOficio, "/", "-") & ".doc" 'ORIGINAL
.ActiveDocument.SaveAs Pasta & "\" & "Voto " & Me.NomeConselheiro & " SIIG " & Replace(Me.NrSIIG, "/", "-") & ".doc" 'ORIGINAL
'Fecha o documento
.ActiveDocument.Close
End With
'Fecha o Word
oApp.Quit
End If 'FIM 1º IF

Dim X As String
'X = Pasta & "\Voto " & Me.NomeConselheiro & " " & Me.NrDocCSMP & ".doc" 'ORIGINAL
X = Pasta & "\Voto " & Me.NomeConselheiro & " SIIG " & Replace(Me.NrSIIG, "/", "-") & ".doc"
Dim Word As New Word.Application
With Word
.Documents.Open X
.Visible = True
.WindowState = wdWindowStateMaximize
End With

Me.BtWord.Visible = False 'Torna o Controle-Imagem 'BtWord' INVÍSIVEL após fechar o Documento gerado
Me.GeraWord = 2 'Torna Nulo o Campo 'GeraWord' = NÃO, após gerar Word
'Libera a memória
Set oApp = Nothing
Saida:
Exit Sub

TrataErro:
'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
If Err.Number = 94 Then
oApp.Selection.Text = ""
Resume Next
End If
MsgBox "Form_F15_Documentos - btWord_Click" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
#If DESENV Then
oApp.Quit
Set oApp = Nothing
Stop
Resume
#End If
Resume Saida
Me.BtWord.Visible = False 'Torna o Controle-Imagem 'BtWord' INVÍSIVEL após fechar o Documento gerado
Me.GeraWord = 2 'Torna Nulo o Campo 'GeraWord' = NÃO, após gerar Word

Alexandre, bom dia

Copiei sua rotina para outro botão e funcionou perfeito com relação a transformar texto em maiúscula no documento gerado, agora faltam 02 pendencias:

1) gravar nome do arquivo no formato desejado, conforme a linha a ser alterada:
.ActiveDocument.SaveAs Pasta & "\" & "Voto " & Me.NomeConselheiro & " SIIG " & Replace(Me.NrSIIG, "/", "-") & ".doc"
para:
.ActiveDocument.SaveAs Pasta & "\" & "Voto " & Me.NomeConselheiro & " CSMP " & Replace(Me.NrDocCSMP, "/", "-") & ".doc" 'TESTE - não funcionou
PS: com formato do campo NrDocCSMP 0000/0000-00

2) colocar o campo NrSIIG no cabeçalho do documento gerado, a partir da página 2, conforme modelo do Word.

Boa noite,
O nome do ficheiro não pode conter /
Sobre a substituição no cabeçalho, não lhe sei ajudar

Boa tarde,

Realmente, o nome do arquivo não pode conter /, então precisaria que o formato do campo NrDocCSMP ficasse como 0000-0000-00, quando fosse salvo o arquivo na pasta, nesse caso substituindo a / por -, onde tentei usar o comando Replace, mas não estou sabendo fazer a adaptação para ficar da forma desejada.

Quanto a substituição do campo NrSIIG no cabeçalho, por enquanto vou aguardar mais um pouco para ver se alguém consegue.

Boa tarde,
Coloque
.ActiveDocument.SaveAs Pasta & "\" & "Voto " & Me.NomeConselheiro & " CSMP " & Format(Me.NrDocCSMP, "0000-0000-00") & ".doc"

Boa noite,

Funcionou perfeitamente. Penso em encerrar este tópico e abrir outro com a pendência que ficou, o que achas?

Boa tarde,
Como a parte em falta faz parte do mesmo trabalho (mesma bd e mesmo ficheiro texto) pode-se manter este em aberto e dar mais algum tempo de espera, mesmo que tenha de fazer alguma lembrança para a parte em falta

A parte em falta é:
colocar o campo NrSIIG no cabeçalho do documento gerado, a partir da página 2, conforme modelo do Word.

Alexandre, boa tarde

Vou fazer conforme sua orientação, e aproveitar para agradecer toda atenção e ajuda, muito obrigado.

Fico no aguardo para alguém tentar ajudar no que falta:

colocar o campo NrSIIG no cabeçalho do documento gerado, a partir da página 2, conforme modelo do Word.

Up!