델파이 5 월 MS 워드 2010 mailmerge

Question

아무도 도와 드릴까요?

델파이 5로 작성된 일부 소프트웨어를 상속 받았으며 데이터베이스에서 멤버 데이터와 필드 (.ADT 파일)를 병합하여 사용할 수 있습니다.

내가 말 한

"그 방법 해당 개체를 사용할 수 없습니다"

그것은이 문서를로드하지 않습니다 2010을 제외한 Word의 모든 버전과 잘 작동 오류를 보여줍니다 솔루션은 미리 설정된 구성 요소 OpWord 및 OpDataSet을 Ole 변형으로 대체하는 것입니다. 나는 OpWord를 사용하여 OpWord를 사용했다 :

wrdApp : CreateOleObject ('Word.Application');

이제 문서가로드되지만 병합 필드 데이터는 없습니다. 누구나 데이터베이스에서 데이터를 추출하는 방법을 알려 줄 수 있습니까? OpDataSet은 단순히 테이블을 가리키는 것처럼 보입니다.

또는 누구든지 내가 시도하는 것보다 더 나은 솔루션을 제안 할 수 있습니다. 델파이에 아주 새로운 해요 그래서 난 내 머리

편집을 통해 ABIT에있어 (정보를 요청) 필요한 경우 내가 자세한 내용과 코드가 미안

.

구성 요소는 TOpExcel, TOpOutlook 및 기타와 함께 OfficePartner라는 라이브러리에 속한 것으로 나타납니다. ...

난이 도움이되기를 바랍니다

{Use Table4 as we can Set a range on it} 
    Table4.SetRange([Table1.FieldByName('Member Id').AsString],[Table1.FieldByName('Member Id').AsString]); 

    {Open Word} 
    OpWord1.Connected := True; 

    {Open the Test Document} 
    OpWord1.OpenDocument(DocumentDirectory + '\' + Form30.ListBox1.Items[Form30.ListBox1.ItemIndex]); 

    {Populate the Test Document} 
    OpWord1.ActiveDocument.MailMerge.OfficeModel := OpDataSetModel1; 
    OpWord1.ActiveDocument.PopulateMailMerge; 
    OpWord1.ActiveDocument.ExecuteMailMerge; 

:

.DOC 표에서 병합 필드의 데이터를 열고 인구, Form30에 팝업 ListPane에서 선택 4. 표 1은 회원 데이터베이스입니다

Answer 1

다음은 D6 용으로 다시 사용했던 단어 편지 병합을위한 약간의 절차입니다. 그냥 스 니펫이며 일부 클래스에 포함시켜야하므로 더 이상 Delphi가 없으므로 컴파일하여 작동하는지 확인하십시오 , 어쨌든 여기에 도움이되기를 바랍니다.

procedure MailMergeWord; 
var 
    WordApp: TWordApplication; 
    WordDoc: TWordDocument; 
    doc : WordDocument; 
    FileName: OleVariant; 
    xx: integer; 
begin 
    WordApp := TWordApplication.Create(nil); 
    WordApp.ConnectKind := ckNewInstance; 
    WordDoc := TWordDocument.Create(WordApp); 
    FileName := 'TemplateDoc.doc'; 

    doc := WordApp.Documents.Open(FileName,EmptyParam,EmptyParam,EmptyParam,EmptyParam 
           ,EmptyParam,EmptyParam,EmptyParam,EmptyParam 
           ,EmptyParam); 

    WordDoc.ConnectTo(Doc); 
    for xx := 1 to WordDoc.Fields.Count do 
    WordDoc.Fields.Item(xx).Result.Text := OnWordVariable(WordDoc.Fields.Item(xx).Code.Text); 
    WordDoc.PrintOut; 
    WordDoc.Free; 
    WordApp.Free; 
end; 


function OnWordVariable(varName: string): string; 
begin 
    Result := 'Value based on variable name'; 
end;