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

• #1068 Boolash aktív tag

  Új Válasz 2008-11-26 18:47:32 #1068

  Ú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

  Ebben mi lehet a hiba?
  Elméletileg azt csinálná, hogy körbeszalad a word dokumentumon, kikeresi a @-ot, majd ha talál azt egy új excelbe belepakolja (max100-at). Majd menti.

  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
  If i < 100 Then
  i = 1 + i
  
  Selection.Copy
  
  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection
  
  Loop
  
  ActiveDocument.Save
  
  End Sub

  Így azt dobja, hogy Loop, without Do. Szerintem több hina is lesz. pl.: Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection
  Hogy lehetne ezeket?
  Köszi

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