Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: VB i Word
zorba




Typ: neutral
Postów: 4
Zarejestrowany: Feb 2005
VB i Word

Pisalem juz wczesniej skrypty w VB pod Excela, ale zupelnie nie wiem jak ugryzc ten temat pod Wordem :/. Chcialbym aby przy otwarciu dokumentu zmieniala sie data (na dzisiejsz) umieszczona w pierwszej linii wyrownanej do prawje strony. Nie mam pojecia jak wogle zaczac. Prosze o pomoc.

21-02-2005 15:59
Pokaż profil zorba  Wyślij email do zorba   
zorba




Typ: neutral
Postów: 4
Zarejestrowany: Feb 2005

Zrobilem to tak:

Dim dte As Date
   
    dte = Date
   
    ActiveDocument.Content.Text = "Lublin, " + CStr(dte)
    ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight


ale wtedy kasuje mi caly tekst pod datą.

21-02-2005 17:24
Pokaż profil zorba  Wyślij email do zorba   
Mroowek




Typ: neutral
Postów: 51
Zarejestrowany: Feb 2005

Nie wiem czy Cie to zadowoli ale ja zrobilem to tak:
w perwszej lini wpisalem nazwe miasta, przecinek, wyrownalem do prawej, a nastepnie z menu Worda wybralem: Wstaw->Data i godzina. w okienku ktore sie pokazalo wybierasz format daty/godziny ktory Cie interesuje i zaznaczasz checkboxa: Aktualizuj automatycznie. pozniej klikasz OK i masz date, ktora aktualizuje sie sama przy kazdym otwarciu dokumentu.

A jesli chcesz to zrobic pod VBA to moze przed ta swoja funkcja dodaj linie kodu ktora skopiuje caly tekst z domkumentu(od 2-iej lini) do "bufora", pozniej twoja funkcja zmieniajaca date, a nastepnie odczytanie z "bufora" i zapis do dokumentu.

PS1. ale sprawdz sobie ta pierwsza opcje.
PS2. nie wiem jaka masz wersje offica ale chyba bedziesz mial ten "myk" z datą.
Mam nadzieje ze cos pomoglem.

Pozdr.

21-02-2005 18:20
Pokaż profil Mroowek  Wyślij email do Mroowek        4892300
zorba




Typ: neutral
Postów: 4
Zarejestrowany: Feb 2005

Ok, thx. Z tym wstaw -> data i godzina to chyba najsensowniejsze rozwiazanie. No coz nie sadzilem ze tak sie da. Od raz zabralem sie za VB.
Dzieki Mroowek.

21-02-2005 18:37
Pokaż profil zorba  Wyślij email do zorba   
zorba




Typ: neutral
Postów: 4
Zarejestrowany: Feb 2005

Ok, thx. Z tym wstaw -> data i godzina to chyba najsensowniejsze rozwiazanie. No coz nie sadzilem ze tak sie da. Od raz zabralem sie za VB.
Dzieki Mroowek.

21-02-2005 18:49
Pokaż profil zorba  Wyślij email do zorba   
Mroowek




Typ: neutral
Postów: 51
Zarejestrowany: Feb 2005

no problemo. fajnie ze udalo sie pomóc
see you.

21-02-2005 19:23
Pokaż profil Mroowek  Wyślij email do Mroowek        4892300
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Zrobilem to tak:

Dim dte As Date
   
    dte = Date
   
    ActiveDocument.Content.Text = "Lublin, " + CStr(dte)
    ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight


ale wtedy kasuje mi caly tekst pod datą.


Zwróć uwagę na zapis:
ActiveDocument.Content.Text = "Lublin, " + CStr(dte)
ta linijka kodu mówi: Treść dokumentu zastąp Lublin, data
Powinieneś to zrobić tak:
Sub CosTam()
ActiveDocument.Paragraphs(1).Range.Select
Selection.MoveEnd Unit:=wdParagraph, Count:=1
Selection.TypeText "Lublin, " & Format(Date, "dd-MM-yyyy"
ActiveDocument.Paragraphs(1).Alignment = wdAlignParagraphRight
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

25-02-2005 18:38
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 6 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1