Új hozzászólás Aktív témák
-
Boolash
aktív tag
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 SubEz í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
- Valve Index VR Kit
- Uhh Lenovo ThinkPad P15 G2 Tervező Vágó Laptop -75% 15,6" i5-11500H 16/1TB RTX A2000 4GB /1 Millió/
- Esport PC - i5 13400F, GTX 1080ti és 16gb DDR5
- Ohh Lenovo ThinkPad P15 G2 Tervező Vágó Laptop -75% 15,6" i5-11500H 32/1TB RTX A2000 4GB /1 Millió/
- AZTA! HP EliteBook 840 G8 Fémházas Laptop Ultrabook 14" -60% i7-1185G7 16/512 FHD IPS Iris Xe
- 1-12 részletre.Új noblechairs EPIC műbőr FEKETE - FEKETE. 2 év garancia!
- AKCIÓ! ASUS Z97-A Z97 chipset alaplap garanciával hibátlan működéssel
- Bomba ár! Lenovo ThinkPad T490 - i5-8GEN I 16GB I 256GB SSD I 14" FHD I Cam I W10 I Garancia!
- AKCIÓ! MSI B550 R7 5700X 32GB DDR4 512GB SSD RTX 3060Ti 8GB Rampage SHIVA MSI 650W
- LG 39GS95UE - 39" Ívelt OLED / QHD 2K / 240Hz & 0.03ms / 1300 Nits / NVIDIA G-Sync / AMD FreeSync
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Promenade Publishing House Kft.
Város: Budapest