كار با فايلهاي WORD

[amir_1351]

با سلام
1- من دارم يك نرم افزار دبيرخانه كار ميكنم . قسمتي براي سرچ كردن توي فايلهاي DOC قرار دادم ولي مشكل اينجاست كه اگر متن داخا فايل DOC در يك TEXTBOX قرار گرفته باشد ، با اين روش برنامه قادر به پيدا كردن اون نيست . لطفا دوستاني كه تجربه اي در اين ضمينه دارند راهنمايي كنند.


_farserch=createobject("Word.Application")
_farserch.Documents.Open('c:\test3.doc')
with _farserch.Selection.Find
.Forward=.T.
.MatchCase=.F.
.Text= "ãæÑÎ"
if .Execute("ãæÑÎ")
?'good'
endif
endwith




2- چطور ميتوان يك عبارت را در يك TEXTBOX داخل فايل DOC ويرايش كرد ؟

[gh_khajehzade]

- چطور ميتوان يك عبارت را در يك TEXTBOX داخل فايل DOC ويرايش كرد
http://www.foxite.com/archives/word-automation-0000015515.htm

[amir_1351]

با تشکر از شما
متاسفانه تکه کد مورد نظر در خط 4 پیغام خطا میده


LOCAL loWord, loDoc
loWord = CREATEOBJECT("Word.Application")
loWord.Documents.Open("c:\a4.doc")
loWord.ActiveDocument.Shapes("Rectangle 2").Select && Find out what your tetxtbox is called by selecting it and recording to a Macro
loWord.Selection.WholeStory
loWord.Selection.TypeText("My replacement text")
loWord.Visible = .T.
1- من میخوام وقتی نامه شماره اندیکاتور خورد اتوماتیک شماره اندیکاتور در بالای صفحه ثبت بشه
2- ضمنا چطور میشه با کد نویسی روی فایل DOC پسورد گذاشت ؟

[gh_khajehzade]

كد لينك بالا اينه نه اوني كه نوشتي



LOCAL loWord AS Word.Application loWord = NEWOBJECT("Word.Application") loWord.Documents.Open("c:\my documents\bird.doc") loWord.Selection.Find.ClearFormatting loWord.Selection.Find.Replacement.ClearFormatting loWord.Selection.Find.Text = "Bird" loWord.Selection.Find.Replacement.Text = "Iguana" loWord.Selection.Find.Forward = .T. loWord.Selection.Find.Wrap = 1 && wdFindContinue loWord.Selection.Find.Execute(,,,,,,,,,,2) loWord.Visible = .T
پسورد روي سند word

Local loWord As Word.Application
loWord = Createobject('word.Application')
With loWord
.Documents.Open(Getfile('doc,docx'))
.ActiveDocument.Password = "Secret"
.ActiveDocument.Save
.Quit
Endwith

شماره رو بعدا ميگم!

[amir_1351]

با سلام خدمت اساتيد
من براي رمز گذاري بر روي فايلهاي DOC از تكه كد زير استفاده ميكنم و خوب جواب ميده


Local loWord As Word.Application
loWord = Createobject('word.Application')
With loWord
.Documents.Open(Getfile('doc,docx'))
.ActiveDocument.Password = "Secret"
.ActiveDocument.Save
.Quit
Endwith

ولي مشكلي كه حالا دارم اينه كه ميخوام رمز گذاشته شده بر روي فايلهاي doc رو حذف كنم بطوري كه ديگه پسورد نخواهد .
لطفا راهنمايي كنيد ، چكار بايد انجام بدم .

[gh_khajehzade]

برا باز كردن فايلي كه پسورد داره از فرمان زير ميتوني استفاده كني تا پسورد ازت نخواد. برا حذف اون با خود word ميتوني انجام بدي ولي هرچي گشتم براي حذف با فاكس چيزي پيدا نكردم.

loWord.Documents.Open("c:\tamrin\testnew.doc", .f., .f., .f., [password])

[amir_1351]

با تشكر از اساتيد
دو سئوال داشتم :
1- چطور ميشه يك فايل word را به روشي باز كرد كه كاربر اجازه پرينت گرفتن نداشته باشه ؟
2- چطور ميشه يك فايل word را به روشي باز كرد كه كاربر اجازه ويراش رو نداشته باشه و حتي نتونه توي اون تايپ كنه ؟

[gh_khajehzade]

1-نميدونم
2-باز كردن سند در حالت read only

oWord=CREATEOBJECT("Word.Application")
WITH oWord
.documents.open("filename",,.T.)
.Visible=.T.
ENDWITH