Passer au contenu principal

Explorez le nouveau, version gratuite de Kutools pour Outlook aujourd'hui !

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

Auteur : Xiaoyang Dernière modification: 2024-08-23

Normalement, nous pouvons insérer le nom de fichier ou le chemin 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é comprend l'extension de fichier docx ou doc. Comment pouvez-vous insérer le nom du fichier ou le chemin et le nom du fichier sans extension?

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

Outils de productivité recommandés pour Word

Kutools for Word: Intégrer l'IA 🤖, plus de 100 fonctionnalités avancées vous font gagner 50 % du temps de traitement de vos documents.Téléchargement gratuit

Office Tab: présente les onglets de type navigateur dans Word (et d'autres outils Office), simplifiant la navigation multi-documents.Téléchargement gratuit

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

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

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

2. Ensuite, maintenez le 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 et le nom du fichier 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 et le nom du fichier ont été insérés dans le document sans extension, voir capture d'écran:

Le chemin et le nom du fichier sont insérés dans le document sans extension

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

Code VBA: insérer 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

Meilleurs outils de productivité bureautique

Kutools for Word - Élevez votre expérience Word avec Over 100 Caractéristiques remarquables !

🤖 Fonctionnalités d'IA de Kutools: Assistant d'IA / Assistant en temps réel / Super Polish (Format de conservation) / Super Translate (Préserver le format) / Rédaction IA / Relecture par IA

(I.e. Maîtrise des documents: Pages divisées / Fusionner des documents / Exporter la sélection dans différents formats (PDF/TXT/DOC/HTML...) / Conversion par lots en PDF

✏ Édition du contenu: Recherche et remplacement par lots sur plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et les colonnes du tableau / Convertir le tableau en texte

🧹 Nettoyage sans effort : balayer Espaces supplémentaires / Sauts de section / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur Effacer grouper...

➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Plusieurs images / Découvrez-en davantage dans le insérer grouper...

🔍 Sélections de précision: Localiser Pages spécifiques / Tables / Formes / Titre des paragraphes / Améliorez la navigation avec plus Pour plus d'information Caractéristiques

⭐ Améliorations des étoiles: Accédez à n'importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les fenêtres de document / 11 Conversion Outils

???? Prend en charge plus de 40 langues:Utilisez Kutools dans votre langue préférée – prend en charge l'anglais, l'espagnol, l'allemand, le français, le chinois et plus de 40 autres !

Onglets Kutools et Kutools Plus sur le ruban Word
👉 Vous voulez essayer ces fonctionnalités ? Téléchargez Kutools pour Word maintenant ! 🚀
 

Meilleurs outils de productivité bureautique

Kutools for Word - 100+ outils pour Word

Téléchargement gratuit Acheter maintenant En savoir plus sur Kutools