MS Word makro yang dikembangkan pada Windows 7 berhenti bekerja pada mesin XP [ditutup]

Sub test(imagePath As String)
    Dim kl As Shape
    Dim rng As Range
    Set rng = ActiveDocument.Bookmarks("bkmk1").Range

    Set kl = ActiveDocument.Shapes.AddPicture(FileName:=imagePath, LinkToFile:=False, SaveWithDocument:=True, Width:=35, Height:=35)
    kl.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    kl.RelativeVerticalPosition = wdRelativeVerticalPositionPage
    kl.Left = rng.Information(wdHorizontalPositionRelativeToPage)
    kl.Top = rng.Information(wdVerticalPositionRelativeToPage)
End Sub

Makro ini berhenti memposisikan gambar dengan benar pada mesin Windows XP dengan Office 2010. Bagaimana cara memperbaikinya?

— pengguna2122034
sumber

Adakah kesalahan, atau hanya kegagalan diam?

— Karan

Apakah ada perubahan dalam versi Office juga?

— Gary

Jika Anda ingin bantuan dengan ini, harap perbarui pertanyaan ini dengan menanggapi komentar di atas dan untuk pertanyaan ini; Bagaimana cara "berhenti memposisikan gambar dengan benar"? Apakah pengaturan halaman dokumen sama persis dengan di komputer Windows 7?

— CharlieRB