![]()
Sub FnEditAndSaveWordDoc() Dim objCell As Object With CreateObject("Word.Application") With .Documents.Open("D:\Users\DMol\Desktop\Client\Clients" & "\" & Cells(2, 2) & "\" & Cells(2, 2) & "_2017 Proposal.docx") .Parent.Visible = True With .Tables(1) For Each objCell In .Columns(1).Cells If Left(objCell.Range.Text, 2) = "[[" Then objCell.Row.Delete Next objCell End With .Save End With End With End Sub
Bookmarks