dotx - nome do arquivo ao salvar um novo documento baseado no modelo

Question

Caros colegas,

Quando criamos um dotx e damos um clique duplo sobre este arquivo, o Word carrega o modelo em um arquivo novo não salvo (p. ex: Documento 1).

Ao salvar este novo documento, é aberta uma caixa para indicarmos o nome o caminho e nome do arquivo.

A pergunta é como forçar que aparece sugerido um nome de arquivo específico? Qual a propriedade que deve ser alterada para no dotx?

abraços,

---

Andre Mateus Gava

Answer 1

Caros colegas,

Quando criamos um dotx e damos um clique duplo sobre este arquivo, o Word carrega o modelo em um arquivo novo não salvo (p. ex: Documento 1).

Ao salvar este novo documento, é aberta uma caixa para indicarmos o nome o caminho e nome do arquivo.

A pergunta é como forçar que aparece sugerido um nome de arquivo específico? Qual a propriedade que deve ser alterada para no dotx?

abraços,

---

Andre Mateus Gava

Gostaria de complementar a questão:

Qual a tag do .dotx que mostra sugerido o nome do arquivo?

---

Andre Mateus Gava

Answer 2

O TAG a ser mudado é o Título.

Answer 3

a TAG Título se limita a mostrar as primeiras palavras até o primeiro . ou -

 

como faço para que o titulo mostrado seja, por exemplo: [cliente] - [assunto]?

---

Andre Mateus Gava

Answer 4

Não tem jeito.

Uma sugestão para contornar esse problema seria implementar VBA. Mas para fazer isso, seu modelo deverá ser .dotm (conterá macros). A macro que você deve adicionar será Em ThisDocument, e o código é:

Option Explicit

Private WithEvents wdApp As Word.Application

Private Sub Document_Open()
  Set wdApp = ThisDocument.Application
End Sub

Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
  Cancel = True
  With Dialogs(wdDialogFileSaveAs)
    .Name = ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)
    .Show
  End With
End Sub

Answer 5

Felipe,

Colei este código em ThisDocument mas quando dou o comando de Salvar como não copia o conteúdo do campo Título.

obs: colei o código exatamente como ele está apresentado.

abraços

---

Andre Mateus Gava

Answer 6

Não testei o código, mas por se tratar de um documento gerado a partir de um template, creio que a propriedade wdApp (ou seja, a linha Set wdApp = ThisDocument.Application) deva ser colocada no evento New, não no Open.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br

Answer 7

Isso está acontecendo porque a rotina

 

Private Sub Document_Open()

 

não está sendo executada. Dessa forma, a variável wdApp não está sendo atribuída à aplicação do Word e, sendo assim, quando salvar um documento, a rotina

 

Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)

 

não é chamada. Você provavelmente está colando esse código em um documento de Word .docm. Para que funcione, você tem que colar o código num modelo .dotm e depois criar um novo documento com base no modelo recém-salvo, entendeu?

Answer 8

Luiz,

 

Concordo com você.