<![CDATA[Fox4um - Word belgelerini Düzenlemek]]> 2011-10-04T14:02:14Z PunBB http://www.fox4um.com/topic/1255/word-belgelerini-duzenlemek/ <![CDATA[Re: Word belgelerini Düzenlemek]]> Aşağıdaki kodla word 97/2003 menüsüne müdahele edilerek örneğin SaveAs ve Open menüsünü disable edebiliyor. Aynı işlemler diğer office uygulamalarına da yapılabiliyor. Word 2007/2010 için hata da vermiyor ama menüden disable da etmiyor. Bir fikri olan var mı acaba? Şimdiden teşekkürler.

Visual Fox Pro
1

2

3

4

5

6

LOCAL oWord As Word.Application

oWord = Createobject('Word.Application')

oWord.Visible= .T.

oWord.Documents.Add

oWord.CommandBars.Item("File").Controls.Item("Open...").Enabled =.f.

oWord.CommandBars.Item("File").Controls.Item("Save &As...").Enabled =.f.
]]> http://www.fox4um.com/user/94/ 2011-10-04T14:02:14Z http://www.fox4um.com/post/13653/#p13653 <![CDATA[Re: Word belgelerini Düzenlemek]]> DoumentBeforeSave'i degistirmen gerekli:


Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

Procedure ApplicationEvents2_DocumentBeforeSave(Doc As VARIANT, SaveAsUI As LOGICAL, Cancel As LOGICAL) As VOID

 

    Local lcUserDocName, lcMyDocName

    lcUserDocName = Doc.FullName

    lcMyDocName = "c:\temp\PatronBenim.doc"

 

    If !( Upper(Trim(m.lcUserDocName)) == Upper(Trim(m.lcMyDocName)) ) AND ;

        ATC('normal.dot',m.lcUserDocName)=0

      Cancel = .t.

      Doc.Saveas(m.lcMyDocName)

      Doc.Saved = .t.

 

 

      Local loBalloon,lVisible

      loBalloon = Doc.Application.Assistant.NewBalloon

      lVisible  = Doc.Application.Assistant.Visible

      Doc.Application.Assistant.Visible = .T.

      With loBalloon

        .Heading = TEXTMERGE("Uzgunum [<<m.lcUserDocName>>]"+;

          " olarak saklamaniza izin yok. Dosya <<m.lcMyDocName>> olarak saklandi.")

        .Show()

      Endwith

      Doc.Application.Assistant.Visible = m.lVisible

    endif

 

 

    *!*        #Define wdDoNotSaveChanges    0

    *!*        Doc.Application.Quit(wdDoNotSaveChanges)

 

  Endproc
]]> http://www.fox4um.com/user/11/ 2009-06-18T12:17:40Z http://www.fox4um.com/post/7645/#p7645 <![CDATA[Re: Word belgelerini Düzenlemek]]> Çetin hocam cevabınız için çok teşekkür ederim. Ancak buradaki sorun şu ki bu kod ile belgede yapılan değişiklik hiçbir durumda kaydedilmiyor. Ben sadece dosyada değişiklik yapılanca kullanıcının farklı kaydet ile kaydetmesini engellemek istiyorum.  Mesela Ankara.doc dosyasını kullanıcı açıp bazı değişiklikler yaptığında Ankara.doc orjinal hali ile kalacak değişiklik sonrasındaki hali ise mesela Ankara_01.doc ismi ile kaydedilecek. yardımcı olursanız sevinirim. İyi çalışmalar.

]]> http://www.fox4um.com/user/576/ 2009-06-18T11:34:00Z http://www.fox4um.com/post/7644/#p7644 <![CDATA[Re: Word belgelerini Düzenlemek]]>
Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

lcGetFile = Getfile('DOC')

 

Local oword As 'word.application'

oword = Newobject('word.application')

oWordEvents = Newobject("WordEvents",'','',oword)

Eventhandler(oword,oWordEvents)

With oword

  .Documents.Open(m.lcGetFile)

  .Visible = .T.

  .Activate

Endwith

 

 

Define Class WordEvents As Session OlePublic

  Implements ApplicationEvents2 In "C:\PROGRAM FILES\MICROSOFT OFFICE\OFFICE11\MSWORD.OLB"

 

  oHook = Null

  Procedure Init(loHook)

    This.oHook  = loHook

  Endproc

 

  Procedure ApplicationEvents2_Quit() As VOID

    ? 'User is quitting word',Datetime()

    Eventhandler(This.oHook,This,.T.)

  Endproc

 

  Procedure ApplicationEvents2_DocumentChange() As VOID

  Endproc

 

  Procedure ApplicationEvents2_DocumentOpen(Doc As VARIANT) As VOID

  Endproc

  Procedure ApplicationEvents2_DocumentBeforeClose(Doc As VARIANT, Cancel As LOGICAL) As VOID

  Endproc

  Procedure ApplicationEvents2_DocumentBeforePrint(Doc As VARIANT, Cancel As LOGICAL) As VOID

  Endproc

  Procedure ApplicationEvents2_DocumentBeforeSave(Doc As VARIANT, SaveAsUI As LOGICAL, Cancel As LOGICAL) As VOID

    Local lcUserDocName

    lcUserDocName = Doc.FullName

    Cancel = .T.

    ? 'Attempted save..Cancelled save...',Datetime()

 

    Local loBalloon,lVisible

    loBalloon = Doc.Application.Assistant.NewBalloon

    lVisible  = Doc.Application.Assistant.Visible

    Doc.Application.Assistant.Visible = .T.

    With loBalloon

      .Heading = "Sorry. VFP doesn't let you to save '" + m.lcUserDocName + "'" + ;

        CHR(13)+Chr(10) +;

        CHR(13)+Chr(10) +;

        "After you respond to this dialog I will return control to VFP dismissing any changes."

      .Show()

    Endwith

    Doc.Application.Assistant.Visible = m.lVisible

 

    #Define wdDoNotSaveChanges    0

    Doc.Application.Quit(wdDoNotSaveChanges)

 

  Endproc

  Procedure ApplicationEvents2_NewDocument(Doc As VARIANT) As VOID

  Endproc

  Procedure ApplicationEvents2_WindowActivate(Doc As VARIANT, Wn As VARIANT) As VOID

  Endproc

  Procedure ApplicationEvents2_WindowDeactivate(Doc As VARIANT, Wn As VARIANT) As VOID

  Endproc

  Procedure ApplicationEvents2_WindowSelectionChange(Sel As VARIANT) As VOID

  Endproc

  Procedure ApplicationEvents2_WindowBeforeRightClick(Sel As VARIANT, Cancel As LOGICAL) As VOID

  Endproc

  Procedure ApplicationEvents2_WindowBeforeDoubleClick(Sel As VARIANT, Cancel As LOGICAL) As VOID

  Endproc

Enddefine
]]> http://www.fox4um.com/user/11/ 2009-06-18T11:08:17Z http://www.fox4um.com/post/7641/#p7641 <![CDATA[Word belgelerini Düzenlemek]]> Word belgelerini VFP 9.0 ile açıp düzenleyip kaydeden fakat bu işlemleri yaparken word den dosya ismine müdahaleyi engelleyen bi koda ihtiyacım var. Başlangıç olabilecek bi örnek olan arkadaşımız varsa sevinirim.

]]> http://www.fox4um.com/user/576/ 2009-06-15T11:25:05Z http://www.fox4um.com/post/7609/#p7609