- sziku69: Fűzzük össze a szavakat :)
- sziku69: Szólánc.
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
- f(x)=exp(x): A laposföld elmebaj: Vissza a jövőbe!
- Argos: Az vagy, amit megeszel
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- gban: Ingyen kellene, de tegnapra
- GAI: Retro GPU-k mindörökké: a végleges koncepció, és a szereplők bemutatása
- eBay-es kütyük kis pénzért
-
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
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Antivírus szoftverek, VPN
- ÁRGARANCIA!Épített KomPhone i5 13400F 16/32/64GB RAM RX 9060 XT 8GB GAMER PC termékbeszámítással
- GYÖNYÖRŰ iPhone SE 2022 64GB White -1 ÉV GARANCIA - Kártyafüggetlen, MS3369
- BESZÁMÍTÁS! ASUS H610M i5 12400F 16GB DDR4 1TB SSD RTX 4060 8GB Rampage Shiva Cooler Master 650W
- Lenovo ThinkPad 40AF docking station (DisplayLink)
- Bomba ár! Fujitsu LifeBook E744 - i7-4GEN I 16GB I 512SSD I 14" HD+ I DP I Cam I W10 I Garancia!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest