- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- gban: Ingyen kellene, de tegnapra
- sziku69: Szólánc.
- bambano: Bambanő háza tája
- btz: Internet fejlesztés országosan!
- eBay-es kütyük kis pénzért
- urandom0: Kicsit most elfáradtam...
- Geri Bátyó: Agglegénykonyha 6 – Néhány egyszerű tésztaétel
-
LOGOUT
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
bteebi
veterán
Sziasztok!
Kicsit rendhagyó, mert igazából Worddel kapcsolatos, viszont VBA-s kérdés, úgyhogy szerintem érdemesebb itt feltenni, mint a Word topikban. Van egy Word file, ami a lenti makrón felül mezőket tartalmaz. Azt szeretném, hogy egy dialógusból kiválasztott másik Word file-ban a megegyező nevű mezők tartalmát felülírja a kiindulási file-ban lévő értékekkel.
Ez utóbbinál akadtam el. Elvileg egy mezőnek a
ActiveDocument.Fields(n).Result
adja meg az értékét, így például aMsgBox mezo.Result
működik is, viszont arra, hogymezo.Result = "1"
Type mismatch hibakódot kapok. Ezen kívül azt se tudom, hogy azt hogy lehetne megcsinálni, hogy (csak) azoknak a mezőknek a tartalmát írja felül a makró a megnyitandó file-ban, amiknek az eredeti file-ban is ugyanaz a neve (pl. Cim1, Cim2, stb.). A meglévő kód:Sub MezoToltes()
Dim innen As Document, ide As Document, mezo As Field, WordApp As Application
Set innen = ActiveDocument
Set ablak = Application.FileDialog(msoFileDialogOpen)
ablak.Filters.Clear
ablak.Filters.Add "Word dokumentumok", "*.doc*"
ablak.Title = "Válaszd ki a feltöltendő file-t"
ablak.InitialFileName = innen.Path
ablak.InitialView = msoFileDialogViewList
ablak.FilterIndex = 1
filechosen = ablak.Show
If filechosen = -1 Then
fajlnev = ablak.SelectedItems(1)
Set WordApp = CreateObject("Word.Application")
WordApp.Documents.Open fajlnev
WordApp.Visible = True
Else: Exit Sub
End If
For Each mezo In innen.Fields
mezo.Result = "1"
Next mezo
innen.Fields.Update
End SubElőre is köszönöm a javaslataitokat!
Új hozzászólás Aktív témák
- Videós, mozgóképes topik
- Apple iPhone Air - almacsutka
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Bittorrent topik
- sziku69: Fűzzük össze a szavakat :)
- Külső 3,5'' mobil rack-ek topikja
- Autós topik
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Battlefield 6
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Game Pass Ultimate előfizetések 4 - 19 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- 154 - Lenovo LOQ (15IRX9) - Intel Core i5-13450HX, RTX 4060
- BESZÁMÍTÁS! 16GB (2x8) Kingston HyperX Fury 1600MHz DDR3 memória garanciával hibátlan működéssel
- Eladó egy oneplus 9 pro 256/12
- Apple iPhone 13 Mini 128GB, Kártyafüggetlen, 1 Év Garanciával
- LG Gram 14 WUXGA IPS i7-1360P 5.0Ghz 12mag 32GB DDR5 1TB SSD Intel Iris XE 10óra Akku Win11 Garancia
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest