een LineFeed vinden in een Comment

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Zat op het verkeerde "Forum", dus hier maar weer even.

Zit weer met een vraagje over de text van een Comment.
Probeer de text van een Comment over te zetten naar een Word document in een Tabel.
Tot dusver geen probleem.
Enigste probleem is als de text van deze Comment meerdere regels heeft.
Dan zet hij in het Word Document in een Tabel alle regels achter elkaar.
Dus de vraag wordt hoe haal ik een LineFeed uit de text van een Comment?
Code: 
  With Range(KolomLetter & RijNummer)
    Set C = .Comment
    On Error GoTo 0
    If C Is Nothing Then
      MsgBox ("Er is geen comment"), vbExclamation
    Else
      HIER ZOU HET INLEZEN IN REGELS MOETEN KOMEN      
      ' VarComment = C.Text
    End If
  End With

Alvast Many Thanks.
 

Bijlagen

  • Comment #1.xls
    58,5 KB · Weergaven: 11
Laatst bewerkt:
Vreemde is als ik een text uit een opmerking van meerdere regels in een MSGBox zet, geeft ie alle regels weer.
Zogauw ik deze text overzet naar Word met:
Code: 
   WrdBestand = ActiveWorkbook.Worksheets("Blad1").Range("J10") & "\" & ActiveWorkbook.Worksheets("Blad1").Range("J12") & ".doc"     ' opent BASIS-FILE
  Set Word = CreateObject("word.basic")       ' Set Word
  Word.fileopen WrdBestand                    ' opent een Word document met het Path & Naam file & extensie
  Word.appshow                                ' toont het document
  With Range(KolomLetter & RijNummer)
    Set C = .Comment
    On Error GoTo 0
    If C Is Nothing Then
      MsgBox ("Er is geen comment"), vbExclamation
      VarComment = " "
    Else
      VarComment = C.Text
    End If
  End With
  
  MsgBox ("VarComment =  " & VarComment)
 
  With GetObject(WrdBestand)                                                    ' Update variabelen van Excel --> Word doc.
    .Variables("Veld1") = VarComment
    .Variables("Veld2") = "Test #2"
    .Variables("Veld3") = "Test #3"
    .Variables("Veld4") = "Test #4"
    .Variables("Veld5") = "Test #5"
    .Fields.Update
  End With
Vervolgens in die Tabel alle regels achter elkaar zet??

Iemand een idee hierover?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan