نرم واپسی بمقابلہ مشکل واپسی


جواب 1:

عمدہ سوال… اور ایپلیکیشنز (VBA) اسکرپٹنگ کے لئے بصری بنیادی کے ساتھ حل کرنے کا ایک بہت بڑا مسئلہ۔ یہ کیسے ہے:

اپنے تمام دستاویزات کو ایک فولڈر میں رکھیں اور پھر نیچے اسکرپٹ چلائیں (میرے جواب کے نیچے)

اسکرپٹ کو چلانے کے لئے:

  • ایم ایس ورڈ کھولیں۔
  • ورڈ میں بصری بنیادی ایڈیٹر کھولیں (Alt + F11 دبائیں)
  • وی بی ایڈیٹر میں ، ربن کے داخل ٹیب پر کلک کرکے اور پھر ماڈیول کا انتخاب کرکے ایک نیا ماڈیول داخل کریں۔
  • پھر ماڈیول میں کلیک کریں اور سکرین کے دائیں جانب نیچے کوڈ پیسٹ کریں۔
  • چسپاں کوڈ کے اندر ، وہ لائنیں ڈھونڈیں جو کہ oSourceFolder اور oTargetFolder کہتے ہیں۔ اپنی راہوں کو اپنی ہارڈ ڈرائیو کے اصل فولڈروں میں تبدیل کریں۔ oSourceFolder فولڈر ہونا چاہئے جس میں وہ فائلیں شامل ہوں جو آپ تبدیل کرنا چاہتے ہیں۔ oTargetFolder وہ فولڈر ہوگا جہاں آپ کی تبدیل شدہ فائلیں محفوظ ہوجاتی ہیں۔
  • یہ سب کچھ مرتب ہوجانے کے بعد ، ربن پر جائیں اور گرین ایرو پر کلک کریں جو کسی ڈی وی ڈی پلیئر پر پلے بٹن کی طرح دکھائی دیتا ہے۔

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

یہ جواب آپ کو زیادہ تکلیف دہ اور بار بار کام کو بچائے!

اپنے وی بی ایڈیٹر میں کاپی اور پیسٹ کرنے کا کوڈ یہ ہے:

سب کنورٹ آرٹورنز ()'یہ سب ایک فولڈر میں ڈیککس فائلوں کے ذریعے چلتا ہے ، ہر فائل کو کھولتا ہے ، دستی لائن ٹوٹ جاتا ہے ، پیراگراف ریٹرن سے ہر ایک کی جگہ لیتا ہے ، تبدیل شدہ فائل کو نئے فولڈر میں محفوظ کرتا ہے ، اصل فائل کو بند کردیتا ہے۔ڈم oSourceFolder ، oTargetFolder ، oDocName اسٹرنگ کے طور پردھیان سے ODoc دستاویز کے طور پردھیان سے oRng جیسے حدصارف کی ہارڈ ڈرائیو پر اصل اور تبدیل شدہ فائلوں کے ل fold فولڈروں کے لئے راستے مرتب کریں۔oSourceFolder = "C: \ YourFolderContainingOriginalFiles \"oTargetFolder = "C: \ YourFolderForConvertedFiles \"'ماخذ فولڈر میں پہلی فائل پر ایک ہینڈل حاصل کریںoFile = دیر (oSourceFolder & "* .docx")'مندرجہ ذیل اقدامات کرتے رہیں جب تک کہ سورس فولڈر میں غیر عمل شدہ فائلوں کی موجودگی نہ ہوoFile <> "" کرتے وقت کریں 'فائل کھولیں oDoc = دستاویزات سیٹ کریں۔ اوپن (فائل کا نام: = oSourceFolder & oFile) 'آپ نے جو دستاویز ابھی کھولی تھی اس کا نام لیں oDocName = بائیں (oDoc.name ، لین (oDoc.name) - 5) 'تمام دستی لائن بریک تلاش کریں اور ان کو پیراگراف مارکرس سے تبدیل کریں سیٹ کریں oRng = ایکٹو ڈوکیومنٹ.ریج oRng.Find کے ساتھ . متن = "^ l" .Replacement.Text = "^ p" . فارورڈ = سچ ہے .Wrap = wdFindContinue .فورمیٹ = غلط .مچ کیس = غلط کے ساتھ ختم oRng.Find.Execute Replace: = wdReplaceAll 'تبدیل شدہ دستاویز کو اسی نام سے محفوظ کریں لیکن اپنے ٹارگٹ فولڈر میں "_ تبدیل" کے ساتھ شامل کریں oDoc.SaveAs oTargetFolder & oDocName & "_Converted.docx" 'تبدیلیوں کو محفوظ کیے بغیر اصل دستاویز کو بند کریں oDoc.Close SaveChanges: = غلط 'اپنے ماخذ فولڈر میں اگلی فائل پر ایک ہینڈل حاصل کریں oFile = دیرلوپ آخر سب