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



Outils de productivité Word recommandés

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

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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.