Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment insérer un chemin de fichier et un nom de fichier sans extension dans un document Word?

Normalement, nous pouvons insérer le nom de fichier ou le chemin d'accès et le nom du fichier dans le document Word en utilisant la fonction de champ Nom de fichier, mais ce nom de fichier inséré incluant l'extension de fichier docx ou doc. Comment pouvez-vous insérer le nom de fichier ou le chemin d'accès et le nom du fichier sans extension?

Insérer le chemin du fichier et le nom ou le nom du fichier sans extension à l'aide du code VBA


Insérer le chemin du fichier et le nom ou le nom du fichier sans extension à l'aide du code VBA

Pour insérer le nom de fichier sans extension dans un document Word, appliquez le code VBA suivant:

1. Placez le curseur sur un emplacement où vous souhaitez insérer le chemin du fichier et le nom sans extension.

2. Ensuite, maintenez la ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert.

Code VBA: Insérer le chemin du fichier et le nom sans extension:

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. Puis appuyez F5 clé pour exécuter ce code et le chemin d'accès et le nom du fichier ont été insérés dans le document sans extension, voir la capture d'écran:

doc insert nom de fichier sans extension 1

Note: Si vous souhaitez simplement insérer le nom de fichier sans extension dans le document, vous devez appliquer ce code:

Code VBA: insérez le nom du fichier uniquement sans extension:

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



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
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.