• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Přepnout se z excelu do wordu

Zaslal/a Jiří497 22.8.2022 3:14

Mám makro, kdy si zapíši data z excelu do wordu.
Teď mi makro skončí, word zůstane otevřený, ale já se do wordu musím přepnout ručně, abych si mohl prohlídnout a doupravit vzniklý dokument.
Rád bych, když makro skončí, tak abych zůstal ve vytvořeném wordu (excel zůstane otevřený).

Sub tlačítko2_Kliknutí()
Dim oDokument As Word.Document
Dim jmeno As String
jmeno = Range("A2").Text
adresar = ThisWorkbook.Path
soubor = jmeno & ".docx"

Set objWord = New Word.Application
Set oDokument = objWord.Documents.Add(adresar & "\Potvrzení1.docx")
objWord.Visible = True

oDokument.Bookmarks("jmeno").Range.Text = jmeno
oDokument.Bookmarks("datum").Range.Text = Range("A1").Text

' oDokument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1", copies:="2"
oDokument.SaveAs (adresar & soubor)
MsgBox "konec"
' oDokument.Close SaveChanges:=True
' Word.Application.Quit
End Sub

Příloha: 53198_excel-do-wordu.zip (340kB, staženo 6x)

Zaslat odpověď >

---

elninoslov(22.8.2022 14:02)#053216

Tam treba urobiť aj opatrenia na čo najmenší počet možných zlyhaní a omylov. Príklad.

Příloha: 53216_excel-do-wordu.zip (154kB, staženo 13x)

citovat

Jiří497(22.8.2022 22:43)#053222

Děkuji.
Děkuiji i za bonus v podobě ošetření chyb. Třeba kontrolovat, zda není word již otevřen by mě vůbec nenapadlo.

Poznámka pro ty, kdo si stáhnou příklad, tak je tam chybka v podobě dvojího zpětného lomítka:

jedno zpětné lomítko na konci cestyadresar = ThisWorkbook.Path & "\"
druhé zpětné lomítoi na začátku názvu souboruSet oDokument = objWord.Documents.Add(adresar & "\Potvrzení1.docx")
To zpětné lomítko na začátku názvu souboru je tam zbytečné.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse