Uložit jako txt ve Wordu z makra v Excelu

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

Kurimak
nováček
Příspěvky: 17
Registrován: leden 16
Pohlaví: Muž
Stav:
Offline

Uložit jako txt ve Wordu z makra v Excelu

Příspěvekod Kurimak » 03 srp 2017 13:53

Zdravím,

mám v Excelu makro, z kterého na dálku ovládám ve Wordu uložení vloženého textu ve formátu txt.
Text se uloží, je však někde chyba v kódování textu. V otevřeném texťáku se mi zobrazí nesmysl.
Nevím, kde je chyba.
Výtah z kódu ve VBA:

  1. Cesta = ActiveWorkbook.Path + "\"
  2.  
  3. Set App = CreateObject("Word.Application")
  4. On Error Resume Next
  5. App.ActiveDocument.Delete Cesta + ActiveSheet.Name + "_seznam" + ".txt"
  6. App.Documents.Add
  7. App.Selection.TypeText Seznam
  8. App.ActiveDocument.SaveAs2 Filename:=Cesta + ActiveSheet.Name + "_seznam" + ".txt", FileFormat:= _
  9.         wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _
  10.         WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
  11.          SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
  12.         False, Encoding:=1250, InsertLineBreaks:=False, AllowSubstitutions:=False _
  13.         , LineEnding:=wdCRLF, CompatibilityMode:=0
  14.  
  15.  
  16. App.ActiveDocument.Close
  17. App.Quit

Reklama
Uživatelský avatar
Microsheep
Level 4.5
Level 4.5
Příspěvky: 1656
Registrován: leden 10
Pohlaví: Muž
Stav:
Offline

Re: Uložit jako txt ve Wordu z makra v Excelu

Příspěvekod Microsheep » 03 srp 2017 14:40

Zkus tam nechat jenom jenom parametry FileName a FileFormat, stejně jsou to volitelné parametry, podle mě tam zbytek určitě nemusí být. VBA sice neznám. Jinak jsem zkusil v PowerShellu (ps1) vlastně to samé a funguje to.

Kód: Vybrat vše

$soubor = "C:\Users\tomasa\Desktop\lolo.docx"
$vystup = "C:\TEMP\soubor.txt"
$word = new-object -comobject word.application
$saveFormat = [Enum]::Parse([Microsoft.Office.Interop.Word.WdSaveFormat],"wdFormatText");
$doc = $word.Documents.Open($soubor)
$doc.SaveAs($vystup,$saveFormat)
$doc.Close()
$word.Quit()


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • excel-posun makra
    od actionboy » 12 bře 2024 18:59 » v Kancelářské balíky
    1
    259
    od Grimm Zobrazit poslední příspěvek
    12 bře 2024 21:43
  • Import PDF do excelu Příloha(y)
    od luko02420 » 13 kvě 2023 11:29 » v Kancelářské balíky
    18
    3249
    od luko02420 Zobrazit poslední příspěvek
    16 kvě 2023 11:27
  • Poškozený soubor excelu Příloha(y)
    od Jsimi » 06 úno 2024 22:43 » v Kancelářské balíky
    0
    611
    od Jsimi Zobrazit poslední příspěvek
    06 úno 2024 22:43
  • Promítaní excelu a videa zároveň
    od Marw7_ » 02 čer 2023 15:57 » v Vše ostatní (sw)
    2
    1283
    od X Zobrazit poslední příspěvek
    02 čer 2023 18:06
  • Tisk z excelu mění výšky buněk
    od Moonddur » 28 dub 2023 11:50 » v Kancelářské balíky
    1
    1652
    od atari Zobrazit poslední příspěvek
    28 dub 2023 12:08

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 1 host