- Így nézz tévét 2025-ben: új ajánlások, régi szabályok
- OLED TV topic
- SSD kibeszélő
- Home server / házi szerver építése
- Dell notebook topic
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Házimozi haladó szinten
- CPU léghűtés kibeszélő
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Hamarosan kapható a Helegaly linuxos handheld gépe
Ú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
- Eladó MSI B650 GAMING PLUS WIFI Alaplap
- Eladó PNY GeForce RTX 4070 Ti SUPER 16GB videokártya
- Bomba ár! Asus Slate EP121 Tablet - Intel Core i5 I 4GB I 64GB SSD I 12" Touch I Cam I W10 I Gari!
- Bomba ár! HP EliteBook 2570P - i5-3GEN I 4GB I 320GB I DVD I 12,5" HD I W10 I Garancia!
- Bomba ár! HP EliteBook 2560P - i5-2GEN I 4GB I 320GB I 12,5" HD I W10 I Garancia!
- AKCIÓ! Apple Macbook Pro 16" 2019 i9 9980HK 64GB DDR4 1TB SSD Radeon Pro 5500M garanciával
- Új! HP 230 Vezetéknélküli USB-s Billentyűzet
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max/
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Bomba ár! Dell Latitude E6530 - i5-3GEN I 4GB I 500GB I HDMI I 15,6" HD+ I W10 I Garancia!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest