xCav8r
06-13-2005, 10:07 AM
This only seems to be working when Visible:=True. How can I do this without making it visible?
ChangeFileOpenDirectory strPathToDataDirectory
Documents.Open FileName:=strDataSourceName, Visible:=False
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "|"
.Replacement.Text = Chr(34)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Same issue...
Dim objWord As Object
Set objWord = New Word.Application
With objWord
.Visible = False
.ChangeFileOpenDirectory strPathToDataDirectory
.Documents.Open FileName:=strDataSourceName
.Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "|"
.Replacement.Text = Chr(34)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
.Documents(strDataSourceName).Close wdSaveChanges
End With
ChangeFileOpenDirectory strPathToDataDirectory
Documents.Open FileName:=strDataSourceName, Visible:=False
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "|"
.Replacement.Text = Chr(34)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
Same issue...
Dim objWord As Object
Set objWord = New Word.Application
With objWord
.Visible = False
.ChangeFileOpenDirectory strPathToDataDirectory
.Documents.Open FileName:=strDataSourceName
.Selection.HomeKey unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "|"
.Replacement.Text = Chr(34)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
.Documents(strDataSourceName).Close wdSaveChanges
End With