Note: The other languages of the website are Google-translated. Back to English

Sut i chwilio a newid ffeiliau lluosog mewn gair?

Os oes gennych sawl dwsin o ffeiliau geiriau sy'n cynnwys yr un cynnwys (fel Pennawd, troedyn, rhai geiriau neu rif arbennig), ac mae angen i chi ddisodli'r un cynnwys ar draws y dogfennau hynny yn Word. Sut y byddai'n haws ichi ei wneud yn gyflym? Yn sicr, gallwch agor y ffeiliau hynny fesul un i ddisodli'r un cynnwys, ond bydd yn cymryd llawer o amser ac yn drafferthus. Bydd y tiwtorial hwn yn dangos ffordd anodd i chi ddisodli'r un cynnwys mewn sawl dogfen yn Word ar unwaith.

Dod o hyd i destunau ar draws sawl dogfen ar yr un pryd â chod VBA
Yn hawdd dod o hyd i destunau gwahanol a'u disodli ar draws sawl dogfen ar yr un pryd â Kutools for Word


Dod o hyd i destunau ar draws sawl dogfen ar yr un pryd â chod VBA

1. Gwasgwch Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch MewnosodModiwlau, yna copïwch y cod VBA canlynol i mewn i ffenestr y Modiwl.

Cod VBA: Chwilio ac ailosod yr un cynnwys ar draws sawl dogfen ar yr un pryd

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. Gwasgwch y F5 allwedd i redeg y cod.

4. Yn yr agoriad Pori ffenestr, dewch o hyd i a dewis y dogfennau y byddwch yn dod o hyd iddynt a newid testun y tu mewn, ac yna cliciwch ar y OK botwm. Gweler y screenshot:

5. Yn y cyntaf Kutools am Word blwch deialog, nodwch y testun y byddwch yn dod o hyd iddo ar draws dogfennau yn y Dewch o hyd i beth blwch, ac yna cliciwch ar y OK botwm.

6. Yn yr ail Kutools am Word blwch deialog, nodwch y testun y byddwch yn ei ddisodli, a chliciwch ar y OK botwm.

8. Cliciwch ar y OK botwm yn y nesaf Microsoft Word blwch deialog i orffen y darganfyddiad a'i ailosod.

Yn yr achos hwn, mae "Excel" yn disodli'r holl eiriau "Word" mewn dogfennau dethol ar yr un pryd.


Yn hawdd dod o hyd i destunau gwahanol a'u disodli ar draws sawl dogfen ar yr un pryd â Kutools for Word

Yma yn argymell yn fawr y Swp Dod o Hyd i ac Amnewid nodwedd o Kutools am Word. Gyda'r nodwedd hon, gallwch chi ddod o hyd i destunau gwahanol a'u disodli'n hawdd ar draws sawl dogfen Word yr un amser. Dewch i ni weld sut i gymhwyso'r nodwedd hon i ddod o hyd i destunau a'u disodli ar draws dogfennau.

Kutools am Word : gyda mwy na 100 o ychwanegion Word defnyddiol, rhydd i roi cynnig arni heb unrhyw gyfyngiad mewn 60 diwrnod.

1. Cliciwch Kutools Byd Gwaith > Swp Dod o Hyd i ac Amnewid i alluogi'r nodwedd.

2. Yn y Swp Dod o Hyd i ac Amnewid blwch deialog, ffurfweddwch fel a ganlyn.

  • 2.1) Cliciwch y Ychwanegu Row botwm o dan y Dod o hyd ac yn ei le tab;
  • 2.2) Yn y meysydd rhes a grëwyd:
