Hirdetés
- GoodSpeed: MacBook egy kis gikszerrel.
- btz: Internet fejlesztés országosan!
- sziku69: Szólánc.
- droidic: Időutazás floppyval: A 486-os visszavág PCem-men
- Meggyi001: Áram nélkül....méltóság nélkül.....
- ldave: New Game Blitz - 2026
- Lalikiraly: Mercis kalandok - Huszonkilencedik rész
- koxx: Bloons TD5 - Tower Defense játék
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Luck Dragon: Asszociációs játék. :)
Új hozzászólás Aktív témák
-
ArthurShelby
addikt
válasz
zsoltzsolt
#2660
üzenetére
Nem sajnos
-
andrasferenc
tag
válasz
zsoltzsolt
#2641
üzenetére
Hol lehet megvásárolni és mennyiért?
-
newmoonlight
senior tag
válasz
zsoltzsolt
#2635
üzenetére
Köszi szépen!
-
fgabor87
tag
válasz
zsoltzsolt
#2480
üzenetére
Majdnem, elsőre tényleg úgy néz ki, de ami nekem kell, az animálva van... folyamatosan körbejárja a szöveget.
-
Krisz1441
tag
válasz
zsoltzsolt
#2331
üzenetére
A főnök máshogy gondolja, de ha más lehetőség nincs.... Van egyébként?
-
#36268800
törölt tag
válasz
zsoltzsolt
#2259
üzenetére
Office 2007, magyar nyelvű. Elképzelhető, hogy a beállításoknál rossz valami?
-
#36268800
törölt tag
válasz
zsoltzsolt
#2257
üzenetére
Word-ben természetesen.
-
Sasos
senior tag
válasz
zsoltzsolt
#2245
üzenetére
Nem olyan bonyolult, csak a makrót kell megcsinálni. Itt egy kis segítség, amin el tudsz indulni, nálam így dolgozik. A módosításokat végző 2-3 oldalnyi kódot kihagytam, az nálad úgyis teljesen más lenne.
Letiltod a figyelmeztetéseket:
Application.DisplayAlerts = False
Értéket adsz a változóknak:
Fájlnév, az éppen megnyitott fájl neve, -4 karakter a végéről (3 a kiterjesztés, egy a pont, ha docx-eket alakítasz, akkor értelem szerűen -5.
FileName = Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 4)
Útvonal. Itt adod meg, hogy hol vannak a fájlok, ez az alapértelmezett könyvtár, amihez viszonyítani fog. Meghajtó betűjellel együtt, teljes elérési út, a végén \-jellel, az elérési út "-jelek között legyen:
Path = ""
Megadod az új könyvtár nevét. Nálam ugyan oda teszi vissza a feldolgozott fájlokat, csak a fájl nevével egyező alkönyvtárba.
NewPath = Path & FileName (a fent megadott elérési út + a fájl neve kiterjesztés nélkül)
Létrehozatod vele az új alkönyvtárat:
MkDir NewPath
Ezután megcsináltatod vele a módosításokat, ezt akár rögzített makróból is kipuskázhatod.
Ha ez megvan, akkor csak el kell menteni az új könyvtárba, és becsukni a Wordöt (az egyes beállítást végző string-ekre rá tudsz keresni a nevük alapján, ha szükséges. A fájl neve, az elején beolvasott fájlnév lesz, plusz a „.doc.” Én más kiterjesztés dolgoztatok fel (.htm) vele, ezért így oldottam meg, illetve nekem mindenképpen doc kell, hogy legyen a kimenet, nem jó a docx, de szájíz szerint személyre szabhatod.:
Beváltasz a fent létrehozott új könyvtárra:
ChangeFileOpenDirectory _
NewPath
Elmented másként a fájlt:
ActiveDocument.SaveAs2 FileName:=FileName & ".doc", _
FileFormat:=wdFormatDocument, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False, CompatibilityMode:=0
Becsukod a megnyitott dokumentumot:
ActiveDocument.Close
Becsukod a Wordöt:
Application.QuitHa segítség kell makró ügyben, akkor javaslom az Excel topikot. Egyrészt pörgős topik, másrészt van ott egy-két makrómágus.

-
Sasos
senior tag
válasz
zsoltzsolt
#2242
üzenetére
Van megoldás, de nem két kattintásos.
Kell csinálni egy makrót, ami megcsinálja a módosításokat, és elmenti a fájlt egy másik könyvtárba, majd be is zárja a Wordöt.
Meg kell nyitni a Word sablonját (normal.dot), és elmenteni bele ezt a makrót
(Én ütemezett feladatként használom így, nem tudom, hogy parancssorból simán megeszi-e a paramétereket, de szerintem igen)
Parancssorból lefuttatod a:
c:\word telepítési helye\WINWORD.EXE "fájlok elérési útja meghajtóval együtt\*.doc" /w /mMakró neve
Példa:
c:\Program Files\Microsoft Office\Office15\WINWORD.EXE "d:\céges dokumentumok\*.doc" /w /mfejléccsereÉrtelem szerűen ha docx a doksihalom, akkor azt adod meg kiterjesztésnek, a /m után pedig azt a nevet, amilyen néven a makró el lett mentve.
Mielőtt bármit csinálsz, csinálj egy másolatot a meglévő fájlokról, hogy véletlenül se legyen galiba.
Új hozzászólás Aktív témák
Hirdetés
- Jövedelem
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Folyószámla, bankszámla, bankváltás, külföldi kártyahasználat
- NVIDIA GeForce RTX 5080 / 5090 (GB203 / 202)
- Gyúrósok ide!
- iPhone topik
- Mibe tegyem a megtakarításaimat?
- VR topik
- Peugeot, Citroën topik
- VGA kibeszélő offtopik
- További aktív témák...
- Játékkulcsok olcsón: Steam, Uplay, GoG, EA, Xbox stb.
- Game Pass Ultimate előfizetések 3 - 36 hónapig azonnali kézbesítéssel! 13 hónap ultimate - 50.000 ft
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Kaspersky, BitDefender, Avast és egyéb vírusírtó licencek a legolcsóbban, egyenesen a gyártóktól!
- Eladó jogtiszta, Windows 11/10, Office 2019/2021/2024, Fizikai és Digitális licencek, Számlával.
- AKCIÓ! Endgame Gear & Xtrfy gamer egerek /MZ1/OP1 8K/XM2we/XM1R/XM1 RGB (fehér/fekete/lila)/
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB DDR5 RAM RTX 5070Ti 16GB GAMER PC termékbeszámítással
- 27% - MSI MAG Coreliquid I240 AIO Vízhűtés!
- Telefon felvásárlás!! Apple iPhone 16, Apple iPhone 16e, Apple iPhone 16 Plus, Apple iPhone 16 Pro
- Kingston 32GB DDR4 3200MHz KSM29ED8/32ME ECC Szerver RAM
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest

