Beste lezer,
De volgende onderstaande code doet BIJNA wat ik wil. Namelijk,
Ik selecteer in mijn excelbestand een willekeurige cel. De waarde in deze cel moet gezocht worden in een reeds openstaand Word document.
Deze code opent het Word document, en zoekt. Bijna wat ik wil. Want het document staat al open, samen met nog andere word-documenten.
Het is de bedoeling dat hij het betreffende document activeerd , en dan zoekt.
Kan iemand helpen hierbij? Alvast heel erg bedankt.
Sub FindName()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\XXXXXX.docx")
Dim FindWord As String
Dim result As String
FindWord = ActiveCell.Value
wrdDoc.SelectAllEditableRanges
With wrdDoc.ActiveWindow.Selection.Find
.Text = FindWord
.Replacement.Text = ""
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wrdDoc.ActiveWindow.Selection.Find.Execute
End Sub
De volgende onderstaande code doet BIJNA wat ik wil. Namelijk,
Ik selecteer in mijn excelbestand een willekeurige cel. De waarde in deze cel moet gezocht worden in een reeds openstaand Word document.
Deze code opent het Word document, en zoekt. Bijna wat ik wil. Want het document staat al open, samen met nog andere word-documenten.
Het is de bedoeling dat hij het betreffende document activeerd , en dan zoekt.
Kan iemand helpen hierbij? Alvast heel erg bedankt.
Sub FindName()
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("C:\XXXXXX.docx")
Dim FindWord As String
Dim result As String
FindWord = ActiveCell.Value
wrdDoc.SelectAllEditableRanges
With wrdDoc.ActiveWindow.Selection.Find
.Text = FindWord
.Replacement.Text = ""
.Forward = True
.Wrap = 1
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
wrdDoc.ActiveWindow.Selection.Find.Execute
End Sub