روش ترکیب کردن متن انگلیسی با ترجمه فارسی
سوال :
من یک فایل ورد دارم متشکل از 1000 خط و هر خط شامل 1 جمله ی انگلیسی است. یک فایل ورد دیگر هم دارم. آن هم متشکل از 1000 خط و هر خط شامل 1 جمله ی فارسی است. که این جمله های فارسی، ترجمه ی همان جملات انگلیسی است.
میخواهم 1 فایل داشته باشم، از مجموعه ی این 2 فایل. متشکل از 2000 خط، بدین صورت که خط 1، جمله ی انگلیسی و خط 2 ترجمه ی فارسی آن. خط 3 جمله ی انگلیسی و خط 4، ترجمه ی فارسی آن. الی آخر. روش کار به چه صورت است؟
پاسخ :
من این کار را با روش کدنویسی VBA با ایجاد یک ماکرو در اکسل انجام می دهم. که این کار بصورت زیر است.
ابتدا نرم افزار اکسل اجرا می کنیم. سپس از فایل های وردتان ابتدا متون انگلیسی را بطور کامل انتخاب کرده و در ستون A شیت یک برنامه اکسل کپی کنید و سپس همین کار را برای ترجمه های فارس در ستون B انجام دهید.
حال کلیدهای Shortcut یا میانبر ALT+F11 را بطور همزمان بزنید تا به نرم افزار VBA رفته و در Madual1 کد های زیر را کپی نمائید.
Sub Macro1()
Dim j As Integer, i As Integer
j = 1
For i = 0 To 10
Cells(i + 1, 1).Select
Cells(i + 1, 2).Select
Cells(j + i, 4) = Cells(i + 1, 1).Text
Cells(j + i + 1, 4) = Cells(i + 1, 2).Text
j = j + 1
Next i
End Sub
سپس فایل را Save کنید (طبق روشی که در آموزش از بین بردن فایل اکسل در تاریخ معین گفته شده) فایل را به فرمت دارای قابلیت اجرای Macro ذخیره نمائید.
حال دکمه سبز رنگ Run را بزنید تا برنامه اجراشود. اگر به برنامه اکسل برگردید، خواهید دید که در ستون D اکسل متون به شکلی که خواسته اید زیر هم قرار گرفته اند. می توانید ستون D را انتخاب و در یک فال متنی (NotePad) کپی کرده و بعد از آن یک بار دیگر در Word کپی نمائید.
نظرات و پاسخ ها
نوید نوشته :
سلام خوبید؟ خسته نباشید چگونه باید فونت زیر را که ایمیل در سنوات گذشته هست را تبدیل به فارسی بکنم؟ لطفا راهنمایی کنید و نتیجه را به ایمیلم بفرستید لطفا ÎÑ åÑå ÈåÇäå ی˜ÑØÑÝ Êæ ی˜ØÑÝ
یزدان نوشته :
یکی از بدترین سایت هایی که اومدم بود آشغله
مدیر سایت فارسی میتینگ نوشته :
آقا مرتضی ممنون ، شما و سایر دوستان لطف دارید. آخه پیامبر اسلام فرموده دانش خود را به دیگران منتقل نمائید، مخصوصاً ما مسلمانان. ولی خوشم اومد که رفتید و گشتید - این بهترین راه حل هست.
مرتضی نوشته :
آقا، مثل ساعت، کار کرد. خیلی ممنون که انقدر بی چشمداشت برای پاسخ سوالات وقت میگذارید. البته برای من، چون حدود 18000 جمله بود، integer رو به long تغییر دادم. و البته کلی گشتم تا فهمیدم module تو تبِ insert هست. عالی بود. تشکر.
صفحه 1 از 1
مطالب مرتبط
میخواهم windows راعوض کنم درهمان مراحل اولیه(windows is loading file) گیرمیکندوهیچ کاری انجام نمیدهدسی دی هم پس از15ثانیه ازگردش می ایستدوچراغ درایورهم خاموش میشود
2012, Thursday, 25, Oct
فهرست کردن مطالب یا عناوین پایان نامه بصورت خودکار فهرست پایان نامه بهم ریختگی فهرست فهرست خودکار منوی Refrences تب Table of Contents پایان نامه Update Table فهرست گذاری
2013, Tuesday, 28, May
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
غیر فعال کردن رویداد کلیک بر روی اسلایدهای ارائه پاورپوینت On Mouse Click هایپرلینک باز کردن اسلایدها از منوی Transition و سپس تب Timing برای همه اسلاید ها یا اسلایدهای مورد نظر خود تیک گزینه On Mouse Click را بردارید
2015, Sunday, 13, Dec
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
