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

Ինչպե՞ս որոնել և փոխարինել բազմաթիվ ֆայլեր բառով:

Եթե ​​ունեք մի քանի տասնյակ բառերի ֆայլեր, որոնք պարունակում են միևնույն բովանդակությունը (օրինակ ՝ Վերնագիր, էջատակ, որոշ հատուկ բառեր կամ համար), և անհրաժեշտ է նույն բովանդակությունը փոխարինել Word- ի այդ փաստաթղթերում: Ինչպե՞ս ձեզ համար ավելի հեշտ կլինի արագ ավարտել այն: Իհարկե, դուք կարող եք մեկ առ մեկ բացել այդ ֆայլերը `նույն բովանդակությունը փոխարինելու համար, բայց դա կլինի ժամանակատար և տհաճ: Այս ձեռնարկը ձեզ ցույց կտա միանգամից Word- ում բազմաթիվ փաստաթղթերի մեջ նույն բովանդակությունը փոխարինելու մի խրթին եղանակ:

Միևնույն ժամանակ գտեք և փոխարինեք բազմաթիվ բառերի փաստաթղթերի տեքստերը VBA կոդով
Հեշտությամբ գտեք և փոխարինեք տարբեր տեքստեր միանգամից բազմաթիվ փաստաթղթերի միջով միաժամանակ Kutools for Word- ով


Միևնույն ժամանակ գտեք և փոխարինեք բազմաթիվ բառերի փաստաթղթերի տեքստերը VBA կոդով

1. Մամուլ ալտ + F11 բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք ՏեղադրելՄոդուլներ, ապա պատճենեք հետևյալ VBA կոդը Մոդուլի պատուհանում:

VBA կոդ. Միևնույն բովանդակության միանգամից բազմաթիվ փաստաթղթերի որոնում և փոխարինում

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. Սեղմեք F5 ծածկագիրը գործելու համար:

4. Բացման մեջ Թերթել պատուհանը, խնդրում ենք գտնել և ընտրել այն փաստաթղթերը, որոնք դուք կգտնեք և փոխարինեք տեքստի ներսում, ապա կտտացրեք այն OK կոճակ Տեսեք,

5. Առաջինում Kutools բառի համար երկխոսության տուփ, մուտքագրեք այն տեքստը, որը կգտնեք փաստաթղթերի միջև Գտեք ինչ տուփը, ապա կտտացրեք OK կոճակը:

6. Երկրորդում Kutools բառի համար երկխոսության տուփ, մուտքագրեք այն տեքստը, որով դուք կփոխարինեք և կտտացրեք այն OK կոճակը:

8. Սեղմեք OK հաջորդ կոճակը Microsoft Word- ը երկխոսության տուփը ՝ գտնելու և փոխարինելու համար ավարտելու համար:

Այս դեպքում ընտրված փաստաթղթերում «Բառ» բոլոր բառերը միաժամանակ փոխարինվում են «Excel» բառերով:


Հեշտությամբ գտեք և փոխարինեք տարբեր տեքստեր միանգամից բազմաթիվ փաստաթղթերի միջով միաժամանակ Kutools for Word- ով

Այստեղ բարձր խորհուրդ են տալիս Խմբաքանակի որոնում և փոխարինում առանձնահատկությունը Kutools բառի համար, Այս հատկության միջոցով դուք կարող եք հեշտությամբ գտնել և փոխարինել տարբեր տեքստեր մի քանի Word փաստաթղթերում, միևնույն ժամանակ: Եկեք տեսնենք, թե ինչպես կիրառել այս հատկությունը `փաստաթղթերի տեքստերը գտնելու և փոխարինելու համար:

Kutools բառի համար : ավելի քան 100 հարմար բառերի հավելումներով, անվճար փորձեք առանց սահմանափակումների 60 օրվա ընթացքում.

1. Խնդրում ենք կտտացնել Kutools Plus > Խմբաքանակի որոնում և փոխարինում գործառույթն ապահովելու համար:

2. Մեջ Խմբաքանակի որոնում և փոխարինում երկխոսության տուփ, խնդրում ենք կազմաձևել հետևյալը.

  • 2.1) Կտտացրեք այն Ավելացնել տող կոճակը տակ Գտնել եւ փոխարինել էջանիշ;
  • 2.2) Ստեղծված շարքի դաշտերում.
