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:  169 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: 7930

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:  160 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:  174 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.23278 sekund, zapytan = 14
contact

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