Excel Sayfasına İki Sayfalı Word Nesnesi Ekleme / Görüntüleme


1

İki sayfalık bir Worddokümanı almaya ve bir Excel 2010çalışma sayfasına eklemeye çalışıyorum . Orijinal belgeye bağlanmaya çalışmıyorum.

Şimdiye kadar nesneyi ekleyebildim, ancak yalnızca ilk sayfayı görüntülüyor. İkinci sayfayı görmek için, nesneyi çift tıklamalı ve sonra beni düzenleme moduna almalıyım. Düzenleme modunda veya normal görünümde olsam da, nesneyi yeniden boyutlandırmak işe yaramıyor.

Bununla ilgili belgeleri aradım ve bu konuyu buldum , ancak gerçekten bir çözüm yoktu. Ne yok daha böyle bakıyor rağmen, iki ayrı dosyalar halinde benim belgeyi bölmek yapmak istediğim bu noktada benim tek seçenek.

Bir dokümanın her iki sayfasını Wordbir Excelçalışma sayfasında bunları iki ayrı dosyaya bölmeden nasıl görüntüleyeceğini bilen var mı ? Bunun mümkün olup olmadığını bilen var mı?


Başka bir geçici çözüm sayfanın yüksekliğidir - çalışır, ancak 55,87 cm'lik bir sınırı vardır.
ZygD

Yanıtlar:


0

Neredeyse işe yarayan bir hile var . Excel'de bir metin kutusu oluşturabilir ve ardından sözcük belgesindeki (Ctrl-A) tüm metni seçebilir, kopyalayıp Excel metin kutusuna yapıştırabilirsiniz.

Grafikler ve boyut biçimlendirme genellikle bölmenin karşısına geçmez, ancak kalın bağlantılar, genellikle böyle yapılır.

Dediğim gibi, mükemmel bir çözüm değil, ancak word belgeniz biçimlendirmeden çok metinse, yaklaşmalısınız. Excel'e birden fazla Word sayfası eklemeyi başarabilmemin tek yolu bu


Cevap için teşekkürler. Yine de nesneyi yaprağa gömmeyi umuyorum. Word ve Excel arasındaki işlevsellik eksikliğine şaşırdım ... Onunla çalışmaya devam edeceğim ve bir şeyleri çözüp çözemeyeceğime bakacağım.
ARich

0

Tamam, işte anladığım çözüm.

Word belgesini sayfaya gömdüm. Kullanıcı düzenleme modundayken belgeyi aşağıya kaydırdığından, nesneyi otomatik olarak düzenleme moduna geçirmek için VBA kullandım:

'This code is called from a button on a different sheet. It could also be put in _
'a Worksheet_SheetActivate instead or called from a button on the same sheet. 
Dim ws As Worksheet
Application.ScreenUpdating = False

Set ws = ThisWorkbook.Sheets("Sheet1")
With ws
    .Activate
    .Shapes.Range(Array("Object 7")).Select
    Selection.Verb Verb:=xlPrimary
End With
Application.ScreenUpdating = True

Bu şekilde, kullanıcının düzenleme moduna girmek için nesneyi çift tıklatması gerekmez ... bu ideal bir çözüm değildir, ancak amaçlarım için uygun bir geçici çözümdür.


0

Word'deki sayfa boyutunu A4'ten özel bir boyuta (mümkün olan en büyük uzunluk) değiştirerek bu sorunu çözdüm. Bu, daha sonra, bir nesne olarak excel'e yerleştirdiğimde hepsinin göründüğü kadar uzundu. Orijinal dosyam iki sayfaya yakındı.

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.