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

  • Pergunta

  • 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
    quarta-feira, 11 de agosto de 2010 15:15

Todas as Respostas

  • 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
    quinta-feira, 12 de agosto de 2010 14:35
  • O TAG a ser mudado é o Título.
    quinta-feira, 19 de agosto de 2010 23:27
  • 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
    sexta-feira, 20 de agosto de 2010 21:01
  • 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

    sexta-feira, 20 de agosto de 2010 22:13
  • 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
    segunda-feira, 23 de agosto de 2010 18:28
  • 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
    segunda-feira, 23 de agosto de 2010 22:49
    Moderador
  • 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?

    segunda-feira, 23 de agosto de 2010 22:55
  • Luiz,

     

    Concordo com você.

    segunda-feira, 23 de agosto de 2010 23:43