Word 테이블을 Access로 가져 오기 - 추가 문자 추가

Question

Word에서 Access로 테이블 데이터를 가져 오는 VBA 스크립트가 있습니다. 잘 작동하지만 AccessTable의 모든 필드 @ 모든 열에서 스크립트는 가져온 데이터 끝에 "검은 점"을 추가합니다. 또한 테이블 필드가 비어있는 경우.

내 데이터는 Word의 "31.12.2106"과 Access의 "31.12.2016 *"처럼 보입니다.

누구든지 아이디어가 있습니까? 워드 셀 범위의 Text

For i = 5 To CountTables 
With doc.Tables(i) 
     With rst 
      .AddNew 'Neuen Eintrag in die Tabelle schreiben 
       ![xx1] = xx 
       ![xx2] = xx1 
       ![xx3] = xx2 
       ![SystemNr] = SystemNr 
       ![xx4] = xx4 
       ![xx5] = xx5 
       ![Scope] = doc.Tables(i).Cell(1, 2).Range.Text 
       ![Action] = doc.Tables(i).Cell(2, 1).Range.Text 
       ![xx6] = doc.Tables(i).Cell(5, 1).Range.Text 
       ![ActionReference] = doc.Tables(i).Cell(7, 1).Range.Text 
       ![RelatedDatabases] = doc.Tables(i).Cell(9, 1).Range.Text 
       ![xx7] = doc.Tables(i).Cell(11, 1).Range.Text 
       ![xx8] = doc.Tables(1).Cell(13, 1).Range.Text 
       ![Result] = doc.Tables(i).Cell(15, 1).Range.Text 
       ![xx9-Nr] = doc.Tables(i).Cell(17, 1).Range.Text 
      .Update 'Tabelle updaten 
     End With 
End With 
Next 

Answer 1

대하가 끝나는 (7), 셀 끝 문자로서 역할 BEL 문자. 이 모든 발행 수를 교체 이와

doc.Tables(i).Cell(x, y).Range.Text 

을 :

Replace(doc.Tables(i).Cell(x, y).Range.Text, Chr(7),"") 

이 충분해야한다.