Note: The other languages of the website are Google-translated. Back to English
Mon Compte  \/ 
x
or
x
S’enregistrer  \/ 
x

or

 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:

doc insérer le nom de fichier sans extension 1

importante: 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



Outils de productivité Word recommandés

 

Kutools For Word - Plus de 100 fonctionnalités avancées pour Word, économisez 50% de votre temps

  • Les opérations compliquées et répétées peuvent être effectuées une seule fois en quelques secondes.
  • Insérez simultanément plusieurs images dans des dossiers dans un document Word.
  • Fusionner et combiner plusieurs fichiers Word dans des dossiers en un seul avec l'ordre souhaité.
  • Divisez le document actuel en documents séparés selon l'en-tête, le saut de section ou d'autres critères.
  • Convertissez des fichiers entre Doc et Docx, Docx et PDF, collection d'outils pour les conversions et la sélection courantes, etc.

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.