ٹپ: دوسری زبانیں Google-Translated ہیں. آپ ملاحظہ کر سکتے ہیں English اس لنک کا ورژن.
لاگ ان کریں
x
or
x
x
رجسٹر
x

or

لفظ میں ایک سے زیادہ فائلوں کو تلاش کرنے اور تبدیل کرنے کے لئے کس طرح؟

اگر آپ کے پاس کئی درجن الفاظ فائلیں ہیں جن میں وہی مواد شامل ہیں (جیسے ہیڈر، فوٹر، کچھ خاص الفاظ یا نمبر)، اور آپ کو ان دستاویزات میں ورڈ میں ہر ایک کو تبدیل کرنے کی ضرورت ہے. آپ کو یہ تیزی سے حاصل کرنے کے لئے آسان کیسے ہوگا؟ یقینی طور پر، آپ ان فائلوں کو ایک ہی مواد کو تبدیل کرنے کے لئے ایک کرکے کھول سکتے ہیں، لیکن یہ وقت سازی اور مصیبت ہو گی. یہ سبق آپ کو اسی مواد کو ایک ہی وقت میں ورڈ میں ایک سے زیادہ دستاویزات میں تبدیل کرنے کے لئے ایک مشکل طریقہ دکھایا جائے گا.

VBA کوڈ کے ساتھ ہی ایک ہی وقت میں ایک سے زیادہ لفظ دستاویزات میں متن کو تلاش کریں اور تبدیل کریں


آسانی سے ایک سے زیادہ دستاویزات ملائیں / ملائیں.

Các ضم دستاویزات افادیت کلام کے لئے کلو ایک سے زیادہ دستاویزات کو ایک جلدی میں جمع کرنے میں مدد مل سکتی ہے. آپ کو صرف اس کی ضرورت ہے:

  • ان دستاویزات کو منتخب کریں جن میں آپ ایک میں شامل ہوں گے؛
  • ہر مشترکہ دستاویز کے درمیان وقفے کی وضاحت؛
  • ضم کرنا شروع کریں. اسکرین شاٹ دیکھیں:

کلام کے لئے کلو: 100 آسان الفاظ اضافی سے زیادہ کے ساتھ، 30 دنوں میں کوئی حد کے ساتھ کوشش کرنے کے لئے آزاد. ڈاؤن لوڈ اور مفت آزمائشی اب!

کلام کے لئے کلو: 100 نئی اعلی درجے کی خصوصیات شامل کریں کلام 2003 / 2007 / 2010 / 2013 / 2016 / 2019 پر.
آفس ٹیب: فعال آفس میں ٹیبڈ ترمیم اور براؤزنگجیسے جیسے کروم، فائر فاکس، IE 8 / 9 / 10.
آفس کے لئے کلاسیکی مینو: آفس 2003 بیک پرانے نظر آتے ہیں آفس 2007، 2010، 2013، 2016 اور 2019.

VBA کوڈ کے ساتھ ہی ایک ہی وقت میں ایک سے زیادہ لفظ دستاویزات میں متن کو تلاش کریں اور تبدیل کریں

1. دبائیں آلٹ + F11 کھولنے کے لئے مائیکروسافٹ بصری بنیادی کے لئے درخواستیں کھڑکی.

2. میں مائیکروسافٹ بصری بنیادی کے لئے درخواستیں ونڈو کی، مظاہرہ داخل > ماڈیول، پھر مندرجہ ذیل 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. سب سے پہلے کلام کے لئے کلو ڈائیلاگ باکس، اس متن میں درج کریں جس میں آپ دستاویزات بھر میں تلاش کریں گے کیا تلاش کریں باکس، اور پھر کلک کریں OK بٹن.

6. دوسرا میں کلام کے لئے کلو ڈائیلاگ باکس، اس متن میں درج کریں جن کے ساتھ آپ کی جگہ لے آئے گی، اور کلک کریں OK بٹن.

8. کلک کریں OK اگلے میں بٹن مائیکروسافٹ ورڈ ڈائیلاگ باکس تلاش کرنے اور جگہ ختم کرنے کے لۓ.

اس صورت میں، تمام الفاظ "ورڈ" منتخب دستاویزات میں ایک ہی وقت میں "ایکسل" کے ساتھ تبدیل کردیئے گئے ہیں.


آفس ٹیب - ورڈ میں ایک سے زیادہ دستاویزات کے ٹیبلڈ براؤزنگ، ترمیم، اور انتظام:

آفس ٹیب ٹیبلڈ انٹرفیس لاتا ہے جیسا کہ گوگل براؤزر میں گوگل کروم، انٹرنیٹ ایکسپلورر نیا ورژن اور فائر فاکس میں مائیکروسافٹ ورڈ میں دیکھا جاتا ہے. یہ گے آپ کے کام میں ایک وقت بچانے کے آلے اور بے ترتیب ہونا. ڈیمو ذیل میں ملاحظہ کریں:

آفس ٹیب کے مفت آزمائشی کے لئے کلک کریں!




کلام کے لئے کلو

لفظ 100، 2003، 2007، 2010، 2013 اور 2016 کے لئے 2019 اعلی درجے کی افعال سے زیادہ

شاٹ-کٹولس- 700-225-KTE

زیادہ خصوصیات | مفت ڈاؤنلوڈ | سینکڑوں افعال کیلئے صرف $ 39.00

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 · 2 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 · 3 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 4 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 · 11 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 · 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 !