Windows XP'de Word 2010'da pencereyi yeniden boyutlandırma

Bir Word penceresini, ekranın RH tarafının% 20'sine, diğer kısmı ise LH tarafındaki% 80'e kadar boyutlandırmak için sahip olduğum iki makro çalışmayı durdurdu. (Diğer ekranda çalışırken referans dosyaları içindir).

Bunlar benim makrolarım:

Sub RestoreDown()
    Dim myWindow1 As Window, myWindow2 As Window
    Set myWindow1 = ActiveWindow
    With myWindow1
        .WindowState = xlNormal
        .Top = 0
        .Left = (Application.UsableWidth * 0.92) + 1
        .Height = Application.UsableHeight
        .Width = Application.UsableWidth * 0.2
    End With
End Sub
Sub RestoreDown2()
    Dim myWindow1 As Window, myWindow2 As Window
    Set myWindow1 = ActiveWindow
    With myWindow1
        .WindowState = xlNormal
        .Top = 0
        .Left = (Application.UsableWidth * 0.12) + 1
        .Height = Application.UsableHeight
        .Width = Application.UsableWidth * 0.8
    End With
End Sub

Çalışmayı bıraktılar. 'Nesne değişkeni veya Blok değişkeni ayarlanmadı' hata mesajını alıyorum. Hiçbir şeyi değiştirdiğimin farkında değilim.

Teknik bir inek olmadığımı belirtmeliyim. Çalışmalarım için makroları çok kullanırım (metinlerin kopyalanması) ancak VBA hakkında çok şey bilme aşamasındayım. Lütfen cevap verirken bunu aklınızda bulundurun!

microsoft-word-2010 macros window

— Sarah Woodton
kaynak

Çalışmayı bırakmalarına ne sebep oldu? Asıl nedeni bilmiyorsanız, tetikleyici olay neydi? Bu makroları kim yazdı?

— Ramhound

İkisi de sistemimde hatasız çalışıyor. Bu onları çalıştırdığınız tüm belgelerde oluyor mu? Yalnızca önce başka bir belgede çalıştırdıktan sonra mı oluyor? Makroyu çalıştırmadan önce tüm Word belgelerini kapatıp yeniden açarsanız ne olur? Yeniden başlattıktan sonra ne olacak?

— CharlieRB

Ramhound: Korkarım bunu neyin tetiklediğini bilemiyorum. Normal.dotm'um son zamanlarda bozulmuştu ya da en azından benim tahmin ettiğim şey bu: bütün makrolarım kaybolmuş gibiydi. Neyse ki hepsi ile birlikte bir Word dosyasını tutuyorum, bu yüzden hepsini VBA'ya geri yapıştırdım ve bunlar dışında iş gibi görünüyorlar.

— Sarah Woodton,

CharlieRB: Bilgisayarım her gece kapanıyor ve sabahları yeniden başlatıyorum, bu yüzden evet, yeniden başlattım ve hala çalışmıyorlar.

— Sarah Woodton,

@sarahwoodton - Yolsuzluğa neden olan şey. Hangi Windows sürümlerini kullanıyorsunuz?

— Ramhound