2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Word topic

Új hozzászólás Aktív témák

  • #2246 Sasos senior tag zsoltzsolt #2245
    Új Válasz #2246
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    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.Quit

    Ha 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. :K

Új hozzászólás Aktív témák

Hirdetés