Leid: Aistrítear Google-theangacha eile. Is féidir leat cuairt a thabhairt ar an English leagan den nasc seo.
Logáil isteach
x
or
x
x
Cláraigh
x

or

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


Comhcheangail / cumaisctear go leor cáipéisí go héasca:

An Doiciméid Chomhcheangail fóntais Kutools do Word is féidir leat cabhrú le doiciméid éagsúla a chur le chéile go tapa. Ní mór duit ach:

  • Roghnaigh na doiciméid a chuirfidh tú le chéile i gceann amháin;
  • Sonraigh an sos idir gach doiciméad comhcheangailte;
  • Tosaigh le chéile. Féach ar an scáileán:

Kutools do Word: le níos mó ná breiseán Word handy 100, saor in aisce chun iarracht gan aon teorannú a dhéanamh i laethanta 30. Íoslódáil agus triail saor in aisce Anois!

Kutools do Word: Cuir 100 Nua Gnéithe Casta go Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tab Office: Cumasaigh Eagarthóireacht agus Browsing Tabbed in Oifig, Just Like Chrome, Firefox, IE 8 / 9 / 10.
Menu Classic don Oifig: Tabhair Seanfhuinneog Oifig 2003 Ar ais chuig Oifig 2007, 2010, 2013, 2016 agus 2019.

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.


Tab Office - Brabhsáil, Eagarthóireacht, Tabhairt faoi Dheilbhíní agus Doiciméid éagsúla i Word:

Tugann an Tab Office an comhéadan tabbed mar atá le feiceáil i mbrabhsálaithe gréasáin cosúil le leaganacha nua Google Chrome, Internet Explorer agus Firefox go Microsoft Word. Tá sé Beidh bheith ina uirlis shábháil ama agus ní féidir a bheith in-athshuite i do chuid oibre. Féach taispeántas thíos:

Cliceáil le haghaidh triail saor in aisce ar Chlár na hOifige!




Kutools do Word

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

shot-kutools-700-225-kte

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

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Kath · 1 years ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !
  • To post as a guest, your comment is unpublished.
    Rouzbeh · 1 years ago
    hi, i want to replace a number but i guess the problem that it's not working is that the number is not written in english it's in Persian. I would be so thankfull if someone can help me with it.
    • To post as a guest, your comment is unpublished.
      Rouzbeh · 1 years ago
      sorry, i was wrong. the problem is that the number is in the header and it seems that the trick is not working in header. if i open one of the files and activate the header then run the module it works but just in that specific file ,even if i select all the files. thanks again.
  • To post as a guest, your comment is unpublished.
    Rav · 1 years ago
    Hi, I new to VBA. I am able to get the data updated for only single file. How to select multiple files when the VBA script opens up ? The question might be simple to few, but it will help. Since i need to update a string in 175+ plus word files. Appreciate your quick response. Thanks ...
    • To post as a guest, your comment is unpublished.
      Asi · 1 years ago
      Put your files in one folder and select them all with a shift key. Hope this works.
  • To post as a guest, your comment is unpublished.
    darshan Jain · 1 years ago
    Hi
    this code is only editing 7 documents at a time... why?
  • To post as a guest, your comment is unpublished.
    Bryce · 1 years ago
    I really appreciated this post. Thank you. It allowed me to spend 10 minutes implementing something that saved several hours of work.