요청한 회원이 존재하지 않으십니까? Delphi6 Word 2013을 사용하여 데이터 소스 만들기

Question

Word 데이터 소스를 만드는 Delphi 2006에서 작동하는 시스템이 있습니다. 우리는 많은 자원을 사용해 왔지만 우리를 도울 때 아무것도 찾을 수 없습니다. 문제는 데이터 소스가 하나 이상의 열을 만들지 않는다는 것입니다. 즉, "요청한 멤버가 존재하지 않습니다"라는 오류가 발생합니다. 우리가 우리에게주는 말씀 2013의 형식은 델파이의 지혜에 관한 사무 자동화에

procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form3: TForm3; 
    WordApp, NewDoc, wrdMailMerge, wrdDataDoc: OleVariant; 

implementation`enter code here` 

{$R *.dfm} 


procedure TForm3.Button1Click(Sender: TObject); 

begin 
    WordApp := CreateOleObject('Word.Application'); 
    NewDoc:=WordApp.Documents.Open('c:\temp\TempLetter.doc'); 
    WordApp.Visible:= True; 

    wrdMailMerge:=NewDoc.MailMerge; 

    NewDoc.MailMerge.CreateDataSource('c:\temp\DataDoc.doc',,,'SUR_NME, FUL_NME, NAT_PER_DE, PLACE, BTH_DT'); 
    wrdDataDoc:=WordApp.Documents.Open('c:\temp\DataDoc.doc'); 

    wrdDataDoc.Tables.Item(1).Cell(2,1).Range.InsertAfter('arno'); 

    wrdDataDoc.Tables.Item(1).Cell(2,2).Range.InsertAfter('venter'); 

    wrdDataDoc.Tables.Item(1).Cell(2,3).Range.InsertAfter('SA'); 
    wrdDataDoc.Tables.Item(1).Cell(2,4).Range.InsertAfter('ggggp'); 
    wrdDataDoc.Tables.Item(1).Cell(2,5).Range.InsertAfter(Date); 

    wrdDataDoc.Save; 
    wrdDataDoc.Close(False); 


    wrdMailMerge.Execute(False); 

    NewDoc.Saved:=False; 
    NewDoc.Close(False); 



    enter code here 

    end; 


end. 

Answer 1

말씀을 발행 생각하는이 문제에 대한 몇 가지 통찰력을주십시오 : 내가보기 엔 당신이 할 동안 Word에서 매크로를 기록하는 것이 좋습니다 당신의 수동으로 병합하고 Word에서 매크로에 대해 생성하는 VBA 코드를 살펴보십시오.

VBA 코드가 있으면 어떻게 Delphi에서 문제에 접근하고있는 것과 비교할 수 있습니까?

때때로 단순한 철자 차이점이나 Word 설명서에서만 작업을 어렵게하는 특정 Office 개체 구성원에 대한 경로가 있습니다.

행운을 빈다.