Vidakuzi vinatusaidia kutoa huduma zetu. Kwa kutumia huduma zetu, unakubaliana na matumizi yetu ya kuki.
Kidokezo: Lugha zingine ni Google-Ilitafsiriwa. Unaweza kutembelea English toleo la kiungo hiki.
Ingia
x
or
x
x
Daftari
x

or

Jinsi ya kutafuta na kuchukua nafasi katika faili nyingi kwa neno?

Ikiwa una files kadhaa ya neno ambayo yana maudhui sawa (kama kichwa, footer, baadhi ya maneno maalum au namba), na unahitaji kubadilisha maudhui sawa katika nyaraka hizo kwa Neno. Je, itakuwa ni rahisi kwa nini kufanywa haraka? Hakika, unaweza kufungua faili hizo moja kwa moja ili kuchukua nafasi ya maudhui yaliyofanana, lakini itakuwa wakati mwingi na wenye matatizo. Mafunzo haya atakuonyesha njia yenye ufumbuzi ya kuchukua nafasi ya maudhui sawa ndani ya nyaraka nyingi kwa Neno mara moja.

Pata na uweke nafasi ya maandishi katika nyaraka nyingi za neno wakati huo huo na msimbo wa VBA


Unganisha / kuunganisha nyaraka nyingi kwa moja kwa urahisi:

The Unganisha Nyaraka matumizi ya Kutools kwa Neno inaweza kukusaidia kuchanganya nyaraka nyingi kwa haraka moja. Unahitaji tu:

  • Chagua nyaraka utakazochanganya kuwa moja;
  • Taja kuvunja kati ya hati ya pamoja;
  • Anza kuunganisha. Angalia skrini:

Kutools kwa Neno: na zaidi ya 100 kuingilia neno Word, bure kujaribu na hakuna uhaba katika siku 30. Pakua na jaribio la bure Sasa!

Kutools kwa Neno: Ongeza Makala mpya ya Advanced ya 100 Neno 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Tabia ya Ofisi: Wezesha Uhariri wa Tabbed na Utafutaji katika Ofisi, Kama Chrome, Firefox, IE 8 / 9 / 10.
Menyu ya Classic ya Ofisi: Kuleta Angalia Kale ya ofisi ya 2003 Nyuma kwa Ofisi 2007, 2010, 2013, 2016 na 2019.

Pata na uweke nafasi ya maandishi katika nyaraka nyingi za neno wakati huo huo na msimbo wa VBA

1. Bonyeza Alt + F11 kufungua Microsoft Visual Msingi kwa Maombi dirisha.

2. Ndani ya Microsoft Visual Msingi kwa Maombi dirisha, bonyeza Ingiza > Modules, nakala nakala ya VBA ifuatayo kwenye dirisha la Moduli.

Kanuni ya VBA: Kutafuta na kubadilisha maudhui sawa na nyaraka nyingi kwa wakati mmoja

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. Waandishi wa habari F5 ufunguo wa kuendesha msimbo.

4. Katika ufunguzi kuvinjari dirisha, tafadhali tafuta na uchague nyaraka utakayopata na uingie maandiko ndani, kisha bonyeza OK kifungo. Angalia skrini:

5. Katika kwanza Kutools kwa Neno sanduku la mazungumzo, ingiza maandiko utakayopata nyaraka ndani Pata nini sanduku, na kisha bofya OK button.

6. Katika pili Kutools kwa Neno bogi ya mazungumzo, ingiza maandishi ambayo utaifanya, na bofya OK button.

8. Bonyeza OK kifungo katika ijayo Microsoft Word bogi ya mazungumzo ili kumaliza kupata na kuchukua nafasi.

Katika kesi hii, maneno yote "Neno" katika nyaraka zilizochaguliwa hubadilishwa na "Excel" kwa wakati mmoja.


Tabia ya Ofisi - Kufuatilia Tabbed, Kuhariri, na Kusimamia Nyaraka nyingi kwa Neno:

Tabia ya Ofisi huleta interface ya tabbed kama inavyoonekana kwenye vivinjari vya wavuti kama Google Chrome, Internet Explorer mpya matoleo na Firefox kwa Microsoft Word. Ni mapenzi kuwa chombo cha kuokoa muda na kisichoweza kuingizwa katika kazi yako. Tazama demo ya chini:

Bofya kwa jaribio la bure la Tabia ya Ofisi!




Kutools kwa Neno

Zaidi ya kazi za 100 za Juu kwa Neno 2003, 2007, 2010, 2013, 2016 na 2019

risasi-kutools-700-225-kte

Makala zaidi | bure Download | Tu $ 39.00 kwa mamia ya kazi

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.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 10 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months 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 !