.Doc ফাইলগুলিতে এক .doc এ যোগ দিন (প্রতিটি নথির মূল বিন্যাস রেখে)


5

আমি ~ 50 সম্পর্কে আছে .doc ফাইল, যে নিখুঁত চেহারা (তারা Able2Extract সঙ্গে নিষ্কাশিত হয়)। এখন আমি এই 50 টি ফাইল এক বিশাল আকারে যোগ দিতে চাই .doc। আমি Word এর অন্তর্নির্মিত "সন্নিবেশ" বৈশিষ্ট্যটি ব্যবহার করার চেষ্টা করেছি, তবে এটি সম্পূর্ণ বিন্যাসকে আপগ্রেড করেছে। আমি আমার সবকিছু রাখতে চান। ঠিক মত নথি 1 - & gt; নথি 2 - & gt; document3

রূপান্তর সময় কিছু "বুদ্ধিমান" বা "স্মার্ট" প্রয়োজন, শুধু তাদের যোগদান করার ক্ষমতা। (এইভাবে তাদের সব অনুসন্ধানযোগ্য করা, যে পরম লক্ষ্য।) মেথড / সমাধানটি প্রতিটি ডকুমেন্টে একক ফাঁকা পৃষ্ঠা প্রয়োগ করলেও আমি কিছু মনে করি না।



ওয়ার্ড এর insertfile কমান্ড নথি আপ জগাখিচুড়ি হবে। পদ্ধতিটি প্রতিটি দস্তাবেজের মধ্যে অতিরিক্ত অতিরিক্ত পৃষ্ঠা প্রয়োগ করলেও আমি কিছু মনে করি না। আমি শুধু নথির আসল বিন্যাস রাখতে চাই (অন্যথায় সবকিছু বিকৃত হয়ে যায়), এবং বড় ফাইলটিতে অনুসন্ধান করতে সক্ষম হবেন।
Shiki


@ বার্টআরোন্ডসন - ব্র্যাড যে লিঙ্কটি যুক্ত করেছে (ব্র্যাড ধন্যবাদ!) একই পদ্ধতি ব্যবহার করে। এটি জাদু কিছু ফাইল জন্য কাজ করে, এবং কিছু মত পায় ... সত্যিই বিকৃত। এবং আমি যে ঠিক করতে পারবেন না। আমি বলতে চাচ্ছি, এটি শুধু একটি লাইন নয় তবে এটি পুরোপুরি বিকৃত।
Shiki

স্ক্রিপ্টে ফিরে যান (আমি সবকিছু চেষ্টা করতে চেয়েছিলাম): সরকারী সাহায্য দেখায়: ইটালিক ~ CTRL + I বা CTRL + SHIFT + I। এবং যে ঘটেছে, একটি ইটালিক 51 বার এবং ফিরে। : - /
Shiki

উত্তর:


2

নথিপত্রগুলি নির্মাণের পরে ড। আপনি অ্যাডোব অ্যাক্রোব্যাট বা অনুরূপ কিছু সহ একটি বড় .pdf এ তাদের একত্রিত করার চেষ্টা করতে পারেন। এটি একটি সন্ধানযোগ্য বিন্যাসে একসঙ্গে সমস্ত নথি একত্রিত করার লক্ষ্যে আপনার লক্ষ্য অর্জন করবে, যখন প্রতিটি পৃথকভাবে বিন্যাস / বিন্যাস সংরক্ষণ করা হবে।


চূড়ান্ত লক্ষ্য একটি অনুসন্ধানযোগ্য epub নথি আছে। অথবা অনুরূপ কিছু। পিডিএফ? হুম ... আমি জানি না Able2Extract আবার PDF থেকে স্টাফগুলি পুনঃ-বের করতে পারে কিনা, তবে এটি চেষ্টা করার যোগ্য, টিপের জন্য ধন্যবাদ!
Shiki

0

মূল বিন্যাস বজায় রাখার সময় নথিতে যোগদান করার সেরা উপায় VBA ব্যবহার করা এবং নিজে নিজে নথিগুলিতে যোগ দেওয়ার জন্য আপনি যে পদক্ষেপগুলি করবেন তা স্বয়ংক্রিয়ভাবে করুন। ফর্ম্যাটিংটি একই রকম থাকে তা নিশ্চিত করতে আপনাকে কয়েকটি বিষয় মনে রাখতে হবে:

  • প্রতিটি নথি একটি নতুন বিভাগ দ্বারা আলাদা করা নিশ্চিত করুন
  • রাখুন উৎস বিন্যাস ব্যবহার করে প্রতিটি নথি আমদানি করা হয় তা নিশ্চিত করুন।

নিম্নোক্ত ভিবিএ ম্যাক্রোটি উপরের দিকে মনে রাখার সময় প্রক্রিয়াটিকে স্বয়ংক্রিয়ভাবে সহায়তা করতে হবে। আমি প্রথমে এটি পরীক্ষা করে নিলাম তাই কোন বাগ থাকলে আমি ক্ষমাপ্রার্থী।

Sub CombineAll(sPath As String) 
    Dim baseDoc As Document, sFile As String 
    Set baseDoc = Application.Documents.Open(sPath & "BaseDoc.doc") 

    sFile = Dir(sPath & "*.doc") 
     'Loop through all .doc files in that path
    Do While sFile <> "" 

       Set sourceDoc = Application.Documents.Open(sPath & sFile) 
       Application.Selection.WholeStory
       Application.Selection.Copy
       Application.ActiveWindow.Close savechanges:=wdDoNotSaveChanges
       baseDoc.Activate

       Application.Selection.PasteAndFormat (wdFormatOriginalFormattig)
       baseDoc.InsertBreak Type:=wdSectionBreakNextPage
       sFile = Dir 
    Loop 
End Sub 
আমাদের সাইট ব্যবহার করে, আপনি স্বীকার করেছেন যে আপনি আমাদের কুকি নীতি এবং গোপনীয়তা নীতিটি পড়েছেন এবং বুঝতে পেরেছেন ।
Licensed under cc by-sa 3.0 with attribution required.