Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 69378 Skopiuj do schowka 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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
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 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
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

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

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