ID tematu: 69378
 |
Ekport do Word, ustawienie marginesów lustrzanych i nr stron |
| Autor |
Wiadomość |
stavic
Exceloholic
Posty: 249
|
 Wysłany: 20-11-2020, 11:26 Ekport do Word, ustawienie marginesów lustrzanych i nr stron
|
|
|
Proszę o pomoc w przerobieniu makra aby w powstającym pliku wordowskim marginesy były ustawione jako lustrzane, dodanie numeracji stron także lustrzane.
całość doku w łączniku
| Kod: | Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDok = WordApp.Documents.Add
'wysyłanie poleceń do Worda
With WordApp
With WordDok.PageSetup 'parametry marginesow
.TopMargin = Application.CentimetersToPoints(1.5)
.BottomMargin = Application.CentimetersToPoints(2.5)
.LeftMargin = Application.CentimetersToPoints(3.5)
.RightMargin = Application.CentimetersToPoints(1.5)
.FooterDistance = Application.CentimetersToPoints(1)
End With |
do word lustro.xlsm
|
 Pobierz Plik ściągnięto 7 raz(y) 24.4 KB |
|
|
 | ID posta:
395301
|
|
|
 |
|
|
|
|
J_B 
Excel Expert
Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
|
| Wysłany: 20-11-2020, 18:37
|
|
|
Myślę że tak powinno być ok
| Kod: | | .MirrorMargins = True |
Janusz |
|
 | ID posta:
395329
|
|
|
|
|
|
|
stavic
Exceloholic
Posty: 249
|
| Wysłany: 20-11-2020, 19:22
|
|
|
Działa pięknie 
wiem jak do stopki wstawić tekst
| Kod: | With .ActiveDocument.Sections(1).Footers(1).Range
.ParagraphFormat.Alignment = 1
.Font.Name = "TimesNewRoman"
.Font.Size = 10
.Font.Italic = True
zmienna = Worksheets("swiadectwo").Cells(90, 1).Value: .Text = zmienna
.Collapse 0: .Text = vbCr: .Collapse 0
zmienna = Worksheets("swiadectwo").Cells(91, 1).Value: .Text = zmienna
.Collapse 0: .Text = vbCr: .Collapse 0
zmienna = Worksheets("swiadectwo").Cells(92, 1).Value: .Text = zmienna
.Collapse 0: .Text = vbCr: .Collapse 0 |
nie wiem i nie mogę znaleźć jak wstawić nr stron także lustrzanie np. "str. 1" |
|
| ID posta:
395330
|
|
|
|
|
|
J_B
Excel Expert
Wersja: Win Office 2016
Pomógł: 541 razy
Posty: 1339
|
| Wysłany: 20-11-2020, 20:11
|
|
|
Na zakończenie wypełniana dokumentu uruchom
| Kod: |
Sub Numeracja()
With ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).Range
.InsertAfter Text:="Str. "
.Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="PAGE"
.InsertAfter Text:=" z "
.Fields.Add Range:=.Characters.Last, Type:=wdFieldEmpty, Text:="NUMPAGES"
End With
End Sub
|
Janusz |
|
| ID posta:
395333
|
|
|
|
|
|
stavic
Exceloholic
Posty: 249
|
| Wysłany: 20-11-2020, 22:03
|
|
|
Smiga pięknie.
Jedwabiści spece od excela na tym forum. |
|
| ID posta:
395337
|
|
|
|
|
|
|
|
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
|
Dodaj temat do Ulubionych
Wersja do druku
|
 |
Strona używa plików cookies.
Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe
|
Regulamin
