Forum Coders' city Strona Główna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

Potrzebuję szybkiej odpowiedzi na moje pytanie... Zasady

[Word] Rozmieszczenie tekstu w dokumencie



 
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
diverko



Dołączył: 24 Sty 2008
Posty: 7

PostWysłany: Sro Lut 27, 2019 7:35 pm  OP    Temat postu: [Word] Rozmieszczenie tekstu w dokumencie Odpowiedz z cytatem Pisownia

Witam
Chciałbym przy pomocy makra sformatować dokument (np. kopertę) oraz rozmieścić tekst w dokumencie tak jak w załączniku.
Nie bardzo wiem jak się do tego zabrać. Czy mógłby ktoś coś podpowiedzieć?


pozdrawiam



dok.rar
 Opis:

Pobierz
 Nazwa pliku:  dok.rar
 Wielkość pliku:  9.99 KB
 Pobierano:  17 raz(y)

Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
losmac



Dołączył: 25 Maj 2005
Posty: 1565
Skąd: Białystok

PostWysłany: Sro Lut 27, 2019 9:40 pm      Temat postu: Zepsuty załącznik Odpowiedz z cytatem Pisownia

Zepsuty załącznik. Czy możesz go podmienić?
_________________
książka o VBA dla Office'a
UWAGA! Nie odpowiadam na PW, jeżeli wcześniej nie zostało to ze mną ustalone w ramach konkretnego wątku!
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Odwiedź stronę autora
karolinavb
Site Admin


Dołączył: 25 Maj 2005
Posty: 7913

PostWysłany: Czw Lut 28, 2019 7:09 am      Temat postu: Odpowiedz z cytatem Pisownia

Załącznik nie jest "zepsuty" rozwiń za pomocą np. 7-Zip.
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
diverko



Dołączył: 24 Sty 2008
Posty: 7

PostWysłany: Czw Lut 28, 2019 9:18 am  OP    Temat postu: Odpowiedz z cytatem Pisownia

W załączeniu przesyłam załącznik w formacie .docx


dok.docx
 Opis:

Pobierz
 Nazwa pliku:  dok.docx
 Wielkość pliku:  11.22 KB
 Pobierano:  10 raz(y)

Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość
losmac



Dołączył: 25 Maj 2005
Posty: 1565
Skąd: Białystok

PostWysłany: Czw Lut 28, 2019 5:25 pm      Temat postu: Odpowiedz z cytatem Pisownia

Tak na szybko...

Zrobiłbym to za pomocą tabeli z wyłączonym obramowaniem (łatwiejsze rozwiązanie):
Kod:

Option Explicit

Sub NowaWkladka()
    Dim doc As Document
    Dim rng As Range
    Dim tbl As Table
    
    'w razie błędów - idź do popdprogramu obsługi błędów
    On Error GoTo Err_NowaWkladka
    
    'dodaj nowy dokument
    Set doc = Application.Documents.Add()
    'zmień ustawienia strony
    With doc.PageSetup
        .PaperSize = wdPaperEnvelopeDL
        .Orientation = wdOrientLandscape
    End With
    
    'ustaw kontekst kodu - Content = zakres, gdzie wstawiona będzie tabela
    Set rng = doc.Content
    'dodaj tabelę
    Set tbl = doc.Tables.Add(rng, 6, 3, wdWord8TableBehavior, wdAutoFitWindow)
    'wstaw tekst
    With tbl
        .Borders.Enable = False
        .Cell(1, 1).Range = "Nadawca"
        .Cell(3, 3).Range = "Imię Nazwisko"
        .Cell(4, 3).Range = "Adres"
        .Cell(5, 3).Range = "Kod Poczta"
        .Cell(6, 1).Range = "Nr zamówienia"
    End With

'wyjście z programu
Exit_NowaWkladka:
    On Error Resume Next
    Set rng = Nothing
    Set doc = Nothing
    Exit Sub

'obsługa błędów
Err_NowaWkladka:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_NowaWkladka

End Sub



Miłej zabawy!



dok_151.7z
 Opis:
Plik zawierający zamieszczone w poście makro.

Pobierz
 Nazwa pliku:  dok_151.7z
 Wielkość pliku:  17.06 KB
 Pobierano:  15 raz(y)


_________________
książka o VBA dla Office'a
UWAGA! Nie odpowiadam na PW, jeżeli wcześniej nie zostało to ze mną ustalone w ramach konkretnego wątku!
Powrót do góry
Zobacz profil autora Wyślij prywatną wiadomość Odwiedź stronę autora
Wyświetl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Główna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
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
Możesz dodawać załączniki na tym forum
Możesz pobierać pliki z tego forum




Debug: strone wygenerowano w 0.19841 sekund, zapytan = 13
contact

| Darmowe programy i porady Jelcyna | Tansze zakupy w Helionie | MS Office Blog |