title image


Smiley Re: Noch eine Frage
Hallo









Dim strText As String

Dim strPart1 As String

Dim strPart2 As String

Dim iPos As Integer

strText = Trim(xRs.VName)

iPos = InStr(1, strText, vbCrLf)

If iPos > 0 Then

    strPart1 = Left(strText, iPos - 1)

    strPart2 = Mid(strText, iPos + 1)

Else

    '...

End If

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







Code eingefügt mit Syntaxhighlighter 4.0







Gruss THORAX

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: