[vb] Selectie maken in word vanuit VB

[Verwijderd]

Ik gebruik de volgende code. Wat ik wil doen is de tag [Plaatje] selecteren in het word template, en vervolgens deze tag wijzigen.

Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application.8")
With objWord
.Visible = True
.Documents.Open (loadvars("installdir") & "\object.doc ")
End With

Set myrange = ActiveDocument.Range
With myrange.Find
.Text = "[plaatje]"
.Execute
If myrange.Find.Found = True Then .Parent.Select
end with

[brokenp]

Wat is het probleem?

Ik heb dit direct ui de macro recorder van word, misschien heb je er iets aan

code:

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[plaatje]"
      .Replacement.Text = "[vervanging]"
      .Forward = True
      .Wrap = wdFindAsk
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

[Skinny]

Ik neem aan dat je [plaatje] ook daadwerkelijk voor een echte afbeelding wilt vervangen.. Dat kan ook zo :

1. Type ergens "[plaatje]"
2. Selekteer die tekst en doe (menu) Invoegen - Bladwijzer.
3. Geef een naam op (in dit voorbeeld 'Plaatje')

Gebruik deze code:

code:

Sub ReplaceImage()

FileName = "<PATH+FILENAME NAAR PLAATJE"

ActiveDocument.Bookmarks("Plaatje").Range.Select
Selection.Delete
ActiveDocument.InlineShapes.AddPicture FileName, False, True, ActiveDocument.Bookmarks.Add("Plaatje").Range

End Sub

[Verwijderd]

Deze find, werkt wel. Er is echter een klein probleem. Deze find method werkt alleen als de tag [plaatje] in de tekst staat op het document zelf. Nu gebruik ik verschillende textboxen die de tag in zich hebben. Deze textboxen kan de gebruiker eenvoudig ergans anders heen slepen om de layout aan te passen. Find werkt niet in de textboxes. Kan ik hier iets aan doen.

[Verwijderd]

moet ik activedocument.textbox1.selection ofzo gebruiken misschien.

[Loona35]

blaat

[Verwijderd]

Wat blaat, als je geen zin hebt een nuttige bijdrage te leveren, blijf dan weg!