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: 64032 Skopiuj do schowka Tworzenie nowego pliku Word z hasłem - z Excela
Autor Wiadomość
szczasiek
forumowicz


Posty: 21
Wysłany: 04-02-2019, 16:42   Tworzenie nowego pliku Word z hasłem - z Excela

Hej,

Mam makro, które otwiera dokument Word, podmienia odpowiednie zmienne na podstawie danych z Excela, a następnie zapisuje plik jako nowy.

Problem jest z zabezpieczeniem go do edycji. Kod poniżej:

Kod:
Public Sub BRANCH()
    Dim ws As Worksheet, msWord As Object
    Dim wbA As Workbook
    Dim strPath As String
    Dim itm As Range
    Dim customer_name As String

    Set wbA = ActiveWorkbook
   
    strPath = wbA.Path
    If strPath = "" Then
    strPath = Application.DefaultFilePath
    End If
    strPath = strPath & "\"

    Set ws = ActiveSheet
    Set msWord = CreateObject("Word.Application")
    customer_name = Range("B7").Value

    With msWord
        .Visible = True
        .Documents.Open strPath & "E-Commerce New Branch Form.docx"
        .Activate

        With .ActiveDocument.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting

        For Each itm In ws.UsedRange.Columns("A").Cells
                .Text = itm.Value2
                .Replacement.Text = itm.Offset(, 1).Value2
                .MatchCase = False
                .MatchWholeWord = False
                .Execute Replace:=2
            Next
           
        End With
       
        With msWord
        .ActiveDocument.SaveAs Filename:=strPath & customer_name & "_E-Commerce New Branch Form.docx"
        .Quit
        End With
        msWord.DisplayAlerts = True
    End With
End Sub



Próbowałem poniższej komendy, ale nic nie idzie

Kod:
ActiveDocument.Protect wdAllowOnlyReading, , "abc123"
natomiast dostaję błąd Variable not defined dla wdAllowOnlyReading
ID posta: 361936 Skopiuj do schowka
 
 
J_B 
Excel Expert


Pomógł: 273 razy
Posty: 778
Wysłany: 04-02-2019, 20:21   

Zapomniałeś o kropce (.) przed ActiveDocument
Kod:

        With msWord

        .ActiveDocument.Protect wdAllowOnlyReading, , "abc123"
        .Quit
        End With

ID posta: 361948 Skopiuj do schowka
 
 
apollo
ExcelSpec


Pomógł: 1236 razy
Posty: 4306
Wysłany: 04-02-2019, 22:27   Re: Tworzenie nowego pliku Word z hasłem - z Excela

szczasiek napisał/a:

Próbowałem poniższej komendy, ale nic nie idzie

Kod:
ActiveDocument.Protect wdAllowOnlyReading, , "abc123"
natomiast dostaję błąd Variable not defined dla wdAllowOnlyReading

Cytat:

Public Sub BRANCH()
Const wdAllowOnlyReading = 3
...
With msWord
.ActiveDocument.Protect wdAllowOnlyReading, , "abc123"
.ActiveDocument.SaveAs Filename:=strPath & customer_name & "_E-Commerce New Branch Form.docx"
.Quit
End With
...
End Sub
ID posta: 361962 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