Forum Coders' city Strona Gwna Coders' city
Nasza pasja to programowanie!
 

 PomocPomoc   SzukajSzukaj   UytkownicyUytkownicy   GrupyGrupy  RejestracjaRejestracja 
Archiwum starego forum + teoria    RSS & Panel/SideBar
 ProfilProfil   Zaloguj si, by sprawdzi wiadomociZaloguj si, by sprawdzi wiadomoci   ZalogujZaloguj 

Potrzebuj szybkiej odpowiedzi na moje pytanie... Zasady

[Word] Rozmieszczenie tekstu w dokumencie



 
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe
Zobacz poprzedni temat :: Zobacz nastpny temat  
Autor Wiadomo
diverko



Doczy: 24 Sty 2008
Posty: 7

PostWysany: 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 mg?by kto? co? podpowiedzie??


pozdrawiam



dok.rar
 Opis:

Pobierz
 Nazwa pliku:  dok.rar
 Wielko pliku:  9.99 KB
 Pobierano:  174 raz(y)

Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
losmac



Doczy: 25 Maj 2005
Posty: 1565
Skd: Bia?ystok

PostWysany: 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!
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora
karolinavb
Site Admin


Doczy: 25 Maj 2005
Posty: 7930

PostWysany: Czw Lut 28, 2019 7:09 am      Temat postu: Odpowiedz z cytatem Pisownia

Za??cznik nie jest "zepsuty" rozwi? za pomoc? np. 7-Zip.
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
diverko



Doczy: 24 Sty 2008
Posty: 7

PostWysany: 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:  165 raz(y)

Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
losmac



Doczy: 25 Maj 2005
Posty: 1565
Skd: Bia?ystok

PostWysany: 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??dw - id? do popdprogramu obs?ugi b??dw
    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 zamwienia"
    End With

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

'obs?uga b??dw
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:  180 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!
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora
Wywietl posty z ostatnich:   
Odpowiedz do tematu    Forum Coders' city Strona Gwna -> Oprogramowanie biurowe Wszystkie czasy w strefie CET (Europa)

Strona 1 z 1

 
Skocz do:  
Moesz pisa nowe tematy
Moesz odpowiada w tematach
Nie moesz zmienia swoich postw
Nie moesz usuwa swoich postw
Nie moesz gosowa w ankietach
Moesz dodawa zaczniki na tym forum
Moesz pobiera pliki z tego forum




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

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