Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

 Hoe bestandspad en bestandsnaam zonder extensie in Word-document invoegen?

Normaal gesproken kunnen we de bestandsnaam of het bestandspad en de naam in het Word-document invoegen met behulp van de veldfunctie Bestandsnaam, maar deze ingevoegde bestandsnaam inclusief de bestandsextensie docx of doc. Hoe kunt u de bestandsnaam of het bestandspad en de naam zonder extensie invoegen?

Voeg bestandspad en naam of bestandsnaam zonder extensie in met behulp van VBA-code


Voeg bestandspad en naam of bestandsnaam zonder extensie in met behulp van VBA-code

Om de bestandsnaam zonder extensie in een Word-document in te voegen, past u de volgende VBA-code toe:

1. Zet de cursor op een plaats waar u het bestandspad en de naam zonder extensie wilt invoegen.

2. Houd vervolgens de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

3. En klik dan Invoegen > module, kopieer en plak onderstaande code in de geopende lege module.

VBA-code: voeg bestandspad en naam in zonder extensie:

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. Druk vervolgens op F5 sleutel om deze code uit te voeren en het bestandspad en de naam zijn zonder extensie in het document ingevoegd, zie screenshot:

doc bestandsnaam invoegen zonder extensie 1

Opmerking:: Als u alleen de bestandsnaam zonder extensie in het document wilt invoegen, moet u deze code toepassen:

VBA-code: voeg de bestandsnaam alleen in zonder extensie:

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



Aanbevolen Word-productiviteitstools

 

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...

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.