Conas ainm an údair a athrú le haghaidh tuairimí Word

Tá an t-alt seo ag caint ar ainm an údair réamhshocraithe a athrú le haghaidh tuairimí, nó ainm an údair atá ann cheana a athrú i ndoiciméad go ceann nua. Bain triail as an dá mhodh thíos le do thoil.

Athraigh ainm údair na dtuairimí le húsáid sa todhchaí

Athraigh ainm údair an doiciméid atá sna tuairimí atá ann cheana

Athraigh ainm údair na dtuairimí le húsáid sa todhchaí

Más mian leat ainm údair an nóta tráchta a athrú le húsáid sa todhchaí, athraigh an tAinm Úsáideora isteach Word Fuinneog roghanna.

1. I oscail Word doiciméad, cliceáil Comhad > Roghanna. Sa an Word Roghanna fuinneog, déan cinnte go bhfuil tú ag lonnú sa Go ginearálta cluaisín, athraigh an t-ainm sa Ainm Úsáideora bosca mar a thaispeántar thíos an scáileán, agus cliceáil ar deireadh OK cnaipe.

Anois tá an t-ainm úsáideora réamhshocraithe athraithe agat le haghaidh tuairimí isteach Word doiciméad.

Athraigh ainm údair an doiciméid atá sna tuairimí atá ann cheana

Má tá doiciméad faighte agat le go leor tuairimí, agus gur mhaith leat ainmneacha údair na dtuairimí go léir a athrú go ceann áirithe, déanfaidh an cód VBA seo a leanas bhfabhar duit.

1. Roghnaigh an raon ina bhfuil tráchtanna nó roghnaigh an doiciméad iomlán athróidh tú ainmneacha na n-údar trí bhrú ar an Ctrl + A eochracha, brúigh an Eile + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Athraigh ainm údair an doiciméid atá ann cheana féin

Sub ChangeCommentAuthor()
'Updated by EntendOffice 20181112
    Dim I As Long
    Dim xNewName As String
    Dim xShortName As String
    If Selection.Comments.Count = 0 Then
        MsgBox "No comments in your selection!", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xNewName = InputBox("New author name?", "KuTools for Word")
    xShortName = InputBox("New author initials?", "KuTools for Word")
    If xNewName = "" Or xShortName = "" Then
        MsgBox "The author name/initials can’t be empty.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    With Selection
        For I = 1 To .Comments.Count
            .Comments(I).Author = xNewName
            .Comments(I).Initial = xShortName
        Next I
    End With
End Sub

3. Brúigh an F5 eochair chun an cód a rith. San oscailt Nótaí Ainm an Údair bosca dialóige, cuir ainm an údair nua isteach sa bhosca téacs agus cliceáil ar an OK cnaipe.

4. Sa chéad oscailt eile Túslitreacha tosaigh bosca dialóige, iontráil na ceannlitreacha de réir mar is gá duit agus cliceáil ar an OK cnaipe.

Ansin athraítear ainmneacha údair na dtuairimí uile sa raon roghnaithe go dtí an ceann sonraithe díreach mar atá thíos an pictiúr a thaispeántar.

---

molta Word Uirlisí Táirgiúlachta

 

Kutools For Word - Níos mó ná 100 Ardghnéithe Do Word, Sábháil Do Am 50%.

• 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 iolracha trasna fillteáin isteach Word doiciméad láithreach.
• Cumaisc agus cuir le chéile iolrach Word comhaid trasna fillteáin isteach i gceann le d'ordú inmhianaithe.
• 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 ...

Leigh Nios mo Íosluchtaigh Anois Ceannach