A. Մուտքագրեք տեքստը, որը կգտնեք տեքստային տուփի մեջ Գտնել սյունակ
Բ. Տեքստում մուտքագրեք այն տեքստը, որով դուք կփոխարինեք Փոխարինել սյունակ;
Գ. Նշեք որոնման տեսակը, որտեղ գտնել տեքստը և գույնը `տեքստը ըստ անհրաժեշտության ընդգծելու համար: Այս դեպքում ես ընտրում եմ Բառի ամբողջական համընկնում, Հիմնական փաստաթուղթ և որոշակի գույն ՝ Որոնման տեսակը, Գտեք և Առաջ քաշել սյուներ;
  • 2.3) Կրկնեք 2.1 և 2.2 քայլերը `ավելի շատ տեքստեր ավելացնելու համար, որոնք կգտնեք և կփոխարինեք.
  • 2.4) Կտտացրեք այն  կոճակը Ֆայլի տիպը, բաժին ՝ Word- ի փաստաթղթերը ավելացնելու համար, որոնցում դուք կգտնեք և կփոխարինեք տեքստերը.
  • 2.5) Կտտացրեք այն Փոխարինել or Գտնել կոճակ Տեսեք,

Notes:
1. Եթե կտտացնում ես Գտնել կոճակը, գտնելու բոլոր արդյունքները կցուցադրվեն տակ Նախադիտման արդյունք ներդիր Արդյունքները նախադիտելուց հետո, եթե ցանկանում եք փոխարինել բոլոր տեքստերը, սեղմեք այստեղ Գտնել եւ փոխարինել ներդիր Հակառակ դեպքում փակեք երկխոսությունը:

2. Եթե կտտացնում ես Փոխարինել կոճակը, նշված բոլոր տեքստերը անմիջապես կփոխարինվեն նորերով, և արդյունքները կցուցադրվեն նաև «տակ» -ի տակ Նախադիտման արդյունք էջանիշը.

3. Եթե 2-րդ քայլում նշեք լուսավորության գույները, բոլոր փոխարինված տեքստերը կարևորվում են նշված գույներով, և դրանք կարող եք հեշտությամբ գտնել հայացքից փաստաթղթերում:

3. Փակեք այն Խմբաքանակի որոնում և փոխարինում երկխոսության վանդակում

Այս հատկության մասին լրացուցիչ տեղեկություններ ստանալու համար խնդրում ենք խնդրում ենք Սեղմեք այստեղ....

