Word 2016 için Büyük Makor Sorunu Düzeltme

Question

Word 2016 için bir makrosu oluşturmaya çalışıyorum; bu, "bul ve değiştir" işlevini değiştirdiğim yaklaşık 250 arama terimini içeren bir listeyi otomatik olarak düzenleyecektir. Baştan sona makroyu kaydettiğimde ve çalıştırmayı denediğimde, "Yordam çok uzun" diyen bir ileti alıyorum. Burada yanıtları inceledim ve bazı kodları temizleyebileceğinizi ve/veya sorun giderme için kod içinde alt bölümler oluşturabileceğinizi anladım. Ancak, ne yaptığımı ve kodun çok uzun olduğundan emin değilim.

Birisi bana yardım edebilir mi lütfen? kod

kısmı aşağıda bulunmaktadır:

Portion of code

Answer 1

adımlar halinde makro kırın

. En kolay yolu (eğer bir hata yaparsanız her zaman geriye orijinal metni koymak, böylece test için belgenizin bir kopyasını kullanın!) olduğu:

• Tutanak kısa makro. Ne yaptığı önemli değil. DoAllReplacements gibi bir isim verin.

• İlk değiştirme kutunuzu yapan bir makroyu kaydedin. DoReplacement1 gibi bir şey adlandırın.

• Makroları görüntüleyin ve DoReplacement1 makrosunu düzenleyin. Tüm metni, yorum bloğunun sonundan End Sub'dan hemen önceki satıra kopyalayın.

• DoReplacement1 End Sub'un sonundaki düzeltme satırını (imleci) koyun ve iki kez enter tuşuna basın.

  Sub DoReplacement2() 
  
  End Sub 
  

• yeni eklediğiniz Sub ve End Sub çizgi arasındaki panodan kodu yapıştırın: Aşağıdaki metni girin. Bir sonraki değiştirme kutunuzu yapmak için makro kodunu düzenleyin.

• Tüm değiştirmeleriniz kodlanana kadar yukarıdaki DoReplacementX yordamını gerektiği kadar tekrarlayın.

• git geri (DoAllReplacements) kaydedilir ve Sub DoAllReplacements() ve End Sub arasındaki tüm kodu kaldırmak ilk makro için. Yazdığınız bireysel DoReplacementX makrolarına yeni aramalar ekleyin.

  Sub DoAllReplacements() 
      DoReplacement1 
      DoReplacement2 
      DoReplacement3 
      ' Etc. until you've added them all 
  End Sub 
  

Çık makro kod penceresi. View Macros kullanın, DoAllReplacements makronuzu seçin ve çalıştırın.