Word Dosyasına Bilgi Yazmak

#include wdconstants.h

#Define NL Chr(13)+Chr(10)

*** set the LOCALEID to English

nlLocaleId=Sys(3004)        && Save local id

=Sys(3006,1033)                && We will be sending instructions in English

 

Use employee        && test table

oWordDocument=Createobject("word.application")    && Create word object

With oWordDocument

  .Documents.Add && Create a new doc

  .Visible = .T.

  .Activate

  Scan

    .Selection.TypeText('Employee Info Start.'+NL)

    .Selection.TypeText(Transform(emp_id)+NL+First_Name-(' '+Last_Name)+NL)

    .Selection.Collapse(wdCollapseEnd)

    lnRangeStart = .Selection.Range.End && set range for notes text and bookmark

    .Selection.TypeText(Nvl(notes,'')+NL+NL)

    lnRangeEnd   = .Selection.Range.End

    .Activedocument.Bookmarks.Add('b'+Padl(Recno(),2,'0'),.Activedocument.Range(lnRangeStart,lnRangeEnd))

  Endscan

 

  firstBmkName = .Activedocument.Bookmarks(1).Name

  .Activedocument.Bookmarks(1).Select

  Messagebox('first bookmark selected',4096,'',3000)

 

  .Selection.Collapse(wdCollapseEnd)

  .Selection.Expand( wdParagraph )

 

  Messagebox('Deleting para after first bookmark',4096,'',3000)

  .Selection.Delete

  .Selection.TypeText( 'Para deleted' + NL )

 

  If .Activedocument.Bookmarks.Exists(firstBmkName)

    .Activedocument.Bookmarks(firstBmkName).Select

    .Selection.Font.Color = 0xFF

  Endif

Endwith

 

**** Set the LocaleId to the previous value

=Sys(3006,Val(nlLocaleId))

#include wdconstants.h

Local oWord as "word.application"

oWord=Createobject("word.application")    && Create word object

 

With oWord

  .Documents.Open("d:\Temp\GoToTest.docx")

  .Visible = .T.

  .Activate

 

  .Selection.GoTo(wdGoToPage, wdGoToNext, ,"1")

  .Selection.MoveDown(wdLine, 12-1)

  .Selection.MoveRight(wdCharacter, 25-1)

  .Selection.TypeText("Adi")

 

  .Selection.GoTo(wdGoToPage, wdGoToNext, ,"2")

  .Selection.MoveDown(wdLine, 5-1)

  .Selection.MoveRight(wdCharacter, 50-1)

  .Selection.TypeText("Soyadi")

endwith

#include "wdcons.h"

Local oWord as "Word.Application"

oWord = CREATEOBJECT("Word.Application")

With oWord

  .visible = .t.

  .Documents.Add("c:\templates\mytemplate.dotx")

  With .ActiveDocument

    lcBookmark1 = "Adi"

    lcBookmark2 = "Soyadi"

      If .Bookmarks.Exists(m.lcBookmark1)

          .Range(.Bookmarks(m.lcBookmarkName1).Range.Start, .Bookmarks(m.lcBookmarkName1).Range.End).TypeText("Adi")

      endif

      If .Bookmarks.Exists(m.lcBookmark2)

          .Range(.Bookmarks(m.lcBookmarkName2).Range.Start, .Bookmarks(m.lcBookmarkName2).Range.End).TypeText("Soyadi")

      endif

  Endwith

EndWith

Local lcTemplate, lcSaveAs, lcDataSource

 

lcTemplate = "D:\temp\SerafettinMentes\Sozlesme.dot"

lcSaveAs = "D:\temp\SerafettinMentes\Sozlesmeler.doc"

lcDataSource = Forcepath(Sys(2015)+'.dbf', Sys(2023))

 

Create Cursor sozlesmeler (SozlesmeID i Autoinc Nextvalue 1, AdiSoyadi v(100))

Insert Into sozlesmeler (AdiSoyadi) Values ('Serafettin Mentes')

Insert Into sozlesmeler (AdiSoyadi) Values ('Cetin Basoz')

Insert Into sozlesmeler (AdiSoyadi) Values ('Mehmet En')

Insert Into sozlesmeler (AdiSoyadi) Values ('Ali Buyuk')

Insert Into sozlesmeler (AdiSoyadi) Values ('Mustafa Sari')

Insert Into sozlesmeler (AdiSoyadi) Values ('Huseyin Lacivert')

Copy To (m.lcDataSource)

 

MergeToDoc(m.lcDataSource, m.lcTemplate, m.lcSaveAs)

 

** Erase Temp table

Erase (m.lcDataSource)

 

Procedure MergeToDoc

    Lparameters tcDataSource, tcTemplate, tcSaveAs

    Wait Window Nowait "Creating Word Document.Please wait..."

 

    #Define wdOpenFormatAuto    0

    #Define wdSendToNewDocument    0

    #Define wdSendToPrinter    1

    #Define wdSendToEmail    2

    #Define wdSendToFax    3

 

    #Define wdAlertsNone    0

    #Define wdDoNotSaveChanges 0

 

    #DEFINE wdFormatDocument97    0    

 

    Local lcConnection, lcSource, lcSQLStatement, loDoc

    m.lcSource = Forcepath('myDummy.udl',Sys(2023))

    If !File(m.lcSource)

        Strtofile('',m.lcSource)

    Endif

 

    lcConnection = 'Provider=VFPOLEDB;Data source='+Justpath(m.tcDataSource)

    lcSQLStatement = Textmerge('select * from [<< JustStem(m.tcdatasource) >>]')

 

    *** set the LOCALEID to English

    nlLocaleId=Sys(3004)  && Save local id

    =Sys(3006,1033)    && We will be sending instructions in English

    *** set the LOCALEID to English

 

    oWordDocument=Createobject("word.application") && Create word object

    With oWordDocument

        loDoc = .documents.Add(m.tcTemplate)  && Open a template

 

        With .ActiveDocument.Mailmerge

            .OpenDataSource(m.lcSource, wdOpenFormatAuto,.F.,,.T.,,,,,,,m.lcConnection, m.lcSQLStatement)

            .EditMainDocument    && Activate the main document

            .Destination = wdSendToNewDocument

            .Execute()

 

        Endwith

        m.loDoc.Close(0) && closing the template doc - keep open to create your own template

        loDoc = null

        .ActiveDocument.SaveAs(m.tcSaveAs, wdFormatDocument97)

        .ActiveDocument.Saved = .T.

        .DisplayAlerts = wdAlertsNone

        .NormalTemplate.Saved = .T.

        For Each oDoc In .documents

            oDoc.Close(wdDoNotSaveChanges)

        Endfor

        oDoc = .Null.

        .Quit(wdDoNotSaveChanges)

    Endwith

    **** Set the LocaleId to the previous value

    =Sys(3006,Val(nlLocaleId))

    Wait clear

Endproc