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

• #1071 Boolash aktív tag Polyák #1070

  Új Válasz 2008-11-26 22:03:36 #1071

  Ú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

  Privát üzenet küldése

  

  Boolash

  aktív tag

  válasz Polyák #1070 üzenetére

  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

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