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

or

 Sut i fewnosod llwybr ffeil ac enw ffeil heb ei estyn yn nogfen Word?

Fel rheol, gallwn fewnosod enw'r ffeil neu'r llwybr ffeil a'r enw yn y ddogfen Word trwy ddefnyddio swyddogaeth maes Enw Ffeil, ond, mewnosododd yr enw ffeil hwn gan gynnwys docx estyniad y ffeil neu'r doc. Sut allech chi fewnosod enw'r ffeil neu'r llwybr ffeil a'r enw heb estyniad?

Mewnosod llwybr ffeil ac enw neu enw ffeil heb estyniad trwy ddefnyddio cod VBA


Mewnosod llwybr ffeil ac enw neu enw ffeil heb estyniad trwy ddefnyddio cod VBA

I fewnosod enw'r ffeil heb ei estyn yn nogfen Word, cymhwyswch y cod VBA canlynol:

1. Rhowch y cyrchwr i fan lle rydych chi am fewnosod llwybr ac enw'r ffeil heb ei estyn.

2. Yna, dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Ac yna, cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl gwag agored.

Cod VBA: Mewnosod llwybr ac enw ffeil heb estyniad:

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. Yna pwyswch F5 allwedd i redeg y cod hwn ac mae'r llwybr a'r enw ffeil wedi'i fewnosod yn y ddogfen heb ei estyn, gweler y screenshot:

mewnosodwch enw ffeil heb estyniad 1

Nodyn: Os ydych chi am fewnosod enw'r ffeil heb ei estyn yn y ddogfen, dylech gymhwyso'r cod hwn:

Cod VBA: Mewnosodwch enw ffeil yn unig heb estyniad:

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



Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools For Word - Mwy na 100 o Nodweddion Uwch ar gyfer Word, Arbedwch Eich Amser 50%

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...

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.