Como inserir o caminho e o nome do arquivo sem extensão no documento do Word?
Normalmente, podemos inserir o nome do arquivo ou caminho e nome do arquivo no documento do Word usando a função de campo Nome do arquivo, mas este nome de arquivo inserido inclui a extensão de arquivo docx ou doc. Como você pode inserir o nome do arquivo ou caminho e nome do arquivo sem extensão?
Insira o caminho e o nome do arquivo ou o nome do arquivo sem extensão usando o código VBA
Insira o caminho e o nome do arquivo ou o nome do arquivo sem extensão usando o 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 em um local onde deseja inserir o caminho e o nome do arquivo sem extensão.
2. Então, mantenha pressionado o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
3. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto.
Código VBA: insira o caminho e o nome do arquivo 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. Então aperte F5 para executar este código e o caminho e o nome do arquivo foram inseridos no documento sem extensão, consulte a captura de tela:
Note: Se você deseja apenas inserir o nome do arquivo sem extensão no documento, você deve aplicar este código:
Código VBA: insira o nome do arquivo apenas 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 de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...