 |
Coders' city
Nasza pasja to programowanie!
|
| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
diverko
Dołączył: 24 Sty 2008
Posty: 7
|
|
| Powrót do góry |
|
 |
|
|
losmac
Dołączył: 25 Maj 2005
Posty: 1565
Skąd: Bia?ystok
|
 Wysłany: Sro Lut 27, 2019 9:40 pm Temat postu: Zepsuty za??cznik |
  |
|
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 |
|
|
karolinavb
Site Admin
Dołączył: 25 Maj 2005
Posty: 7930
|
| Wysłany: Czw Lut 28, 2019 7:09 am Temat postu: |
|
|
| Za??cznik nie jest "zepsuty" rozwi? za pomoc? np. 7-Zip.
|
|
| Powrót do góry |
|
|
diverko
Dołączył: 24 Sty 2008
Posty: 7
|
|
| Powrót do góry |
|
|
losmac
Dołączył: 25 Maj 2005
Posty: 1565
Skąd: Bia?ystok
|
| Wysłany: Czw Lut 28, 2019 5:25 pm Temat postu: |
|
|
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!
| Opis: |
| Plik zawieraj?cy zamieszczone w po?cie makro. |
|
Pobierz |
| Nazwa pliku: |
dok_151.7z |
| Wielkość pliku: |
17.06 KB |
| Pobierano: |
182 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 |
|
|
|
|
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.05587 sekund, zapytan = 14
|
Pomoc
Szukaj
Użytkownicy
Grupy
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
