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

• #2246 Sasos senior tag zsoltzsolt #2245

  Új Válasz 2016-04-16 18:32:47 #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.

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