Hi
I have a macro in Excel, that is replacing values in Word with data stored in Worksheet. Then this changed Word is saved as new document. What is struggle is a command in VBA in Excel putting a password on Word document restricting it from edition.
Code i have now is as below:
Option Explicit
Public Sub INDEMNITY()
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("f10").Value
With msWord
.Visible = True
.Documents.Open strPath & "E-Commerce_Indemnity.docx"
.Activate
With .ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
For Each itm In ws.UsedRange.Columns("A").Cells
.Text = itm.Value2 'Find all strings in col A
.Replacement.Text = itm.Offset(, 1).Value2 'Replacements from col B
.MatchCase = False
.MatchWholeWord = False
.Execute Replace:=2 'wdReplaceAll (WdReplace Enumeration)
Next
End With
With msWord
.ActiveDocument.SaveAs Filename:=strPath & customer_name & "_E-commerce_Indemnity_letter.docx"
.Quit
End With
msWord.DisplayAlerts = True
End With
End Sub
I was trying command
Application.ActiveDocument.Protect wdAllowOnlyRevisions, password:="password"
But returns me error that Variable is not defined, for wdAllowOnlyRevisions