Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Xiaoyang Last modified

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 Office

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

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

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

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

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

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

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

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools