Zdravím,
potřeboval bych poradit s otevřením wordovského souboru pomocí makra Excelu.
Příkaz "Application.ActivateMicrosoftApp xlMicrosoftWord" aktivuje nebo spustí prázdný Word, ale nevím, jak Wordu vnutit, aby se otevřel již s nějakým konkrétním souborem.
Jestli by to šlo pomocí nějakých parametrů nebo pomocí funkce GetObject ...
Díky za radu
otevření wordovského souboru makrem Excelu Vyřešeno
Re: otevření wordovského souboru makrem Excelu
slo by to napr. takto:
Kód: Vybrat vše
Public Sub openFILE()
Dim soubor As String
Dim Path as String
soubor = ActiveCell.Value
Path = "c:\Documents and Settings\Dokumenty\" & soubor
Dim wdApp As Word.Application, wdDoc As Word.Document
On Error Resume Next
Set wdApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then 'Word isn't already running
Set wdApp = CreateObject("Word.Application")
End If
On Error GoTo 0
wdApp.Visible = True
Set wdDoc = wdApp.Documents.Open(Path)
End Sub
Re: otevření wordovského souboru makrem Excelu Vyřešeno
Díky, funguje to.
Jen jsem musel "vyházet" všechny příkazy "Dim" - neprošly kompilací
Jen jsem musel "vyházet" všechny příkazy "Dim" - neprošly kompilací
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení zabezpečení internetu zabránilo v otevření jednoho nebo více souborů Příloha(y)
od magnator » 06 čer 2023 10:23 » v Windows 11, 10, 8... - 3
- 2000
-
od mmmartin
Zobrazit poslední příspěvek
06 čer 2023 21:22
-
-
-
co je potřeba pro otevření krámu s výpočetní technikou
od souky5 » 02 lis 2023 19:24 » v Reklamace a zákony - 29
- 11384
-
od atari
Zobrazit poslední příspěvek
01 pro 2023 10:23
-
-
- 18
- 3654
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 0
- 889
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
- 2
- 1345
-
od X
Zobrazit poslední příspěvek
02 čer 2023 18:06
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 33 hostů