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

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: zip

53216_excel-do-wordu.zip (154kB, staženo 14x)

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

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje