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

• Polyák tag

  #1074

  #1073 Boolash

  2008-11-27 13:37:15

  Ú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

  

  Polyák

  tag

  #1073 Boolash

  #1073 Boolash

  Nemnagyon pörög a topik
  Sikerült előrejutnom. Márcsak 1 probléma van, hátha valaki tudja.
  a Selection.Find -nál szeretnék wildchardokat használni kereséshez. Engedélyeztem is a használatukat. Amit szeretnék keresni: [space]bármi[kukac]bármi[.]bármi[space]
  ezt kellene lefordítani. De ez így nem jó: <[ ]*[@]*[.]*[ ]> egyrészt mert a @ is jelent valamit, meg a space-t sem kezeli így....
  Hogy kellene?
  Köszi

  bocsi de sajnos ebben nem tudok segíteni.
  és igen, ez a topik mostanában nem igazán szaporítja a hozzászólásokat.

• Boolash aktív tag

  #1073

  #1072 Boolash

  2008-11-27 10:49:21

  Ú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

  #1072 Boolash

  #1072 Boolash

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

  Nemnagyon pörög a topik
  Sikerült előrejutnom. Márcsak 1 probléma van, hátha valaki tudja.
  a Selection.Find -nál szeretnék wildchardokat használni kereséshez. Engedélyeztem is a használatukat. Amit szeretnék keresni: [space]bármi[kukac]bármi[.]bármi[space]
  ezt kellene lefordítani. De ez így nem jó: <[ ]*[@]*[.]*[ ]> egyrészt mert a @ is jelent valamit, meg a space-t sem kezeli így....
  Hogy kellene?
  Köszi

• 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!

• Polyák tag

  #1070

  #1069 Boolash

  2008-11-26 20:49:26

  Ú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

  

  Polyák

  tag

  #1069 Boolash

  #1069 Boolash

  Oké.
  az If-et így kellene írnom:

  If i < 100 Then i = 1 + i

  ezzt dobja hibának:

  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection

  object doesn't support this property or method.....

  Szia!
  Ez most akkor wordben vagy excelben van?

• Boolash aktív tag

  #1069

  #1068 Boolash

  2008-11-26 19:03:40

  Ú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

  #1068 Boolash

  #1068 Boolash

  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

  Oké.
  az If-et így kellene írnom:

  If i < 100 Then i = 1 + i

  ezzt dobja hibának:

  Obj1.Worksheets("Munka1").Cells(1, i).Value = ActiveDocument.Selection

  object doesn't support this property or method.....

• VIC20 őstag

  #1066

  #1065 Boolash

  2008-11-26 08:30:14

  Ú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

  

  VIC20

  őstag

  #1065 Boolash

  #1065 Boolash

  Sziasztok!
  Egy gyors segítség jól jönne! Word-ben programozok, és elakadtam (elég hamar...) Azt szeretném kérdezni, hogy hogyan kell egy teljes szót kijelölni? Konrétan arról lenne szó, hogy rákeresek egy betüre a teljes word dokumentumban, majd az kellene nekem, hogy ne csak az a betü legyen kijelölve, hanem az egész szó!

  Set myrange = ActiveDocument.Content
  myrange.Find.ClearFormatting
  With Selection.Find
  .Text = "@"
  .Forward = True
  End With
  Selection.Find.Execute
  End Sub

  Illetve ez így ugyebár, ha megtalálta az első egyezőt, akkor leáll. Gondolom egy if -el nézem azt, hogy a myrange végére ért e. Hogy mondom neki, hogy végére ért e?
  Köszi!

  Huh, most mindenféle utánanézés előtt megkérdem: szoktad használni a Word makrórögzítőjét? Nagyon hasznos tud lenni: megcsinálja ezeknek a szövegszerkesztős műveleteknek a kódját.

• [HUN]Zolee őstag

  #1016

  #1015 Boolash

  2008-09-25 18:59:59

  Ú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

  

  [HUN]Zolee

  őstag

  #1015 Boolash

  #1015 Boolash

  Áhh.. Megvan..
  Kicsit túllőttem a célon... Sok volt az 1000 oszlop.
  Esetleg azt nem tudod, hogy hogy lehet megnézni, hogy az adott sorban/oszlopban hol van az utolsó elem? Ne kellejen feleslegesen hiába végignézni sok-sok cellát...
  Köszi!

  Nemtudom. De én úgy szoktam megtudnia a parancsokat, hogy elindítok egy makró rögzítést és megadom a függvényt ami kell nekem beépítetből, így szépen lementi a mscro verzióját.

• [HUN]Zolee őstag

  #1014

  #1013 Boolash

  2008-09-25 18:48:55

  Ú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

  

  [HUN]Zolee

  őstag

  #1013 Boolash

  #1013 Boolash

  Sziasztok!
  Fontos lenne!
  Ezzel mi lehet a hiba?

  Sub elso()
  
  Dim i, j As Integer
  
  For i = 1 To 65536
  For j = 1 To 1000
  If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
  
  Else
  Munka1.Cells(i, j).Interior.ColorIndex = 27
  
  End If
  Next j, i
  
  End Sub

  Ez a sor nem jó: If Munka1.Cells(i, j).Value = Munka2.Cells(i, j).Value Then
  merthogy application/object defined error....
  De miért?
  Hogy kellene?

  Egyébként azt csinálja, hogy 2 munkalapot összehasonlít, és ahol különbözik a kettő, azt sárgával megjelöli.

  Köszi!

  Hát nem tudom hogy amiatt reklamál-e hogy az else és a then között nincs semmilyen utasítás.

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