With objWrd
Set tablerange = .ActiveDocument.Range(.ActiveDocument.Bookmarks("p etro_formations_txtmark").Start, _
.ActiveDocument.Bookmarks("petro_formations_txtmar k").End)
End With
tablerange = rs!formation_name & Chr(1) & Chr(1) & Chr(1) & Chr(1) & Chr(1) & "" & rs!formation_top & " mMD, " & rs!formation_tvd & " mTVD" & Chr(1) & Chr(1) & Chr(1) & Chr(1) & Chr(1) & _
"Top*!*[mMd]" & Chr(1) & "Bottom*!*[mMd]" & Chr(1) & "Top*!*[mTVDSS]" & Chr(1) & "Bottom*!*[mTVDSS]" & Chr(1) & "Thickness*!*[mMD]" & Chr(1) & "Thickness*!*[TVD]" & Chr(1) & "Deviation*!*[°]" & Chr(1) & "Por*!*[%]" & Chr(1) & "SW*!*[%]" & Chr(1) & "Fluid*!*[ ]"
|