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
314
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
- 1301896
- 1211375
Postimerkki kirjeeseen ja kortiin maksaa jo 3 euroa!
https://yle.fi/a/74-20229241 Kyllä tämä on järjetön hinta, Posti tuhoaa itsensä tällä hinnalla, täytyyhän Postin "Herro1401150Keitä oli kunnanjohtajan erottajat?
Kouluja ei ole varaa ylläpitää mutta johtajasopimukseen palaa 100000 euroa ja uuden johtajan hakuprosessi maksaa kymmeni591071Atte Harjanne usuttaa eläkeläisvihaan
Karmeeta kuultavaa aamun uutislähetyksessä, kun Atte Harjanne, tunnettu eläkeläisvihaaja, suitsii sukupolvien välistä v2831053- 491049
- 1361024
Milloin bikineistä
Tuli juhla tai esiintymis asu? Pikkasen harkintaa vois käyttää. Bikinit kuuluvat uimarannalle. No, mitä maailman tähdet88862Mä oon tyytyväinen, että ei ole enää tunteita.
Samalla tajusin, että sun kohdalla tykkäsin enemmän niistä tunteista kuin sinusta persoonana. Halusin väkisin nähdä sinu58819Helsingin Mäntymäki muuttui Kultajuhlan jälkeen kaatopaikaksi.
Mitä se kertoo jääkiokosta ja lätkäfaneista? Saikkua huomenna huusi fani yöllä?77816