Conas a chuardach agus a athsholáthar ar fud comhaid il i bhfocail?

Má tá roinnt dosaen comhad focal agat ina bhfuil an t-ábhar céanna (mar shampla Ceannteideal, buntásc, focail nó uimhir áirithe), agus is gá duit an t-ábhar céanna a chur in ionad na doiciméid sin i Word. Cén chaoi a mbeadh sé níos éasca duit é a dhéanamh go tapa? Ar ndóigh, is féidir leat na comhaid sin a oscailt ó cheann amháin chun an t-ábhar céanna a athsholáthar, ach beidh sé an-íogair agus tromchúiseach. Taispeánfaidh an teagascóir seo bealach deacair duit an t-ábhar céanna a chur in ionad na gcáipéisí éagsúla i Word ag an am céanna.

Faigh téacsanna in ionad téacsanna ilfhocail agus cuir in ionad iad ag an am céanna le cód VBA

Faigh téacsanna in ionad téacsanna ilfhocail agus cuir in ionad iad ag an am céanna le cód VBA

1. Brúigh Eile + F11 a oscailt Microsoft Visual Basic d'Iarratais fhuinneog.

2. Sa Microsoft Visual Basic d'Iarratais fuinneog, cliceáil Ionsáigh > Modúil, cóipeáil an cód VBA seo a leanas isteach sa fhuinneog Modúl.

Cód VBA: Cuardach agus athsholáthar a dhéanamh ar an ábhar céanna ar dhoiciméid éagsúla ag aon am amháin

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. Brúigh an F5 eochair chun an cód a reáchtáil.

4. San oscailt Brabhsáil fuinneog, téigh agus roghnaigh na doiciméid a gheobhaidh tú agus cuir isteach an téacs taobh istigh, agus ansin cliceáil ar an OK cnaipe. Féach ar an scáileán:

5. Sa chéad uair Kutools do Word dialóg, cuir isteach an téacs a gheobhaidh tú ar dhoiciméid isteach sa Aimsigh cad bosca, agus ansin cliceáil ar an OK cnaipe.

6. Sa dara háit Kutools do Word dialóg, cuir isteach an téacs a chuirfidh tú in áit, agus cliceáil ar an OK cnaipe.

8. Cliceáil ar an OK cnaipe sa chéad cheann eile Microsoft Word dialóg chun deireadh a chur leis an teacht agus a athsholáthar.

Sa chás seo, cuirtear "Excel" in ionad na bhfocal "Word" i gcáipéisí roghnaithe ag an am céanna.

Kutools do Word

Níos mó ná 100 Feidhmeanna Casta le haghaidh Word 2003, 2007, 2010, 2013, 2016 agus 2019

Gnéithe níos mó | Free Download | Níl ach $ 39.00 ar na céadta feidhmeanna