Ú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
- Lakáshitel, lakásvásárlás
- Vezetékes FEJhallgatók
- Okos Otthon / Smart Home
- Motorolaj, hajtóműolaj, hűtőfolyadék, adalékok és szűrők topikja
- Anglia - élmények, tapasztalatok
- Projektor topic
- Ultrák összecsapása: 500 megapixel fölé lő a Vivo
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Óra topik
- Formula-1
- További aktív témák...
- PC's Bövitőkártyák és Egyéb kiegészitők!
- ASUS TUF A17 Ryzen 7 7735HS 16 GB DDR5 512 GB SSD RTX 4060 (8 GB)
- A KINCS! ÚJ Dobozos HP ZBook Power G10 Workstation -35% 15,6" Ryzen 9 7940HS 32/1TB RTX 2000 ADA 8GB
- Xbox Series S 512GB
- A KINCS! Zsír Dobozos HP ProBook 450 G10 Fémházas Laptop 15,6" -45% i7-1355U 16/512 Iris Xe FHD 3 Év
- Veszünk: PS5 Fat/Slim/Digital/Pro konzolt, játékokat, Portalt stb. Kérj ajánlatot!
- Használt Sharkoon Skiller SGK3 német mechanikus billentyűzet / 12 hó működési garancia
- CSX DDR4 16GB 2666MHz ram, számlával!
- Acer TravelMate P214 i3-1115G4 16GB 512GB 14" FHD 1év garancia
- Xiaomi Redmi Pad 8,7 64GB, Wi-ti, 1 Év Garanciával
Állásajánlatok
Cég: Central PC számítógép és laptop szerviz - Pécs
Város: Pécs
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest

