Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 67459 Skopiuj do schowka Export .doc do PDF
Autor Wiadomość
GEO-XYZ 
Exceloholic


Wersja: Win Office 2013
Posty: 235
Wysłany: 05-03-2020, 13:37   Export .doc do PDF

Witam,
Nie mogę przejść zapisu do worda do PDF.
Ma zapisać PDF tam gdzie dokument .doc

Kod:

Sub ZapiszPlikWord() ' nie działa

    Dim operator As String
    Dim kod_projektu As String
    Dim data_wyplot As String
    Dim data As Date
    Dim NazwaPliku
    Dim appWD As Word.Application
    Dim wdDoc As Word.Document
 

    data_wyplot = Worksheets("GNSS_DANE").Range("B30")
    operator = Worksheets("DANE_BAZA").Range("B1")
    kod_projektu = Worksheets("DANE_BAZA").Range("B2")
    NazwaPliku = kod_projektu & "_POMIARU_GNSS_" & operator & Year(data_wyplot) & Format(Month(data_wyplot), "00") & Format(Day(data_wyplot), "00")
   
    Set appWD = GetObject(, "Word.Application")
    appWD.Visible = True
    Set wdDoc = appWD.ActiveDocument
   
    wdDoc.SaveAs2 ThisWorkbook.Path & "\" & NazwaPliku
   
    wdDoc.xportAsFixedFormat , Type:=xlTypePDF, Filename:=NazwaPliku, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
     OpenAfterPublish:=False
   
   
    appWD.Quit 'jeżeli chcesz zamknąć worda
_________________
XYZ
ID posta: 383175 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 467 razy
Posty: 1186
Wysłany: 05-03-2020, 14:04   

GEO-XYZ napisał/a:
Ma zapisać PDF tam gdzie dokument .doc

Kod:
wdDoc.ExportAsFixedFormat OutputFileName:=wdDoc.Path & "\" & NazwaPliku & ".pdf", ExportFormat:=wdExportFormatPDF

Janusz
ID posta: 383180 Skopiuj do schowka
 
 
GEO-XYZ 
Exceloholic


Wersja: Win Office 2013
Posty: 235
Wysłany: 05-03-2020, 14:23   

J_B, Dzięki działa.
_________________
XYZ
ID posta: 383182 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie 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
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe