Como inserir o caminho do arquivo e o nome do ficheiro sem extensão num documento do Word?

Normalmente, podemos inserir o nome do ficheiro ou o respetivo caminho no documento do Word utilizando o campo «Nome do Ficheiro», mas este inclui sempre a extensão (como .docx ou .doc). Como inserir o nome do ficheiro ou o seu caminho sem a extensão?

Inserir Caminho do Arquivo e o nome ou o nome do ficheiro sem extensão utilizando código VBA

---

Inserir Caminho do Arquivo e o nome ou o nome do ficheiro sem extensão utilizando código VBA

Para inserir o nome do ficheiro sem extensão num documento do Word, aplique o seguinte código VBA:

1. Coloque o cursor no local onde pretende inserir o caminho do ficheiro e o respetivo nome, sem extensão.

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

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

Código VBA: Inserir Caminho do Arquivo e o 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, prima a tecla F5 para executar este código e o caminho do ficheiro e o respetivo nome serão inseridos no documento sem a extensão, conforme ilustrado na imagem:

Nota: Se pretender apenas inserir o nome do ficheiro sem extensão no documento, deve utilizar este código:

Código VBA: Inserir apenas o nome do ficheiro 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

---