روش ترکیب کردن متن انگلیسی با ترجمه فارسی
سوال :
من یک فایل ورد دارم متشکل از 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
مطالب مرتبط
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
میخواهم windows راعوض کنم درهمان مراحل اولیه(windows is loading file) گیرمیکندوهیچ کاری انجام نمیدهدسی دی هم پس از15ثانیه ازگردش می ایستدوچراغ درایورهم خاموش میشود
2012, Thursday, 25, Oct
فهرست کردن مطالب یا عناوین پایان نامه بصورت خودکار فهرست پایان نامه بهم ریختگی فهرست فهرست خودکار منوی Refrences تب Table of Contents پایان نامه Update Table فهرست گذاری
2013, Tuesday, 28, May
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
