2012-08-22 29 views

cevap

4

:

ActiveDocument.Sentences(1).Characters(5).Select 
Selection.Collapse 
Selection.InsertBefore "added " 

Beş paragraflar ve

Selection.Text = String(5, vbCrLf) 
Selection.Collapse wdCollapseEnd 
Selection.Text = String(50, " ") 

Ancak VBA'DA 50 boşluk, belirli bir pozisyon için, ben tercih ediyorum bir metin kutusu: bazı özellikler ile

Set sh = doc.Shapes.AddTextbox(1, 10, 344, 575, 80) 
sh.Name = "Course1" 

:

sh.Fill.Visible = False 
sh.Line.Visible = False 
sh.TextFrame.MarginLeft = 0# 
sh.TextFrame.MarginRight = 0# 
sh.TextFrame.MarginTop = 0# 
sh.TextFrame.MarginBottom = 0# 
+0

Bir boş bir belgeye bir metin, bir yer imi veya benzeri bir şey eklemek istiyorum, herhangi bir Cümle yok! İlk önce bazı paragraf eklemeliyim? Bu konuda gerçekten kafam karıştı! –

+0

Boş belgeniz etkinse, 'Selection.Text =" çok sayıda metin "' – Fionnuala

+0

evet diyebilirsiniz, ancak boş bir belgede Cümleler yok ve Karakter yok, örneğin bu kodu kullanarak 5. satırda nasıl yazılır? ! –

1

Finding a position in a word document to insert a table

kullanıyorum. Eğer yerine hatları, daha basit cümleyle içerik varsa

+0

sayesinde dahil olun, ama ben zaten okudum, ama ben undrestand etmedi !! 'i Microsoft.Office hakkında bazı iyi bilgiler bulabileceğiniz bilmiyorum Msdn hariç. –

2

Her seferinde aynı konumda metin ekliyorsanız, bunu yapmanın kolay bir yolu, konumdaki bir yer işaretiyle .dotx şablon dosyası oluşturmaktır. Emin şablon yapı içinde

Doc = Word.Documents.Add("Directory\Filename") 
Doc.Bookmarks.Item("BookmarkName").Range.Text = "Text to be inserted" 
+1

Bunu yapmanın daha iyi bir yolu – R2D2

İlgili konular