title image


Smiley Re: Noch eine Frage
hallo,



habe es jetzt so geloest:

.

.

.

Dim strText As String

Dim strPart1 As String

Dim strPart2 As String

strText = Trim(xRs.VName)

strPart1 = Left(strText, InStr(1, strText, vbCrLf) - 1)

strPart2 = Right(strText, Len(strText) - InStr(1, strText, vbCrLf) - 1)



xTMName = "bla1"

If wdDoc.Bookmarks.Exists(xTMName) Then

Set wdRng = wdDoc.Bookmarks(xTMName).Range

wdRng.Text = strPart1

wdDoc.Bookmarks.Add Name:=xTMName, Range:=wdRng

End If





das funktionier immer nur wenn die textbox 2 zeilig ist. wenn nur eine zeile da ist, geht es nicht. error.

wie packe ich das ganze in eine if abfrage, die ueberprueft ob die textbox 1 zeilig oder 2 zeilig ist.



danke gruß



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: