Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

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

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

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


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

Voer de volgende VBA-code in om de bestandsnaam zonder extensie in Word-document in te voegen:

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

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

3. En klik vervolgens op bijvoegsel > module, kopieer en plak onderstaande code in de geopende lege module.

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

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 ingevoegd in het document, zie screenshot:

bestandsnaam van doc tussenvoeg zonder extensie 1

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

VBA-code: voeg alleen de bestandsnaam 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 For Word - meer dan 100 geavanceerde functies voor Microsoft Word, sla uw 50% tijd op

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop 1, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, en zo verder ...
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.