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