DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
strSeewasser = objWord.ActiveDocument.Tables(2).Rows(11).Cells(11).Range.Text
len1 = Len(strSeewasser) - 2
Me.txtSeewasser_gefäh = Left(strSeewasser, len1)
Dim objWord As Word.Application
Dim str1 As String
strTemplate = CurrentProject.Path & "\Form1.doc"
Set objWord = CreateObject("word.application")
objWord.Documents.Open strTemplate, ReadOnly:=True, Visible:=True
chem_bez = objWord.ActiveDocument.Tables(2).Rows(8).Cells(3).Range.Text
len1 = Len(chem_bez) - 2
Me.txtChem_bez = Left(chem_bez, len1)
strSeewasser = objWord.ActiveDocument.Tables(2).Rows(11).Cells(11).Range.Text
len2 = Len(strSeewasser) - 2
Me.txtSeewasser_gefäh = Left(strSeewasser, len2)
ladegewicht = objWord.ActiveDocument.Tables(2).Rows(5).Cells(3).Range.Text
len3 = Len(ladegewicht) - 2
Me.txtLadegewicht = Left(ladegewicht, len3)
'objWord.Documents.Close
Set objWord = Nothing