Comment insérer le chemin du fichier et le nom de fichier sans extension dans un document Word?
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
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:
Notes: 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 !
🤖 Assistant IA Kutools: Transformez votre écriture avec l'IA - Générer du contenu / Réécrire le texte / Résumer des documents / Demander des informations basé sur le document, le tout dans Word
(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 / Exporter des pages sous forme d'images / Imprimer plusieurs fichiers à la fois
✏ Édition du contenu: Rechercher et remplacer 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 / Tous les en-têtes / Boîtes de texte / Liens hypertextes / Pour plus d'outils de suppression, rendez-vous sur notre Supprimer le groupe
➕ Insertions créatives: Insérer Mille séparateurs / Cases à cocher / Boutons radio / code QR / Code barres / Tableau des lignes diagonales / Légende de l'équation / Légende / Légende de la table / Plusieurs images / Découvrez-en davantage dans le Insérer un groupe
🔍 Sélections de précision: Localiser pages spécifiques / les tables / formes / paragraphes de titre / Améliorez la navigation avec PLUS Sélectionnez les fonctionnalités
⭐ Améliorations des étoiles: Naviguez rapidement vers n’importe quel endroit / insertion automatique de texte répétitif / basculer de manière transparente entre les fenêtres de document / 11 outils de conversion