Word galimybės
holdingas
7000
2014-07-30 19:37
holdingas
Sveiki. Kaip padaryti ant a4 formato rodyklę, rodančią kryptį? Man reikia padaryti "įėjimas" ir nurodti rodyklę?
symbol I
nebaika
586
2015-01-12 08:49
nebaika
2015-01-12 09-28
Sveiki,
kaip worde parašyti žodžius trupmenoje? Per Equotion editor neleidžia tarpų tarp žodžių padaryt..
pvz., "BP = Bendrasis pelnas/Pardavimų pajamos" . Kaip parašyt, kad Bendrasis pelnas būtų viršuj, o pardavimų pajamos - apačioj?
ačiū.
kaip worde parašyti žodžius trupmenoje? Per Equotion editor neleidžia tarpų tarp žodžių padaryt..
pvz., "BP = Bendrasis pelnas/Pardavimų pajamos" . Kaip parašyt, kad Bendrasis pelnas būtų viršuj, o pardavimų pajamos - apačioj?
ačiū.
Gita1
8424
L
2015-06-23 13:22
Liusijaa
Sveiki,
ABA2, labai ačiū Jums Jums už paaiškinmą apie pavogtą mygtuką (psl. viršuje) bet iki šiol man nepavyko
Prašau pagalbos , prisegu dokumentą
dar kartą nuoširdus AČIŪ pažyma.doc
ABA2, labai ačiū Jums Jums už paaiškinmą apie pavogtą mygtuką (psl. viršuje) bet iki šiol man nepavyko
Prašau pagalbos , prisegu dokumentą
dar kartą nuoširdus AČIŪ pažyma.doc
L
2015-06-25 14:11
Liusijaa
ABA2 rašė:
Liusijaa rašė:
Sveiki, kažkas pavogė mygtuką, kuris perversdavo skaičius į žodžius
Kaip ji Worde atrasti ?
Reikia kreiptis į policiją
Darom taip:
Pasitikriname, kad formų kūrimo meniu yra aktyvuotas (dialogas View -> Toolbars -> Form turi būti pažymėtas varnele)
Dokumento vietoje, kurioje turi būti skaičius įterpiame teksto redagavimo laukelį
Du kartus spustelėti ant įterpto langelio pele (arba spaudžiame dešinį pelės mygtuką ir pasirenkame Properties)
Atsidariusiame lange nustatomo lauko savybes:
Type: Number (parodome jog įvedinėsime skaičių)
Bookmark: suma (Laukelio pavadinimas)
Pastatome kursorių į poziciją, kurioje norime matyti skaičių žodžiais
Spaudžiame Ctrl+F9.
Tarp figūrinių skliaustų įterpiame apskaičiuotą lauką (įrašome =Suma , bei nurodome lauko formatą: \* CardText). Turėtumėm gauti tokį rezultatą: {=Suma \* CardText}
Tada spustelėti F9 (atnaujiname lauko reikšmę) bei Alt+F9 (įjungiame lauko reikšmės rodymo režimą).
Dabar pirmame laukelyje turėtumėte matyti skaičių, o antrame - tą patį skaičių parašytą žodžiais.
Ar panašiai-priklausomai nuo Word versijos.
Prašau visų pagalbos, nemoku aš, pažyma.doc
ABA2 rašė:
Liusijaa rašė:
Sveiki, kažkas pavogė mygtuką, kuris perversdavo skaičius į žodžius
Kaip ji Worde atrasti ?
Reikia kreiptis į policiją
Darom taip:
Pasitikriname, kad formų kūrimo meniu yra aktyvuotas (dialogas View -> Toolbars -> Form turi būti pažymėtas varnele)
Dokumento vietoje, kurioje turi būti skaičius įterpiame teksto redagavimo laukelį
Du kartus spustelėti ant įterpto langelio pele (arba spaudžiame dešinį pelės mygtuką ir pasirenkame Properties)
Atsidariusiame lange nustatomo lauko savybes:
Type: Number (parodome jog įvedinėsime skaičių)
Bookmark: suma (Laukelio pavadinimas)
Pastatome kursorių į poziciją, kurioje norime matyti skaičių žodžiais
Spaudžiame Ctrl+F9.
Tarp figūrinių skliaustų įterpiame apskaičiuotą lauką (įrašome =Suma , bei nurodome lauko formatą: \* CardText). Turėtumėm gauti tokį rezultatą: {=Suma \* CardText}
Tada spustelėti F9 (atnaujiname lauko reikšmę) bei Alt+F9 (įjungiame lauko reikšmės rodymo režimą).
Dabar pirmame laukelyje turėtumėte matyti skaičių, o antrame - tą patį skaičių parašytą žodžiais.
Ar panašiai-priklausomai nuo Word versijos.
Prašau visų pagalbos, nemoku aš, pažyma.doc
ABA2
1824
ABA2
1824
2015-06-26 11:17
ABA2
2015-06-26 11-24
Na štai, pabandžiau pritaikyti VBA kodą Wordui ir gavosi štai taip:
VBA kodas:
rašė:
Sub SumZod()
Dim aa#
With Selection
aa = CDbl(Replace(Replace(.Range.Text, Chr(160), ""), " ", ""))
.Range.Text = .Range.Text & " " & MSumProp(aa)
End With
End Sub
Function MSumProp$(chislo#)
Dim eur$, ct$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function
sot = Array("", "šimtas ", "du šimtai ", "trys šimtai ", "keturi šimtai ", "penki šimtai ", "šeši šimtai ", "septyni šimtai ", "aštuoni šimtai ", "devyni šimtai ")
des = Array("", "", "dvidešimt ", "trisdešimt ", "keturiasdešimt ", "penkiasdešimt ", "šešiasdešimt ", "septyniasdešimt ", "aštuoniasdešimt ", "devyniasdešimt ")
nadc = Array("dešimt ", "vienuolika ", "dvylika ", "trylika ", "keturiolika ", "penkiolika ", "šešiolika ", "septyniolika", "aštuoniolika ", "devyniolika ")
ed = Array("", "vienas ", "du ", "trys ", "keturi ", "penki ", "šeši ", "septyni ", "aštuoni ", "devyni ", "", "vienas ", "du ")
razr = Array("trilionai", "trilijonas ", "trilijonų ", "miliardas ", "milijardų ", "milijardai ", "milijonas ", "milijonai ", "milijonų ", "tūkstantis ", "tūkstančiai ", "tūkstančių ", "EUR ", "EUR ", "EUR ")
eur = Left(Format(chislo, "000000000000000.00"), 15)
ct = Right(Format(chislo, "0.00"), 2)
If CDbl(eur) = 0 Then m = "nulis "
For i = 1 To Len(eur) Step 3
If Mid(eur, i, 3) <> "000" Or i = Len(eur) - 2 Then
m = m & sot(CInt(Mid(eur, i, 1))) & IIf(Mid(eur, i + 1, 1) = "1", nadc(CInt(Mid(eur, i + 2, 1))), _
des(CInt(Mid(eur, i + 1, 1))) & ed(CInt(Mid(eur, i + 2, 1)) + IIf(i = Len(eur) - 5 And CInt(Mid(eur, i + 2, 1)) < 3, 10, 0))) & _
IIf(Mid(eur, i + 1, 1) = "1" Or (Mid(eur, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(eur, i + 2, 1) = "1", razr(i - 1), razr(i)))
End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & ct & " ct" & IIf(ct \ 10 = 1 Or ((c + 9) Mod 10) >= 4, "", IIf(ct Mod 10 = 1, "", ""))
End Function
Kodą dedame į Normal modulį (atsidaro paspaudus Alt+F11). Pirmą kartą įėjus, modulio nebus- sukuriame per pelės dešinio klavišo meniu( insert module)
VBA kodas:
rašė:
Sub SumZod()
Dim aa#
With Selection
aa = CDbl(Replace(Replace(.Range.Text, Chr(160), ""), " ", ""))
.Range.Text = .Range.Text & " " & MSumProp(aa)
End With
End Sub
Function MSumProp$(chislo#)
Dim eur$, ct$, ed, des, sot, nadc, razr, i&, m$
If chislo >= 1E+15 Or chislo < 0 Then Exit Function
sot = Array("", "šimtas ", "du šimtai ", "trys šimtai ", "keturi šimtai ", "penki šimtai ", "šeši šimtai ", "septyni šimtai ", "aštuoni šimtai ", "devyni šimtai ")
des = Array("", "", "dvidešimt ", "trisdešimt ", "keturiasdešimt ", "penkiasdešimt ", "šešiasdešimt ", "septyniasdešimt ", "aštuoniasdešimt ", "devyniasdešimt ")
nadc = Array("dešimt ", "vienuolika ", "dvylika ", "trylika ", "keturiolika ", "penkiolika ", "šešiolika ", "septyniolika", "aštuoniolika ", "devyniolika ")
ed = Array("", "vienas ", "du ", "trys ", "keturi ", "penki ", "šeši ", "septyni ", "aštuoni ", "devyni ", "", "vienas ", "du ")
razr = Array("trilionai", "trilijonas ", "trilijonų ", "miliardas ", "milijardų ", "milijardai ", "milijonas ", "milijonai ", "milijonų ", "tūkstantis ", "tūkstančiai ", "tūkstančių ", "EUR ", "EUR ", "EUR ")
eur = Left(Format(chislo, "000000000000000.00"), 15)
ct = Right(Format(chislo, "0.00"), 2)
If CDbl(eur) = 0 Then m = "nulis "
For i = 1 To Len(eur) Step 3
If Mid(eur, i, 3) <> "000" Or i = Len(eur) - 2 Then
m = m & sot(CInt(Mid(eur, i, 1))) & IIf(Mid(eur, i + 1, 1) = "1", nadc(CInt(Mid(eur, i + 2, 1))), _
des(CInt(Mid(eur, i + 1, 1))) & ed(CInt(Mid(eur, i + 2, 1)) + IIf(i = Len(eur) - 5 And CInt(Mid(eur, i + 2, 1)) < 3, 10, 0))) & _
IIf(Mid(eur, i + 1, 1) = "1" Or (Mid(eur, i + 2, 1) + 9) Mod 10 >= 4, razr(i + 1), IIf(Mid(eur, i + 2, 1) = "1", razr(i - 1), razr(i)))
End If
Next i
MSumProp = UCase(Left(m, 1)) & Mid(m, 2) & ct & " ct" & IIf(ct \ 10 = 1 Or ((c + 9) Mod 10) >= 4, "", IIf(ct Mod 10 = 1, "", ""))
End Function
Kodą dedame į Normal modulį (atsidaro paspaudus Alt+F11). Pirmą kartą įėjus, modulio nebus- sukuriame per pelės dešinio klavišo meniu( insert module)
R
2015-08-17 09:39
Renata74
Laba diena, gal galite pasakyti kodėl keičiasi Word teksto formatavimas (kai kuriuose pastraipose išnyksta tarpai tarp žodžių). Tai didelės apimties dokumentas, rengtas taip: PDF dokumentas konvertuotas į Word dokumentą ir jis koreguotas. Po kiek laiko koreguotame dokumente pasikeičia teksto formatavimas-išnyksta tarpai tarp žodžių (toks jausmas, kad savaime). Nuo ko tai priklauso, ar įmanoma tai pakeisti? Ačiū
I
2015-10-31 12:04
Inserz
Padekit!!
Kaip is word perkelti i jpg? Ta prasme i worda ikeliau foto, kad ant jos uzrasyti tam tinkama uzrasa ir nezinau kaip dabar perkelti i jpg formata.
Kaip is word perkelti i jpg? Ta prasme i worda ikeliau foto, kad ant jos uzrasyti tam tinkama uzrasa ir nezinau kaip dabar perkelti i jpg formata.
Kristiana__
8746
2015-11-01 21:15
Kristiana__
Nufotografuoti.
T.y. su "Print Screen" mygtuku.
Inserz rašė:
Padekit!!
Kaip is word perkelti i jpg? Ta prasme i worda ikeliau foto, kad ant jos uzrasyti tam tinkama uzrasa ir nezinau kaip dabar perkelti i jpg formata.
T.y. su "Print Screen" mygtuku.
Inserz rašė:
Padekit!!
Kaip is word perkelti i jpg? Ta prasme i worda ikeliau foto, kad ant jos uzrasyti tam tinkama uzrasa ir nezinau kaip dabar perkelti i jpg formata.
ABA2
1824
2015-11-01 22:30
ABA2
Inserz rašė:
Padekit!!
Kaip is word perkelti i jpg? Ta prasme i worda ikeliau foto, kad ant jos uzrasyti tam tinkama uzrasa ir nezinau kaip dabar perkelti i jpg formata.
Worde dešiniu pelės klavišu ant pataisyto paveikslo ir pasirenkame: save as picture(įrašyti kaip paveikslėlį) ir išsaugome kur tik pageidaujame...
Inserz rašė:
Padekit!!
Kaip is word perkelti i jpg? Ta prasme i worda ikeliau foto, kad ant jos uzrasyti tam tinkama uzrasa ir nezinau kaip dabar perkelti i jpg formata.
Worde dešiniu pelės klavišu ant pataisyto paveikslo ir pasirenkame: save as picture(įrašyti kaip paveikslėlį) ir išsaugome kur tik pageidaujame...
Tax.lt © 2002 - 2024, admin@tax.lt,
Reklama tax.lt
Buhalterinės apskaitos sistema internete smulkiam ir vidutiniam verslui