Եթե ​​ցանկանում եք անվճար օգտվել այս օգտակար ծառայությունից, գնացեք այստեղ անվճար ներբեռնել ծրագրաշարը նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (69)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կհարցնի՞, թե որտեղ են գտնվում խնդրո առարկա փաստաթղթերը։ Թե՞ բոլոր փաստաթղթերը պետք է բաց լինեն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ այն գործարկեք, լռելյայնորեն այն կբացի «Բաց ֆայլ» երկխոսության պատուհանը «Իմ փաստաթղթերը»: Նավարկեք դեպի այն թղթապանակը, որը պարունակում է Word ֆայլերը, որոնցում ցանկանում եք փոփոխություններ կատարել: Դուք կարող եք սեղմել «Ctrl» + «A»՝ բոլոր ֆայլերը ընտրելու համար կամ որոշակի ֆայլեր ընտրելիս սեղմած պահել «Ctrl» ստեղնը: Կտտացրեք «Open» կամ սեղմեք «Enter» և դիտեք կախարդանքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այո, ես նույն հարցն ունեմ, քանի որ կարծում եմ, որ սա օգտակար կլինի, բայց ուզում եմ ասել, որ այն փնտրի միայն որոշակի թղթապանակներում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մակրոն գործարկելիս կբացվի «Բացել» պատուհանը: Նավարկեք այն թղթապանակը, որը պարունակում է այն ֆայլերը, որոնցում անհրաժեշտ է փոփոխություն կատարել, այնուհետև կտտացրեք մեկ անգամ առաջինի վրա, այնուհետև սեղմած պահելով «Ctrl» ստեղնը՝ սեղմեք մյուս ֆայլերի վրա, որոնք նույնպես պահանջում են գտնել/փոխարինել: Եթե ​​թղթապանակի բոլոր ֆայլերը գործողության կարիք ունեն, պարզապես սեղմեք «Ctrl» և «A» ստեղները: Այնուհետև կտտացրեք «Open» կամ սեղմեք «Enter» ստեղնը, և մակրոն կսկսվի: Ես պետք է զգուշացնեմ ձեզ, քանի որ ես դա արել եմ մի քանի տասնյակ անգամ աշխատավայրում. մակրոյի արդյունքում փոփոխությունները կկատարվեն միայն Word փաստաթղթի * մարմնի* մասում; վերնագրերը, ստորագրերը և վերնագրի տեքստը/alt-տեքստը կբացառվեն: Եթե ​​վերը նշված հատվածներում ունեք տեքստ, որը պետք է փոխարինվի, դուք պետք է կատարեք ստանդարտ գտնել/փոխարինել առանձին փաստաթղթերում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է այս VBA տեխնիկան հարմարեցվել Publisher ֆայլերի համար աշխատելու համար: Օրինակ՝ *.docx-ը *.pub-ի փոխելով:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Վայ, դուք սուրբ եք այս մակրոները միասին հավաքելու համար: Ես լսում եմ «Epic Battle Music» երգը Songza-ում, քանի որ ես այնքան սիրողական մակրո-սմիթ եմ, և դա միակ միջոցն է, որով կարող եմ հաղթահարել ծրագրավորման կախարդանքներ ստեղծելու ցավն ու տառապանքը: Համենայն դեպս, իմ միտքը, որը ես պատրաստվում եմ ասել, այն է, որ ուրբաթ օրը շատ ժամանակ եմ ծախսել՝ շտկելու այն հատվածը, որտեղ դուք իրականում դրել եք տեքստի մեջ, որը ցանկանում եք գտնել և տեղադրել այն տեքստը, որը ցանկանում եք փոխարինել. ես այնքան էլ չհասկացա այս մասը պայմանները, որտեղ ես տեղադրել եմ իմ «գտնել» բառի տեքստը և «փոխարինել» բառի տեքստը. փոխարինման համար դիմելու համար։ [/quote] Ես այսօր նորից կարդացի սա և ցանկանում եմ հարգանքով պարզաբանել ծրագրավորման այլ ոչ նախաձեռնողների համար. VBA-ի այն հատվածում, որտեղ դուք պատճենել և տեղադրել եք ծրագրավորման բնօրինակ լեզուն, համոզվեք, որ վերջակետ եք դնում « ինչ և a '-ից հետո հետ (տե՛ս ստորև բերված օրինակը) - իմ օրինակում ես փնտրում եմ բազմաթիվ փաստաթղթեր՝ Պիցցան Stromboli-ով փոխարինելու համար.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Երբ ես գործարկում եմ այն, այն անջատվում է և կանգ է առնում Application.Run macroname:="NEWMACROS"-ի վրա, և երբ ես մտնում եմ դրա մեջ, այն ինձ ասում է, որ ունեմ Կազմելու սխալ. Անվանված արգումենտը չի գտնվել: Հիմա ինչ?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատեց հմայքի պես, և դա ինձ համար խնայեց շատ ժամանակ և ջանք: Շնորհակալություն։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Դեռևս չեմ կարող դա անել Windows 7-ով աշխատող իմ համակարգչի վրա: Երբ ես այն գործարկում եմ, ես ստանում եմ սխալի հաղորդագրություն տողում. - Կազմելու սխալ. - Ենթակետը կամ գործառույթը սահմանված չէ: Իսկ ինչպե՞ս շտկել։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա այն է, ինչ վերջապես աշխատեց ինձ մոտ: Հուսով եմ, որ դա օգնում է: Ես ավելացրեցի այս մակրոն word ֆայլում: Այն կաշխատի փոխարինելու ընտրված ցանկացած փաստաթուղթ (կարող եք ընտրել այնքան, որքան ցանկանում եք), երբ ֆայլի երկխոսությունը բաց է: Այն չի աշխատի ենթաթղթապանակների վրա, այնպես որ ես ֆայլի կառուցվածքի յուրաքանչյուր թղթապանակ առանձին արեցի, բայց ստացվեց: Հնարավոր է, որ դա լավագույն ուղղումը չէ, բայց այն աշխատում է առնվազն: Մասնավոր Sub CommandButton1_Click() Dim MyDialog As FileDialog, GetStr(1-ից 100) As String '100 ֆայլը առավելագույնն է, որն կիրառում է այս կոդը Սխալի դեպքում Resume Հաջորդ Set MyDialog = Application.FileDialog(msoFileDialogFilePicker.~FilePicker) 'MyDialogFilters.~C. Փոխեք այս ֆայլի ընդլայնումը համապատասխան փաստաթղթի տեսակին: .Filters.Add "All WORD File", "*.doc", 1 .AllowMultiSelect = True i = 1 Եթե .Ցույց տալ = -1 Ապա Յուրաքանչյուր stiSelectedItem In .SelectedItems GetStr(i) = stiSelectedItem i = i + 1 Հաջորդ i = i - 1 End If Application.ScreenUpdating = False For j = 1 To i Քայլ 1 Սահմանել doc = Documents.Open(FileName:=GetStr(j), Visible:=True) Windows(GetStr(j)).Ակտիվացնել ընտրությունը: Find.ClearFormatting Selection.Find.Replacement.ClearFormatting «Բաժին, որից հետո պետք է հետևել կոդի բաժիններից մեկը կամ մյուսը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այնուհետև ավելացնում եք հետևյալ երկու բաժիններից մեկը՝ կախված նրանից, թե արդյոք այն փորձնական է կամ փոխարինվող հիպերհղում: «~~> Այս բաժինը, եթե մեկնաբանված չէ, կփոխարինի տեքստին. ԵՐԿՈՒ ԲԱԺԻՆՆԵՐԻՑ ՄԻԱՅՆ ՄԵԿԸ ՄԻԱՅՆ ՄԵԿԸ ԿԱՐՈՂ Է ԱՆՄԵԿՆԱԲԱՆԵԼ ՄԻԱՅՆԱՊԵՍ Selection.Find .Text = " http://www.google.co.uk" 'Find What .Replacement.Text = "http://www.google.com" 'Փոխարինել հետ .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:="NEWMACRiveen.plication.pplication. = True End With MsgBox "operation end, please view", vbInformation '~~> Այս բաժինը, եթե մեկնաբանված չէ, կփոխարինի հիպերհղումներին 'For i = 1 To doc.Hyperlinks.Count ' 'Եթե հիպերհղումը համընկնում է: Եթե ​​LCase(doc.Hyperlinks(i).Address) = "http://www.google.co.uk/" Ապա ' 'Փոխեք հղումների հասցեն: ' doc.Hyperlinks(i).Address = "https://www.google.com" ' 'Ցանկության դեպքում փոխեք հղումների ցուցադրվող տեքստը: ' doc.Hyperlinks(i).TextToDisplay = "http://www.google.com" 'End If' Հաջորդ 'Application.Run macroname:="NEWMACROS" 'ActiveDocument.Save 'ActiveDocument.Close'Next'Application.ScreenUpdating = True 'End With 'MsgBox "operation end, please view", vbInformation End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պիա, ես փորձում եմ գործարկել ձեր սկրիպտը՝ հիպերհղումները փոխարինելու համար, բայց սխալներ եմ ստանում: Հնարավո՞ր է, որ դուք կարող եք տեղադրել հիպերհղումները 1 մասով փոխարինելու սցենարը: Ես, հավանաբար, ինչ-որ բան եմ խառնում, երբ փորձում եմ համատեղել ձեր կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն աշխատում է միայն ընտրված ֆայլերում, և ֆայլերը պետք է լինեն միայն մեկ թղթապանակում: Սա գործարկվում է որպես մակրո մի բառով doc: Այն աշխատում է կոճակի սեղմումից: Այն միայն թարմացնում է word doc-ի Հուսով եմ, որ դա օգնում է: Մասնավոր Sub CommandButton1_Click() Dim MyDialog As FileDialog, GetStr(1-ից 100) As String '100 ֆայլը առավելագույնն է, որն կիրառում է այս կոդը Սխալի դեպքում Resume Հաջորդ Set MyDialog = Application.FileDialog(msoFileDialogFilePicker.~FilePicker) 'MyDialogFilters.~C. Փոխեք այս ֆայլի ընդլայնումը համապատասխան փաստաթղթի տեսակին: .Filters.Add "All WORD File", "*.doc", 1 .AllowMultiSelect = True i = 1 Եթե .Ցույց տալ = -1 Ապա Յուրաքանչյուր stiSelectedItem In .SelectedItems GetStr(i) = stiSelectedItem i = i + 1 Հաջորդ i = i - 1 End If Application.ScreenUpdating = False For j = 1 To i Քայլ 1 Սահմանել doc = Documents.Open(FileName:=GetStr(j), Visible:=True) Windows(GetStr(j)).Ակտիվացնել ընտրությունը: Find.ClearFormatting Selection.Find.Replacement.ClearFormatting For i = 1 Doc.Hyperlinks.Count 'Եթե հիպերհղումը համընկնում է: Եթե ​​LCase(doc.Hyperlinks(i).Address) = "http://www.yahoo.co.uk/" Ապա 'Փոխեք հղումների հասցեն: doc.Hyperlinks(i).Address = "https://www.google.co.uk" 'Ցանկության դեպքում փոխեք հղումների ցուցադրման տեքստը: doc.Hyperlinks(i).TextToDisplay = "http://www.google.co.uk" End If Next Application.Run macroname:="NEWMACROS" ActiveDocument.Save ActiveDocument.Close Next Application.ScreenUpdating = True End With MsgBox " շահագործման ավարտը, խնդրում ենք դիտել», vbInformation End Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի աշխատեց և ինձ շատ ժամանակ խնայեց: Շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Սա հիանալի աշխատեց փաստաթղթի հիմնական բառի համար, բայց չփոխարինի վերնագրի նույն բառը: Ցանկացած գաղափար: Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ փոխել փոխարինվող տեքստի ձևաչափը: այսինքն «Պիցցան» պետք է փոխարինվի «.Burger«Ինչպե՞ս կարելի է հասնել դրան:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Big THX 4 կոդը... բայց նաև ունենա այդ prblm-ը վերնագրերով... ոչ մի փոփոխություն Նախապես շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն սա հրապարակելու համար: Ես մի քանի թեստ եմ անցկացրել և ստացել եմ, որ այն աշխատի ինձ համար. սակայն, ինչ-ինչ պատճառներով այն չի աշխատում տեքստի վրա վերնագրերում և էջատակներում: Սա ուղղում կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցավում եմ, բայց ես գաղափար չունեմ վերնագրերի կամ ձևաչափի մասին: Դա մի բան չէր, որ ես պետք է ներառեի իմ ծածկագրում: Ես երբեք չեմ օգտագործել սա ինքս ինձանից առաջ, և իմ տեղադրած կոդը վերցված է վերևի սկզբնական կոդից, այնուհետև թվիթել եմ՝ օգտագործելով այլ որոնումների մեջ գտնված կոդը, մինչև այն աշխատեց: Ցավում եմ, որ չեմ կարող ավելի շատ օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձարկել եմ այն ​​վերջին մի քանի րոպեների ընթացքում, և դա իսկապես զարմանալի է, շնորհակալություն: Ես պետք է կատարեմ մի քանի «գտնել և փոխարինել» ռեժիմներ մի քանի ֆայլերի համար: Տասնյակ ռեժիմներ տասնյակ ֆայլերի համար: Կա՞ մոդուլը «փրկելու» միջոց, որպեսզի ես կարիք չունենամ այն ​​նորից տեղադրել VBA-ի էկրանին ամեն անգամ, երբ պետք է նոր ռեժիմ կատարեմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է կսմթել այս մակրոն՝ միաժամանակ մի քանի «գտնել և փոխարինել» դիրքերը: Կան մի քանի բառեր և ֆարեզներ, որոնք ես պետք է փոխարինեմ, և այս պահի դրությամբ ես պետք է նորից տեղադրեմ VBA կոդը յուրաքանչյուր օրինակի համար: Ես անտարբեր եմ այդ բաների վերաբերյալ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այս կոդը ինձ համար այնքան ժամանակ է խնայել... այնպես որ, շնորհակալություն: Այնուամենայնիվ, մի բան կա. կա՞ որևէ տարբերակ ավելացնելու բառերի քանակը, որոնք մակրոն գտնում է/փոխարինում: Ես պետք է գտնեմ/փոխարինեմ մի քանի պարբերություններ միանգամից, և մակրոն կարծես թե ունի մոտավորապես 200 նիշի սահման:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր