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:

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