Microsoft Publisher'da iki metin kutusu her zaman aynı içeriğe sahip yapabilir misiniz?


4

Oluşturduğum belirli belge, sayfayı ikiye katlamayı içeriyor; bu nedenle, yazdırıldığında bir taraf diğerine göre baş aşağı duruyor, ancak bir araya getirildiğinde birbirlerinin aynası.

Soru gerçekten her şeyi söylüyor - iki metin kutusunu birbirine bağlamanın bir yolu var, böylece birinde görünenler otomatik olarak diğerinde belirir mi?

Yanıtlar:


2

ALT+ Tuşlarına basıp makrolarıF11 kullanabilirsiniz :

Private Sub Document_Open()
  ActiveDocument.Pages(1).Shapes("Text Box 2").TextFrame.TextRange.Text = ActiveDocument.Pages(1).Shapes("Text Box 1").TextFrame.TextRange.Text
End Sub

Bu şekilde, doküman her açıldığında, metin "Metin Kutusu 1" den "Metin Kutusu 2" ye kopyalanır.


Belgedeki tüm metin kutularının adlarını aşağıdakilerle bulmak isteyebilirsiniz:

Sub EnumerateTextBoxes()
  Dim pubPage As Page
  Dim pubShape As Shape
  For Each pubPage In ActiveDocument.Pages
    For Each pubShape In pubPage.Shapes
      If pubShape.Type = pbTextFrame Then
        MsgBox pubShape.Name
      End If
    Next pubShape
  Next pubPage
End Sub

Makrolar korkunç bir fikir değil. Publisher'ın bölümleri akış için bağlayabilmesiyle, çoğaltma için onları bağlayacak bir tane olacağını düşündüm. Her iki durumda da, eğer daha iyi bir şey olmazsa, birkaç gün içinde bunu işaretleyeceğim, böylece ödül alacaksınız.
TJL

Bazıları bir bülten şablonu ile başlayıp daha sonra başlık metin kutusunu kopyalayarak istediğinizi başarabildiklerini söylüyorlar , ancak bu davranışı Publisher 2010'da
çoğaltamıyordum

Metin kutusundaki change olayına bağlı bir makro olduğunu tahmin edeceğim, bu yüzden benimkini nasıl kuracağım. Excel'de makrolarla çok rahatım, onlardan uzak durmayı umuyordum.
TJL,
Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.