Erreur d'exécution '450' Utilisation de Selection.Find sur un document Word dans Excel VBA

Je tente de sélectionner un espace réservé sur un document Word pour coller le presse-papiers (sur lequel j'ai copié une table Excel), mais je suis avoir du mal à sélectionner ce mot avant de le coller. Obtenir Run-time error '450': Wrong number of arguments or invalid property assignment en ligne With Selection.Find:Erreur d'exécution '450' Utilisation de Selection.Find sur un document Word dans Excel VBA

ActiveDocument.Content.Select 

With Selection.Find '<- Error 
    .ClearFormatting 
    .Text = "TablePlaceHolder1" 
End With 

If Selection.Find.Found = True Then 
    Selection.Select 
End If 

ActiveDocument.Range.Paste

J'ai une tonne d'expérience avec Word VBA, mais travaillant à partir d'Excel dans Word (ou PowerPoint) Je cours dans une vague d'erreurs.

Source

2017-10-03 dwirony

Pourquoi utiliser 'Select'? Pourquoi ne pas simplement 'Set Var = WB.WS.Cells.Find (" Search ")' et 'If Not Var is Nothing Then'. –

@ K.Davis Je suis à la recherche d'un document Word - Cette ligne ressemble à quelque chose à chercher dans une feuille de calcul Excel? – dwirony

D'accord, cela a plus de sens maintenant. N'a pas utilisé '.Find' dans le mot donc je ne suis pas sûr de la syntaxe. Mes excuses. –

aller de l'avant et après ma solution (après @ conseils de HarassedDad utiliser un signet à la place):

With WordApp 
    .Selection.Goto What:=wdGoToBookmark, Name:="TablePlaceHolder3" 
    .Selection.Paste 
End With

beaucoup plus simple que ce que je tentais avant.

Source

2017-10-03 16:38:21 dwirony

Erreur d'exécution '450' Utilisation de Selection.Find sur un document Word dans Excel VBA

Répondre

Questions connexes