How to delete list in ms word through vb 6
i use this code but doesn't work.
hope anyone can help me with this little problem.. Thx
Edit : here's my sample project. I hope someone can help me fix this sample project.
i use this code but doesn't work.
Code:
Private Sub Command1_Click()
Dim objWrd As New Word.Application
Dim objDoc As New Word.Document
Dim docPath As String
Dim repPath As String
docPath = App.Path & "\template\test.doc"
repPath = App.Path & "\report\~TEST" & Format(Now, "ddMMyyyyhhmmssmss") & ".doc"
'Copy template
Set objDoc = objWrd.Documents.Open(docPath)
objDoc.SaveAs repPath
objDoc.Close
Set objDoc = objWrd.Documents.Open(repPath)
With objWrd.Selection.Find
.Text = txtSearch
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
objWrd.Selection.TypeBackspace 'i use this to delete the list, but it doesn't work
objDoc.Save
objDoc.Close
objWrd.Quit
Set objDoc = Nothing
Set objWrd = Nothing
End SubEdit : here's my sample project. I hope someone can help me fix this sample project.