Hei, yritän vääntää makroa Wordin lomakepohjaan, ei onnistu. Olen lukenut kaikki mahdolliset manuaalit ja tehnyt niiden ohjeiden mukaan, mutta ei onnistu.
Siis yksinkertaista makroa, joka laittaisi sivunumeron/numerot asiakirjaan.
Olen jopa saanut vanhan C-kasetin kuvan näkyviin, makroa värkätessä,mutta tuloksetta.
Löytyiskös täältä ketään neroa, joka voisi auttaa minua?
Word ja makrot
44 vee neito
1
177
Vastaukset
helpistähan noi löytyi heti.
tossa nyt yleisimmät variaatiot...
Sub Sivunumerot()
ActiveDocument.Sections(1).Footers(1).PageNumbers.Add (wdAlignPageNumberLeft)
'ActiveDocument.Sections(1).Footers(1).PageNumbers.Add (wdAlignPageNumberRight)
'ActiveDocument.Sections(1).Footers(1).PageNumbers.Add (wdAlignPageNumberCenter)
'ActiveDocument.Sections(1).Footers(1).PageNumbers.Add (wdAlignPageNumberInside)
'ActiveDocument.Sections(1).Footers(1).PageNumbers.Add (wdAlignPageNumberOutside)
ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleArabic
'ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleArabicFullWidth
'ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleLowercaseLetter
'ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleLowercaseRoman
'ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleNumberInCircle
'ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleNumberInDash
'ActiveDocument.Sections(1).Footers(1).PageNumbers.NumberStyle = wdPageNumberStyleUppercaseLetter
'ActiveDocument.Sections(1).Headers(1).PageNumbers.Add (wdAlignPageNumberLeft)
'ActiveDocument.Sections(1).Headers(1).PageNumbers.Add (wdAlignPageNumberRight)
'ActiveDocument.Sections(1).Headers(1).PageNumbers.Add (wdAlignPageNumberCenter)
'ActiveDocument.Sections(1).Headers(1).PageNumbers.Add (wdAlignPageNumberInside)
'ActiveDocument.Sections(1).Headers(1).PageNumbers.Add (wdAlignPageNumberOutside)
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleArabic
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleArabicFullWidth
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleLowercaseLetter
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleLowercaseRoman
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleNumberInCircle
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleNumberInDash
'ActiveDocument.Sections(1).Headers(1).PageNumbers.NumberStyle = wdPageNumberStyleUppercaseLetter
End Sub
Keep WORDing
@Kunde
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Taisin tehdä virheen
Kaipaan sua enemmän kuin kuvittelin. Luulin, että helpottuisin, mutta olinkin täysin väärässä. Vieläkö vastaisit minulle1125458Näin kun katsoit salaa ja
Hymyilit sieltä kaukaa 😍☺️ mutta hämmennyin ja tilanne oli niin nopeaa ohi etten oikeen kerennyt mukaan 😢 säteilit ku413595Hyvä että lähdit siitä
Ties mitä oisin keksinyt jos oisit jäänyt siihen, näit varmaan miten katoin sua.... 😘🤭😎💖523485Nyt tuntuu siltä, että on pakko päästä puhumaan kanssasi
Tuntuu että sekoan tämän kaiken takia. Miehelle933348- 811887
Katu täyttyy...
Hei, oli pakko laittaa vielä tää. Huomaan että olet suuttunut. Minähän sanoin että poistun, olit paikalla. Olin pettynyt341777450 000 ulosotossa
Suomessa on tällä hetkellä ennätysmäärä ihmisiä ulosotossa. Viime vuonna heitä oli yli puoli miljoonaa. Kuluvan vuoden1341667Nainen onko sulla supervoimmia ?
Voisitko auttaa miestä mäessä? Tarjota auttavan käden ja jeesata tätä miestä? Tai antaa olla et sä kuitenkaan auta.431619Eduskunnasta tippuneet kokoomuslaiset nostavat eniten sopeutumisrahaa. Kyllä veroeurot kelpaavat.
Sopeutumisraha on eduskuntatyön päättymisen jälkeen maksettava etuus, jonka tarkoituksena on tukea entisiä kansanedustaj1521325- 161189