A. Rhowch y testun y byddwch yn dod o hyd iddo yn y blwch testun yn y Dod o hyd i colofn
B. Rhowch y testun y byddwch yn ei ddisodli yn y blwch testun yn y Disodli colofn;
C. Nodwch fath chwilio, ble i ddod o hyd i'r testun a lliw i dynnu sylw at y testun yn ôl yr angen. Yn yr achos hwn, dewisaf Paru geiriau llawn, Prif ddogfen a lliw penodol o'r Math Chwilio, Dewch o hyd i mewn ac Amlygu colofnau;
  • 2.3) Ailadroddwch gam 2.1 a 2.2 i ychwanegu mwy o destunau y byddwch yn dod o hyd iddynt ac yn eu disodli;
  • 2.4) Cliciwch y  botwm yn y Math o ffeil adran i ychwanegu'r dogfennau Word lle byddwch chi'n dod o hyd i destunau ac yn eu lle;
  • 2.5) Cliciwch y Disodli or Dod o hyd i botwm. Gweler y screenshot:

Nodiadau:
1. Os cliciwch y Dod o hyd i botwm, bydd yr holl ganlyniadau darganfod yn cael eu harddangos o dan y Canlyniad Rhagolwg tab. Ar ôl cael rhagolwg o'r canlyniadau, os ydych chi am ailosod pob testun, cliciwch y Dod o hyd ac yn ei le tab. Fel arall, caewch y dialog.

2. Os cliciwch y Disodli botwm, bydd pob testun penodol yn cael ei ddisodli â rhai newydd ar unwaith, a bydd y canlyniadau hefyd yn cael eu harddangos o dan y Canlyniad Rhagolwg tab.

3. Os nodwch liwiau uchafbwyntiau yng ngham 2, bydd lliwiau penodol yn tynnu sylw at yr holl destunau a ddisodlwyd, a gallwch ddod o hyd iddynt yn hawdd mewn cipolwg mewn dogfennau.

3. Caewch y Swp Dod o Hyd i ac Amnewid blwch deialog

I gael mwy o wybodaeth am y nodwedd hon, os gwelwch yn dda cliciwch yma ....

