H
http://www.visual-basic-data-mining.net/forum
I recently found this function for vb.net and was wondering if anyone knew
if this was possible in VB6:
Public Sub boldToHTML(ByVal doc As Word.Document)
With doc.Content.Find
.ClearFormatting()
.Font.Bold = 1
.Replacement.ClearFormatting()
.Replacement.Font.Bold = 0
.Text = "*"
.Execute(findtext:="", _
ReplaceWith:="<b>^&</b>", _
Format:=True, _
Replace:=Word.WdReplace.wdReplaceAll)
End With
End Sub
the function allows you to open a word document and using its find and
replace function change the content?
Any help would be great, thanks
if this was possible in VB6:
Public Sub boldToHTML(ByVal doc As Word.Document)
With doc.Content.Find
.ClearFormatting()
.Font.Bold = 1
.Replacement.ClearFormatting()
.Replacement.Font.Bold = 0
.Text = "*"
.Execute(findtext:="", _
ReplaceWith:="<b>^&</b>", _
Format:=True, _
Replace:=Word.WdReplace.wdReplaceAll)
End With
End Sub
the function allows you to open a word document and using its find and
replace function change the content?
Any help would be great, thanks