Tema
Boje
Pismo
Registracija

Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

Kako se dodaje

"Save as" macro iz text box-a

Odgovori Nova tema
Štampanje RSS teme Kopiraj vezu do teme Podeli na Facebook-u Podeli na X-u (Twitter) Idi na poslednju poruku
  • 4 odgovora
  • 3.604 pregleda

Najnovija ↓

"Save as" macro iz text box-a 15.10.2009. u 14:45 · pre 207 meseci #1
Imam dokumenat u Word-u. Kako da u SAVE AS automatski unesem naziv iz text box-a na odredjenu lokaciju u My documents?
Kako bi glasio macro koji bi automatski ( startovanjem macro-a, ili shortkey-a ) vrsio snimanje dokumenta pod nazivom (imenom ) koje je u text box-u?
Primer :
startujem macro , macro startuje SAVE AS i u FILE NAME ubacuje naziv iz text box-a .
Hvala unapred
Potpis
What doesn't kill me, costs me money!
Re: "Save as" macro iz text box-a 16.10.2009. u 00:47 · pre 207 meseci #2
Probaj da u formi iskoristis sledeci kod (recimo da je textbox Text1):

Code:

    ChangeFileOpenDirectory Environ$("USERPROFILE") & "\My Documents"
    ActiveDocument.SaveAs FileName:=Text1.Text


Pozdrav
Re: "Save as" macro iz text box-a 16.10.2009. u 09:43 · pre 207 meseci #3
Mislila sam na textbox iz Drawing toolbar-a!
Potpis
What doesn't kill me, costs me money!
Re: "Save as" macro iz text box-a 16.10.2009. u 12:23 · pre 207 meseci #4
Onda umesto textbox1.text koristi

Code:

ActiveDocument.Shapes("Text Box 1").TextFrame.TextRange.Text


Naravno moras da znas kako se zove tvoj TextBox. Da ga identifikujes probaj sledece:

1. Selektuj TextBox
2. Pritisni Alt+F11
3. Pritisni Ctrl+G (da otvoris Immediate prozor)
4. Otkucaj

Code:
? ActiveWindow.Selection.ShapeRange.Name


Pozdrav
Re: "Save as" macro iz text box-a 21.10.2009. u 12:10 · pre 207 meseci #5
Timmy, napravila sam kako si rekao; ubacila sam code:

Code:

Sub save_as()
    ChangeFileOpenDirectory Environ$("USERPROFILE") & "\My Documents"
    ActiveDocument.Shapes("Text Box 1").TextFrame.TextRange.Text
End Sub

i u Immediate Window:

Code:

? ActiveWindow.Selection.ShapeRange.Name

... i Message Box mi javlja error:
Compile error:
Invalid Use of Property

Gde sam pogresila?

Hvala i pozdrav
Potpis
What doesn't kill me, costs me money!
Odgovori
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme