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:

Importante: 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

Ferramentas de produtividade de palavras recomendadas