علی رضائی
سه شنبه 20 دی 1390, 17:27 عصر
معادل اين كد
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
در دلفي چيست؟
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
در دلفي چيست؟