[Resolvido]centralizar somente uma linha em caixa de texto de um relatório

O conteúdo abaixo é exibido na caixa de texto text_Diploma, em um relatório do Access.

O formato do texto está: Rich Text e o alinhamento do texto está: Distribuir

Consegui formatar em negrito colocando entre as tags: , mas as tags " não funcionam para centralizar.

Desejo que, somente a linha que está em negrito ([P_Grad] e [Tbl_Expedicao.Nome]) fiquem centralizados no diploma.

Segue anexo como exemplo arquivo teste_Rel_Diploma.pdf para visualizar como quero o formato.

txt_Diploma = "

          O     Comandante     do     Exército     outorga    ao(à)
" & _
   "" & [P_Grad] & "" & "  " & "" & [Tbl_Expedicao.Nome] & "
" & _
   " a  Medalha  do  Pacificador  pelos  assinalados  serviços  prestados  ao  Exército  Brasileiro,  tendo  se  tornado  credor(a)  de  homenagem  especial  da  Instituição." & "

" & _
   "

          E,  para  constar,  mandou  expedir  o  presente  diploma.

"

Boa noite,
Tente

Código:

txt_Diploma = "<p>           O     Comandante     do     Exército     outorga    ao(à)</p><br>" & _
  "<p style='text-align:center'><b>" & [P_Grad] & "  " & [Tbl_Expedicao.Nome] & "</b></p> <br>" & _
  "<p> a  Medalha  do  Pacificador  pelos  assinalados  serviços  prestados  ao  Exército  Brasileiro,  tendo  se  tornado  credor(a)  de  homenagem  especial  da  Instituição." & "</p>" & _
  "<p>           E,  para  constar,  mandou  expedir  o  presente  diploma.</p>"

Boa tarde, Alexandre Neves.

Obrigado pela sua ajuda!

segui a sua sugestão mas infelizmente não surtiu o resultado esperado, ou seja, não consegui deixar a linha:
"<p style='text-align:center'><b>" & [P_Grad] & "  " & [Tbl_Expedicao.Nome] & "</b></p> <br>" & _
centralizada no relatório.

Boa noite,
Tente

Código:

txt_Diploma = "<p>          O    Comandante    do    Exército    outorga    ao(à)</p><br>" & _
  "<p align="center"><b>" & [P_Grad] & "  " & [Tbl_Expedicao.Nome] & "</b></p> <br>" & _
  "<p> a  Medalha  do  Pacificador  pelos  assinalados  serviços  prestados  ao  Exército  Brasileiro,  tendo  se  tornado  credor(a)  de  homenagem  especial  da  Instituição." & "</p>" & _
  "<p>          E,  para  constar,  mandou  expedir  o  presente  diploma.</p>"

Bom dia,

infelizmente o código acima também não deu o resultado esperado.
Estou pensando em fazer um While para adicionar os espaços necessários, de modo que o campo fique centralizado, através da inserção de um paragrafo, baseado no total em caracteres existente na linha da caixa de texto e no comprimento (Len) e na quantidade de caracteres do texto a centralizar.

Algo assim:

Option Explicit 'Compare Database

Public Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim paragrafo As String
Const espaco = " "
Dim i, comprimento As Integer

i = 0
comprimento = 0

comprimento = Len(P_Grad & "  " & [Tbl_Expedicao.Nome])
   If comprimento < 58 Then                              ' 58 é comprimento em caracteres do espaço horizontal da caixa de texto
      comprimento = (58 - comprimento) / 2        ' cálculo do espaço para começar o texto
      Do While comprimento > i
       i = i + 1
       paragrafo = paragrafo & espaco
      Loop
   End If
   txt_Diploma = "           O     Comandante     do     Exército     outorga    ao(à)<br>" & _
 paragrafo & "<b>" & [P_Grad] & "  " & [Tbl_Expedicao.Nome] & "</b></p>" & _
 "<p> a  Medalha  do  Pacificador  pelos  assinalados  serviços  prestados  ao  Exército  Brasileiro,  tendo  se  tornado  credor(a)  de  homenagem  especial  da  Instituição." & "</p>" & _
 "<p>           E,  para  constar,  mandou  expedir  o  presente  diploma.</p>"

Funcionou perfeitamente desta forma:


mStr = (P_Grad & "  " & [Tbl_Expedicao.Nome])
   
   txt_Diploma = "           O     Comandante     do     Exército     outorga    ao(à)<br>" & _
                 "<b> <p align=center>" & mStr & "</b></p>" & _
                 "<p> a  Medalha  do  Pacificador  pelos  assinalados  serviços  prestados  ao  Exército  Brasileiro,  tendo  se  tornado  credor(a)  de  homenagem  especial  da  Instituição." & "</p>" & _
                 "<p>           E,  para  constar,  mandou  expedir  o  presente  diploma.</p>"


Muitíssimo obrigado Alexandre Neves pelo auxílio. Sua dica estava correta mas demorei para acertar os detalhes.

Saudações