VBA From Excel to word Moving shapes - vba

Question

I'm trying to create a VBA macro that move shapes in word .
For example when a user enter a value in Excel userform =43 and clik valide the shapes in word moves 43 step
I tried this in Excel and I succeed to make the code but to move it in word I didn't find how i Tried alot of thing but if some can help me with this .
This my code
Sub lacro1()
rep_count = 0
width_variable = 10
Do
DoEvents
rep_count = rep_count + 1
width_variable = width_variable + 6
Sheets("Feuil1").Shapes("Connecteur droit 2").Left =
Sheets("Feuil1").Range("A2").Value
timeout (0.01)
Loop Until rep_count = Sheets("Feuil1").Range("A2").Value
End Sub
Sub timeout(duration_ms As Double)
Start_Time = Timer
Do
DoEvents
Loop Until (Timer - Start_Time) >= duration_ms
End Sub
What I want it move shapes located in word .doc based on value in excel

Answer 1

This works for me
Sub Sample()
Dim oWordApp As Object, oWordDoc As Object
Dim shp As Object
'~~> Establish an Word application object
On Error Resume Next
Set oWordApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Set oWordApp = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo 0
oWordApp.Visible = True
Set oWordDoc = oWordApp.Documents.Open("C:\Users\Siddharth\Desktop\Sid.Docx")
Set shp = oWordDoc.Shapes(1)
With shp
.Left = 80
.Top = 40
End With
End Sub
Screenshot