Skip to main content

Como inserir o caminho do arquivo e o nome do arquivo sem extensão no Documento do Word?

Author: Xiaoyang Last Modified: 2025-08-06

Normalmente, podemos inserir o nome do arquivo ou o caminho do arquivo e o nome no Documento do Word usando a função de campo Nome do Arquivo, mas esse nome de arquivo inserido inclui a extensão docx ou doc. Como você poderia inserir o nome do arquivo ou o caminho do arquivo e o nome sem a extensão?

Inserir caminho do arquivo e nome ou nome do arquivo sem extensão usando código VBA

Ferramentas de Produtividade Recomendadas para Word

Kutools para Word: Integrando IA 🤖, mais de 100 recursos avançados economizam 50% do seu tempo de manipulação de documentos.Download Grátis

Office Tab: Introduz guias no estilo de navegador ao Word (e outras ferramentas do Office), simplificando a navegação entre vários documentos.Download Grátis

Inserir caminho do arquivo e nome ou nome do arquivo sem extensão usando código VBA

Para inserir o nome do arquivo sem extensão no Documento do Word, aplique o seguinte código VBA:

1. Coloque o cursor no local onde deseja inserir o caminho do arquivo e o nome sem extensão.

2. Em seguida, pressione as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

3. Depois disso, clique em Inserir > Módulo, copie e cole o código abaixo no módulo em branco aberto.

Código VBA: Inserir caminho do arquivo e nome sem extensão:

Sub InsertFileNameAndPath()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.FullName, ".")
        xPathName = VBA.Left(.FullName, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

4. Em seguida, pressione a tecla F5 para executar este código e o caminho do arquivo e o nome serão inseridos no documento sem a extensão, veja a captura de tela:

The file path and name are inserted into the document without extension

Nota: Se você quiser apenas inserir o nome do arquivo sem extensão no documento, deve aplicar este código:

Código VBA: Inserir apenas o nome do arquivo sem extensão:

Sub InsertFileNameOnly()
    Dim xPathName As String
    Dim xDotPos As Integer
    With Application.ActiveDocument
        If Len(.Path) = 0 Then .Save
        xDotPos = VBA.InStrRev(.Name, ".")
        xPathName = VBA.Left(.Name, xDotPos - 1)
    End With
    Application.Selection.TypeText xPathName
End Sub

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools