2012-08-22 35 views

Trả lời

4

Nếu bạn hài lòng với câu đơn giản hơn, chứ không phải là dòng:

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

Năm đoạn và 50 khoảng trống trong VBA

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

Tuy nhiên, đối với một vị trí cụ thể, tôi sẽ thích một hộp văn bản:

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

Với một số thuộc tính:

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

tôi muốn thêm một văn bản, một dấu trang hoặc một cái gì đó tương tự như một tài liệu trống, không có bất kỳ câu !! Tôi nên thêm một số đoạn đầu tiên? Tôi thực sự bối rối về điều này! –

+0

Nếu tài liệu trống của bạn đang hoạt động, bạn chỉ có thể nói 'Selection.Text =" rất nhiều văn bản "' – Fionnuala

+0

có, nhưng không có câu và không có ký tự trong tài liệu trống! Ví dụ làm thế nào để viết trong dòng 5 bằng cách sử dụng mã này? ! –

1

Finding a position in a word document to insert a table

Bạn có thể tìm thấy một số thông tin hữu ích ở vị trí trên.

+0

cảm ơn, nhưng tôi đã đọc rồi, nhưng tôi đã không undrestand !! 'tôi không biết tôi có thể tìm thấy thông tin nào tốt về Microsoft.Office .Interop.Word ngoại trừ msdn! –

2

Nếu bạn sẽ chèn văn bản ở cùng một vị trí mỗi khi cách đơn giản để thực hiện việc này là tạo tệp mẫu .dotx có dấu trang tại vị trí. Đảm bảo mẫu được bao gồm trong bản dựng

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

Đây là cách tốt hơn để thực hiện việc này – R2D2

Các vấn đề liên quan