VBA.Mania

vbamania.pl

Dziś jest piątek, 17 maja 2024 roku.

Ustaw jako stronę startową

Ulubione

Napisz

Powrót

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Aktywowanie makra otwarty rozpoczął: spaydi postów: 4

napisał: admin postów: 613 umieszczony: 6 lipca 2007 22:06
	Cytat: W pliku worda chce umiescic klawisz makra poprzez, ktory bedzie wywolywane drukowanie innego pliku worda z okreslonej lokalizacji Ojejejej....Postaraj się pisać na drugi raz zgodnie z regułami logiki, bo Twoje tłumaczenie jest niezwykle chaotyczne i dodatkowo nieczytelne ze względu na alternatywny sposób potraktowania zasad interpunkcji. Po drugie stosuj znaczniki kodu, wówczas kod będzie czytelniejszy. Twój kod mógłby wyglądać tak: Sub Makro1() Dim oDoc As Document Set oDoc = Documents.Open(FileName:="C:\Documents and Settings\Andrzej\Pulpit\147.doc", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto) oDoc.PrintOut oDoc.Close Set oDoc = Nothing End Sub Jaki masz poziom zabezpieczeń w Wordzie? Ustaw średni lub niski.

napisał: spaydi postów: 9 umieszczony: 6 lipca 2007 21:38
	Opisze moj problem bardziej szczegolowo o co chodzi. W pliku worda chce umiescic klawisz makra poprzez, ktory bedzie wywolywane drukowanie innego pliku worda z okreslonej lokalizacji wszystko jest ok do momentu kiedy zamkne dokument word z klawiszem i ponownie go otworze to makro przestaje dzialac. I musze go odpalac z edytora VB, jeszcze jednego chce uniknac, aby makro uruchamilo sie najlepiej po kliknieciu klawiszapo. To jest makro tylko pominolem drukowanie do samego otwarcia i zamkniecu pliku Sub Makro1() ' ' Makro1 Makro ' Makro zapisane 2007-07-06 przez SPAYDI ' ChangeFileOpenDirectory "C:\Documents and Settings\SPAYDI\Pulpit\" Documents.Open FileName:="147.doc", ConfirmConversions:=False, ReadOnly:= _ False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _ "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _ Format:=wdOpenFormatAuto ActiveWindow.Close End Sub a to jest: thisdocument Private Sub CommandButton1_Click() Makro1 End Sub

napisał: admin postów: 613 umieszczony: 6 lipca 2007 20:10
	Cytat: Witam Mam prosbe prosze o pomoc jak aktywowac makro w wordzie, zeby bylo aktywne po otwarciu pliku, w ktorym jest zawarte. pozdr Poprawka maila było niepotrzebna i błędna. Przed "w" nie należy umieszczać przecinka Czy chodzi o to, by dane makro uruchamiało się automatycznie po otwarciu pliku? Jeśli tak, to w module klasy ThisDocument (znajdziesz ją na drzewie projektu, tam gdzie moduły i fomularze) wpisz: Private Sub Document_Open() Nazwa_Twojego_Makra End Sub

napisał: spaydi postów: 9 umieszczony: 6 lipca 2007 17:59 edytowany: 6 lipca 2007 18:30
	Witam Mam prosbe prosze o pomoc jak aktywowac makro w wordzie, zeby bylo aktywne po otwarciu pliku, w ktorym jest zawarte. pozdr

wstecz 1 dalej

wszystkich stron: 1