Új hozzászólás Aktív témák

• Boolash aktív tag

  #1072

  #1071 Boolash

  2008-11-26 23:25:58

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Boolash

  aktív tag

  #1071 Boolash

  #1071 Boolash

  word-ben írom, de hivatkozok excel-re is. Tehát itt jelen esetben a wordben megtalált @ -t egy excel munkafüzetbe dobálja.
  Amúgy itt tartok:

  Sub akarmi()
  
  Dim Obj1 As Object
  Set Obj1 = CreateObject("excel.application")
  Obj1.Visible = True
  Obj1.Workbooks.Add
  
  Do Until ActiveDocument.Bookmarks("\Sel") = _
  ActiveDocument.Bookmarks("\EndOfDoc")
  
  With Selection.Find
  .Forward = True
  .Wrap = wdFindStop
  .Text = "@"
  .Execute
  End With
  Dim i As Integer
  i = 1 + i
  Dim valtozoword As String
  valtozoword = Selection.Text
  'MsgBox valtozoword
  'Dim i As Integer
  'If i < 25 Then i = 1 + i 'itt i-nek annyinak kéne lenni, mint ahány @ van
  Dim excelmezo As String
  'MsgBox excelmezo
  Obj1.Worksheets("Munka1").Cells(i, 1).Value = valtozoword
  Loop
  ActiveDocument.Save
  End Sub

  Ez így végigkeresi az összeset a wordben, és bedobja az excelbe, a cellákba szépen egymás alá.
  Az az egyik baj, hogy ez így végtelen... Miért nem száll ki a Loop-ból?? Többször végigmegy a kereséssel az egész word dokumentumon, és így végtelen számút talál és rak be az excelbe....
  Köszi

  Oks.. benéztem a Loop-ot, már kijavítottam. viszont a keresésre ha van vkinek ötlete, az jöhet!

Új hozzászólás Aktív témák