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
Chciabym przy pomocy makra sformatowa dokument (np. kopert) oraz rozmieci tekst w dokumencie tak jak w zaczniku.
Nie bardzo wiem jak si do tego zabra. Czy mgby kto co podpowiedzie?


pozdrawiam



dok.rar
 Opis:

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

Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
losmac



Doczy: 25 Maj 2005
Posty: 1565
Skd: Biaystok

PostWysany: Sro Lut 27, 2019 9:40 pm      Temat postu: Zepsuty zacznik Odpowiedz z cytatem Pisownia

Zepsuty zacznik. Czy moesz go podmieni?
_________________
ksika o VBA dla Office'a
UWAGA! Nie odpowiadam na PW, jeeli wczeniej nie zostao to ze mn ustalone w ramach konkretnego wtku!
Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo Odwied stron autora
karolinavb
Site Admin


Doczy: 25 Maj 2005
Posty: 7907

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

Zacznik 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 zaczeniu przesyam zacznik w formacie .docx


dok.docx
 Opis:

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

Powrt do gry
Zobacz profil autora Wylij prywatn wiadomo
losmac



Doczy: 25 Maj 2005
Posty: 1565
Skd: Biaystok

PostWysany: Czw Lut 28, 2019 5:25 pm      Temat postu: Odpowiedz z cytatem Pisownia

Tak na szybko...

Zrobibym to za pomoc tabeli z wyczonym obramowaniem (atwiejsze rozwizanie):
Kod:

Option Explicit

Sub NowaWkladka()
    Dim doc As Document
    Dim rng As Range
    Dim tbl As Table
    
    'w razie bdw - id do popdprogramu obsugi bdw
    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 bdzie 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

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

'obsuga bdw
Err_NowaWkladka:
    MsgBox Err.Description, vbExclamation, Err.Number
    Resume Exit_NowaWkladka

End Sub



Miej zabawy!



dok_151.7z
 Opis:
Plik zawierajcy zamieszczone w pocie makro.

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


_________________
ksika o VBA dla Office'a
UWAGA! Nie odpowiadam na PW, jeeli wczeniej nie zostao to ze mn ustalone w ramach konkretnego wtku!
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.17997 sekund, zapytan = 13
contact

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