Os ydych chi am gael treial am ddim o'r cyfleustodau hwn, ewch i dadlwythwch y meddalwedd am ddim yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (69)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fydd yn gofyn ble mae'r dogfennau dan sylw wedi'u lleoli? Neu a oes angen i'r holl ddogfennau fod yn agored?
Bobette
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddwch chi'n ei redeg, yn ddiofyn bydd yn agor y ffenestr ddeialog "Ffeil Agored" i "Fy Nogfennau". Llywiwch i'r ffolder sy'n cynnwys y ffeiliau Word yr hoffech wneud y newidiadau iddynt. Gallwch bwyso "Ctrl" + "A" i ddewis pob ffeil, neu ddal yr allwedd "Ctrl" i lawr wrth ddewis rhai ffeiliau. Cliciwch ar "Agored" neu pwyswch "Enter" a gwyliwch yr hud yn digwydd.
PadrigRsGhost
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oes, mae gennyf yr un cwestiwn ag y credaf y byddai hyn yn ddefnyddiol ond rwyf am ddweud wrtho i edrych mewn ffolderi penodol yn unig.
Alison Pepper
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddwch chi'n rhedeg y macro, bydd y ffenestr "Agored" yn agor. Llywiwch i'r ffolder sy'n cynnwys y ffeiliau y mae angen i chi wneud y newid iddynt, yna cliciwch unwaith ar yr un cyntaf, yna, wrth ddal yr allwedd "Ctrl" i lawr, cliciwch ar y ffeiliau eraill sydd hefyd angen y darganfyddiad / amnewid. Os oes angen gweithredu ar bob ffeil yn y ffolder, pwyswch y bysellau "Ctrl" ac "A". Yna cliciwch ar "Agored" neu pwyswch yr allwedd "Enter", a bydd y macro yn dechrau. Dylwn eich rhybuddio, gan fy mod wedi perfformio hyn ddwsinau o weithiau yn y gwaith: Bydd y macro yn arwain at y newidiadau yn cael eu gwneud yn unig i *corff* y ddogfen Word; bydd penawdau, troedynnau, a theitl testun/alt-destun yn cael eu heithrio. Os oes gennych destun yn y darnau uchod y mae angen eu newid, bydd yn rhaid i chi berfformio darganfyddiad safonol / amnewid ar draws dogfennau unigol.
Patrick
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellid addasu'r dechneg VBA hon i weithio ar gyfer ffeiliau Cyhoeddwr? Er enghraifft trwy newid *.docx i *.pub ?
James R.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw ydych chi'n sant am roi'r macro hwn at ei gilydd! Rwy'n gwrando ar 'Epic Battle Music' ar Songza oherwydd fy mod yn Macro-gof mor amatur a dyna'r unig ffordd y gallaf ei wneud trwy'r boen a'r ing o grefftio swynion rhaglennu. Beth bynnag, fy mhwynt rydw i'n mynd i'w wneud yw treulio llawer o amser ddydd Gwener yn datrys problemau'r rhan lle rydych chi'n rhoi'r testun rydych chi am ddod o hyd iddo mewn gwirionedd ac yn rhoi'r testun rydych chi am ei ddisodli - doeddwn i ddim yn deall y rhan hon yn iawn. telerau lle rhoddais fy nhestun gair "darganfod" a "disodli" testun gair: [dyfyniad] Nodyn: gallwch newid y Testun = "chwilio", Replacement.Text = "dod o hyd" i nodi'r cynnwys i'w chwilio a'r cynnwys i'w gwneud cais am un arall. [/quote] Darllenais dros hyn eto heddiw a hoffwn egluro'n barchus ar gyfer rhaglenni eraill nad ydynt yn cychwyn - yn yr adran o VBA lle rydych wedi copïo a gludo'r iaith raglennu wreiddiol, gwnewch yn siŵr eich bod yn rhoi diwedd ar y rhaglen ar ôl y beth ac a' ar ol y gyda (gweler yr enghraifft isod) - yn fy enghraifft i, rwy'n edrych am ddogfennau lluosog i ddisodli Pizza gyda Stromboli: .Text = "Pizza" 'Find What' .Replacement.Text = "Stromboli" 'Amnewid Gyda'
Jebidiah Springfield
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pan fyddaf yn ei redeg, mae'n cael ei hongian ac yn stopio yn: Application.Run macroname:="NEWMACROS" a phan fyddaf yn camu i mewn iddo, mae'n dweud wrthyf fod gennyf Gwall Crynhoi: Ni chanfuwyd y ddadl a enwyd. Beth nawr?
Greg Simonis
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd fel swyn ac arbedodd lawer o amser ac ymdrech i mi. Diolch.
Murlun
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n dal i fethu cael hwn i weithio ar fy PC yn rhedeg Windows 7. Pan fyddaf yn ei redeg, rwy'n cael msg gwall ar y llinell: -Windows(GetStr(j)). Activate The error msg. yw: -Gwall llunio: -Sub neu Swyddogaeth heb ei ddiffinio Unrhyw syniad pam? A sut i'w drwsio?
Greg Simonis
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dyma beth weithiodd i mi o'r diwedd. Rwy'n gobeithio ei fod yn helpu. Ychwanegais y macro hwn at ffeil geiriau. Bydd yn rhedeg disodli unrhyw ddogfennau a ddewiswyd (gallwch ddewis cymaint ag y dymunwch) pan fydd y deialog ffeil ar agor. Ni fydd yn gweithio ar is-ffolderi felly gwnes i bob ffolder yn y strwythur ffeil yn unigol ond fe weithiodd. Efallai nad dyma'r ateb gorau ond mae'n gweithio o leiaf. Is-orchymyn PreifatButton1_Click() Dim MyDialog Fel FileDialog, GetStr(1 I 100) Fel Llinynnol '100 ffeil yw'r uchafswm wrth gymhwyso'r cod hwn Ar Gwall Ail-ddechrau Gosod Nesaf MyDialog = Application.FileDialog(msoFileDialogFilePicker) Gyda MyDialog .~Filters.Clear '~ Newidiwch ehangiad y ffeil hwn i'r math doc perthnasol. .Filters.Add "Pob Ffeil WORD", "*.doc", 1 .AllowMultiSelect = Gwir i = 1 Os .Show = -1 Yna Am Bob stiSelectedItem Yn .SelectedItems GetStr(i) = stiSelectedItem i = i + 1 Nesaf i = i - 1 Diwedd Os Application.ScreenUpdating = Gau Ar gyfer j = 1 I i Cam 1 Gosod doc = Documents.Open(FileName:=GetStr(j), Gweladwy:=Gwir) Windows(GetStr(j)).Activate Selection. Find.ClearFormatting Selection.Find.Replacement.ClearFormatting 'Adran yna naill ai un neu'r llall o adrannau o'r cod i ddilyn.
Pia Wilson
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yna rydych chi'n ychwanegu un o'r ddwy adran ganlynol yn dibynnu a yw'n brawf neu'n hyperddolen i'w disodli '~~> Bydd yr adran hon os nad oes sylwadau arni yn disodli'r testun - DIM OND UN O DDWY ADRAN ALL EI DDANGOS AR UNWAITH Gyda Selection.Find .Text = " http://www.google.co.uk" 'Find What .Replacement.Text = " http://www.google.com" ' Amnewid Gyda .Forward = Gwir .Wrap = wdFindAsk .Format = Gau .MatchCase = Gau ! = Diwedd Gwir Gyda MsgBox "diwedd gweithrediad, os gwelwch yn dda gweld", vbInformation '~~> Bydd yr adran hon os nad oes sylwadau yn cymryd lle hypergysylltiadau ' Ar gyfer i = 1 I doc.Hyperlinks.Count ' ' Os yw'r hyperddolen yn cyfateb. ' If LCase(doc.Hyperlinks(i).Address) = " http://www.google.co.uk/ " Yna ' ' Newid cyfeiriad y dolenni. ' doc.Hyperlinks(i).Address = " https://www.google.com" ' ' Newidiwch y testun arddangos dolenni os dymunir. ' doc.Hyperlinks(i).TextToDisplay = "http://www.google.com" ' Diwedd Os ' Nesaf ' Application.Run macroname:="NEWMACROS" 'ActiveDocument.Save 'ActiveDocument.Close' Next 'Application.ScreenUpdating = Gwir 'Diwedd Gyda 'MsgBox "diwedd gweithrediad, os gwelwch yn dda gweld", vbInformation End Is
Pia Wilson
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Pia, rwy'n ceisio rhedeg eich sgript ar gyfer disodli hypergysylltiadau ond rwy'n cael gwallau. Unrhyw siawns y gallwch chi bostio'r sgript ar gyfer disodli hypergysylltiadau i gyd mewn 1 darn? Mae'n rhaid fy mod yn gwneud llanast o rywbeth wrth geisio clytio'ch cod gyda'ch gilydd.
segarn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dim ond ar draws ffeiliau dethol y mae'n rhedeg a rhaid i'r ffeiliau fod mewn un ffolder yn unig. Mae hwn yn cael ei redeg fel macro mewn word doc. Mae'n cael ei redeg o glicio botwm. Mae ond yn diweddaru gair doc's Hope mae hyn yn helpu. Is-orchymyn PreifatButton1_Click() Dim MyDialog Fel FileDialog, GetStr(1 I 100) Fel Llinynnol '100 ffeil yw'r uchafswm wrth gymhwyso'r cod hwn Ar Gwall Ail-ddechrau Gosod Nesaf MyDialog = Application.FileDialog(msoFileDialogFilePicker) Gyda MyDialog .~Filters.Clear '~ Newidiwch ehangiad y ffeil hwn i'r math doc perthnasol. .Filters.Add "Pob Ffeil WORD", "*.doc", 1 .AllowMultiSelect = Gwir i = 1 Os .Show = -1 Yna Am Bob stiSelectedItem Yn .SelectedItems GetStr(i) = stiSelectedItem i = i + 1 Nesaf i = i - 1 Diwedd Os Application.ScreenUpdating = Gau Ar gyfer j = 1 I i Cam 1 Gosod doc = Documents.Open(FileName:=GetStr(j), Gweladwy:=Gwir) Windows(GetStr(j)).Activate Selection. Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For i = 1 I doc.Hyperlinks.Count ' Os yw'r hyperddolen yn cyfateb. If LCase(doc.Hyperlinks(i).Address) = "http://www.yahoo.co.uk/" Yna 'Newid cyfeiriad y dolenni. doc.Hyperlinks(i).Address = "https://www.google.co.uk" 'Newid testun arddangos y dolenni os dymunir. doc.Hyperlinks(i).TextToDisplay = "http://www.google.co.uk" Diwedd Os Cais Nesaf.Run macroname:="NEWMACROS" ActiveDocument.Save ActiveDocument.Close Next Application.ScreenUpdating = Diwedd Gwir Gyda MsgBox" diwedd gweithrediad, os gwelwch yn dda gweld", vbInformation End Is
Pia
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hyn yn berffaith ac arbed cymaint o amser i mi. Diolch!
Dani
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Gweithiodd hyn yn wych i'r gair yng nghorff y ddogfen ond ni ddisodlodd yr un gair yn y pennawd. Unrhyw syniadau. Diolch
Judy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am newid fformat y testun disodli. hy mae'n rhaid disodli "Pizza" gyda "Burger". Sut y gellir ei gyflawni?
Nilesh
Lleihawyd y sylw hwn gan y safonwr ar y wefan
THX mawr 4 y cod... ond hefyd yn cael y prblm hwnnw gyda'r penawdau... dim newid Diolch ymlaen llaw
WORDZ
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am bostio hwn! Rwyf wedi cynnal cwpl o brofion a'u cael i weithio i mi; fodd bynnag, nid yw'n gweithio ar destun mewn penawdau a throedynnau am ryw reswm. A oes ateb i hyn?
sathena99
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ddrwg gen i ond does gen i ddim syniad am y penawdau na'r fformat. Nid oedd yn rhywbeth yr oedd angen i mi ei gynnwys yn fy nghod. Nid oeddwn erioed wedi defnyddio hwn o'r blaen fy hun a chymerwyd y cod a bostiais o'r cod gwreiddiol uchod ac yna fe'i trydarwyd gan ddefnyddio cod a ddarganfuwyd mewn chwiliadau eraill nes iddo weithio. Mae'n ddrwg gennyf na allaf fod o fwy o help.
Pia
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydw i wedi bod yn ei brofi am y munudau diwethaf ac mae'n rhyfeddod mewn gwirionedd, diolch! Mae angen i mi berfformio sawl rheol 'canfod a disodli' ar gyfer sawl ffeil. Dwsinau o arferion ar gyfer dwsinau o ffeiliau. A oes ffordd i 'arbed' y modiwl fel nad oes angen i mi ei gludo eto ar y sgrin VBA bob tro y bydd angen i mi berfformio trefn newydd?
Moh
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl tweakio'r macro hwn i berfformio sawl safiad 'canfod a disodli' ar unwaith? Mae yna nifer o eiriau a phareses y mae angen i mi eu disodli ac ar hyn o bryd mae angen i mi ailgyflwyno'r cod VBA ar gyfer pob achos. Rwy'n noob am y pethau hynny
Mario
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod hwn wedi arbed cymaint o amser i mi ... felly, diolch! Ond un peth - a oes unrhyw ffordd i gynyddu nifer y geiriau y mae'r macro yn eu darganfod / eu disodli? Mae angen i mi ddod o hyd i / ailosod paragraffau lluosog ar unwaith ac mae'n ymddangos bod gan y macro gyfyngiad o tua 200 nod.
Milo
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0  Cymeriadau
Lleoliadau a Awgrymir