آيا اين كد به زبان vb است؟

[علی رضائی]

اگر اين كد به زبان vb است كسي معادل آنرا به دلفي مي داند؟



Dim w As Word.Document
Dim a As Word.Application
Dim output1 As String

Set a = New Word.Application
Set w = New Word.Document
Set w = a.Documents.Open("c:\my document\test303.doc")
output1 = w.Bookmarks.Item(1)
msgbox w.Bookmarks("Text1").Range.Text

[Mohamad ghorbani]

بله.
من فکر می کنم Dim فقط در Visual Basic و Visual Basic.net استفاده میشه.
متاسفانه من Delphi بلد نیستم

[aryasoft2872]

اینجور کدی قابل تبدیل نیست چون از یک ابزار استفاده شده که معلوم نیست توی دلفی هم کار می ده یا نه می خواید فایل ورد باز کنید توی بخش دلفی در مورد بازکردن فایل ورد سوال کنید یا خودتون از سایت های خارجی ابزار دلفیشو دانلود کنید
(احتمالا تاپیک پاک بشه چون سوال مربوط به دلفی)
موفق باشد.

[علی رضائی]

اینجور کدی قابل تبدیل نیست چون از یک ابزار استفاده شده که معلوم نیست توی دلفی هم کار می ده یا نه می خواید فایل ورد باز کنید توی بخش دلفی در مورد بازکردن فایل ورد سوال کنید یا خودتون از سایت های خارجی ابزار دلفیشو دانلود کنید
(احتمالا تاپیک پاک بشه چون سوال مربوط به دلفی)
موفق باشد.
من فايل ورد رو باز كردم و مشكلي از اون بابت نيست فقط مشكلم در دريافت يك بوك مارك هست اون هم به صورت تكست
w.Bookmarks("Text1").Range.Text
اگر از اساتيد كسي مي تونه راهنمايي كنه ممنون مي شم و اگر تاپيك مزاحم هست عذر خواهي مي كنم و مي تونيد اونو پاك كنيد.