Note: The other languages of the website are Google-translated. Back to English
Logáil isteach  \/ 
x
or
x
Cláraigh  \/ 
x

or

 Conas cosán comhaid agus ainm comhaid a chur isteach gan síneadh i ndoiciméad Word?

De ghnáth, is féidir linn ainm an chomhaid nó cosán agus ainm an chomhaid a chur isteach sa doiciméad Word trí fheidhm réimse Ainm an Chomhaid a úsáid, ach, chuir an t-ainm comhaid seo isteach lena n-áirítear an docx síneadh comhaid nó doc. Conas a d’fhéadfá ainm an chomhaid nó cosán agus ainm an chomhaid a chur isteach gan síneadh?

Cuir isteach cosán comhaid agus ainm nó ainm comhaid gan síneadh trí chód VBA a úsáid


Cuir isteach cosán comhaid agus ainm nó ainm comhaid gan síneadh trí chód VBA a úsáid

Chun ainm an chomhaid a chur isteach gan síneadh sa doiciméad Word, cuir an cód VBA seo a leanas i bhfeidhm:

1. Cuir an cúrsóir chuig áit inar mian leat cosán agus ainm an chomhaid a chur isteach gan síneadh.

2. Ansin, coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

3. Agus ansin, cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh an cód thíos sa mhodúl bán oscailte.

Cód VBA: Cuir isteach cosán agus ainm an chomhaid gan síneadh:

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. Ansin brúigh F5 eochair chun an cód seo a rith agus tá cosán agus ainm an chomhaid curtha isteach sa doiciméad gan síneadh, féach an scáileán:

doc cuir isteach ainm comhaid gan síneadh 1

nótaí: Mura dteastaíonn uait ach ainm an chomhaid a chur isteach gan síneadh sa doiciméad, ba cheart duit an cód seo a chur i bhfeidhm:

Cód VBA: Cuir isteach ainm comhaid gan síneadh:

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



Uirlisí Táirgeachta Focal Molta

 

Kutools For Word - Níos mó ná 100 Gné Ardteist le haghaidh Word, Sábháil Do 50% Am

  • Is féidir oibríochtaí casta agus arís agus arís eile a dhéanamh próiseáil aon-uaire i soicindí.
  • Cuir isteach íomhánna iomadúla thar fhillteáin i ndoiciméad Word ag an am céanna.
  • Cumaisc agus comhcheangail comhaid Word iolracha thar fhillteáin i gceann amháin leis an ord atá uait.
  • Roinn an doiciméad reatha i ndoiciméid ar leithligh de réir ceannteidil, briseadh ailt nó critéir eile.
  • Tiontaigh comhaid idir Doc agus Docx, Docx agus PDF, bailiú uirlisí le haghaidh comhshó agus roghnú coitianta, agus mar sin de ...

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.