روش تركيب كردن متن انگليسي با ترجمه فارسي

روش تركيب كردن متن انگليسي با ترجمه فارسي

سوال :

من يك فايل ورد دارم متشكل از 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 كپي نمائيد.

روش تركيب كردن متن انگليسي با ترجمه فارسي