Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

 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:

doc inserir nome de arquivo sem extensão 1

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

 

Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo

  • Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
  • Insira várias imagens em pastas em um documento do Word de uma vez.
  • Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
  • Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
  • Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.