Microsoft Support

Makale numaras�: 212682 - Son G�zden Ge�irme: 11 Ekim 2006 �ar�amba - G�zden ge�irme: 3.2

Word 2000'de bir belge i�ine metin eklemek i�in VBA makro �rnekleri

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik Terc�me

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Bu makalenin Microsoft Word 98 Macintosh Edition s�r�m� i�in bkz: 183866� (http://support.microsoft.com/kb/183866/ ) .

Bu makalenin Microsoft Word 97 s�r�m� i�in bkz: 161407� (http://support.microsoft.com/kb/161407/ ) .

Bu Sayfada

Hepsini a� | Hepsini kapa

�zet

Bu makalede birka� Visual Basic Applications makro, se�im �zelli�i ve Aral�k nesnesi bir belgeye metin eklemek i�in kullan�n... �rnekleri sa�lar.

Daha fazla bilgi

Microsoft, programlama �rneklerini yaln�zca g�sterim amac�yla sa�lar; �rt�l� veya a��k garanti vermez. Buna sat�labilirlik veya belirli bir amaca uygunluk z�mni garantileri de dahildir, ancak bunlarla s�n�rl� de�ildir. Bu makale, g�sterilen programlama dilini ve yordamlar� olu�turmak ve hata ay�klamak amac�yla kullan�lan ara�lar� kullanmay� bildi�inizi varsayar. Microsoft destek m�hendisleri, belirli bir yordam�n i�levselli�inin a��klanmas�na yard�mc� olabilir, ancak gereksinimlerinizi kar��lamaya y�nelik olarak ek i�levsellik sa�lamak veya yordamlar geli�tirmek amac�yla bu �rnekleri de�i�tirmezler.

Se�enek nesnesi ve TypeText y�ntemini kullanarak

Belirtilen metni ekler. Se�imi, ReplaceSelection �zelli�i true ise, belirtilen metin taraf�ndan de�i�tirilir. Belirtilen metni, ReplaceSelection �zelli�i false ise, �nce se�imi eklenir.

ReplaceSelection �zelli�i, Visual Basic D�zenleyicisi'nde hakk�nda daha fazla bilgi i�in Yard�m men�s�nde Microsoft Visual Basic Yard�m� ' n� t�klat�n, sonra da ReplaceSelection �zelli�i, Office Yard�mc�s�'na veya Yan�t Sihirbaz�'n� yaz�n ve d�nd�r�len konular� g�r�nt�lemek i�in Ara ' y� t�klat�n.

Sub TypeTextMethod()
  Dim MyText As String
  MyText = "<Replace this with your text>"
  Selection.TypeText (MyText)
End Sub

Aral�k nesnesi kullanma

A�a��daki �rnek, ge�erli ekleme noktas� konumu ne olursa olsun "Replaced" s�zc�� belgenin t�m i�eri�ini de�i�tirir.

Sub RangeProperty()
  ' Range Example:
  ActiveDocument.Range.Text = "Replaced"
End Sub

Aral�k veya se�im nesnesi InsertAfter/InsertBefore y�ntemi ile kullanma

InsertAfter y�ntemi �rnek:

Belirtilen metni, aral�k veya se�im sonuna ekler.

Sub InsertAfterMethod()
  Dim MyText As String
  Dim MyRange As Object
  Set MyRange = ActiveDocument.Range
  MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.InsertAfter (MyText)
  ' Range Example:
  ' (Inserts text at the current position of the insertion point.)
  MyRange.Collapse
  MyRange.InsertAfter (MyText)
End Sub

InsertBefore y�ntemi �rnek:

Belirtilen metni, aral�k veya se�im ba��nda ekler. Bu y�ntem uyguland�ktan sonra yeni metni de eklemek aral�� veya se�imi geni�letir.

Sub InsertBeforeMethod()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "<Replace this with your text>"
   ' Selection Example:
   Selection.InsertBefore (MyText)
   ' Range Example: Inserts text at the beginning
   ' of the active document.
   MyRange.InsertBefore (MyText)
End Sub

Aral�k veya se�im nesnesini kullanarak bir belgeye a��klama ekleme

Yorum, ge�erli konumuna ekleme noktas�nda ekler.

Sub CommentsCollectionObject()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.Comments.Add Range:=Selection.Range, Text:=MyText
  ' Range Example:
  MyRange.Comments.Add Range:=Selection.Range, Text:=MyText
End Sub

Aral�k veya se�im nesnesini kullanarak bir belgeye bir alan ekleme

Alan, ge�erli konumuna ekleme noktas�nda ekler.

Sub FieldsCollectionObject()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = Selection.Range
   MyText = "<Replace this with your text>"
   ' Selection Example:
   Selection.Fields.Add Range:=Selection.Range, _
      Type:=wdFieldQuote, Text:=MyText
   ' Range Example:
    Range.Fields.Add Range:=Selection.Range, _
      Type:=wdFieldQuote, Text:=MyText
End Sub

Bu �rnek form�l alan� ekler. Sonu�, dolar i�areti ile bi�imlendirilir.

Sub InsertFormulaMethod()
   Selection.InsertFormula Formula:="=100,000.0-45,000.0", _
      NumberFormat:="$#,##0.0"
End Sub

Bir <a0>metin</a0> aral��n�n bi�imi de dahil olmak �zere metni �o�alt�l�yor

Bu �zellik bir Aral�k nesnesi karakter bi�imlendirmeleri ve metni ile belirtilen aral�k veya se�im verir Aral�k veya se�im bir paragraf i�areti ise, paragraf bi�imlendirme Range nesnesinde bulunur. Bu �zelli�i ayarlad��n�zda, aral�ktaki metin bi�imli metin ile de�i�tirilir. Varolan metnin yerine koymak istemiyorsan�z, bu �zelli�i kullanmadan �nce Daralt</a1> y�ntemini kullan�n.

Sub FormattedTextProperty()
   ' This example copies the first paragraph in the document, including
   ' its formatting, and inserts the formatted text at the insertion
   ' point.
   Selection.Collapse Direction:=wdCollapseStart
   Selection.FormattedText = ActiveDocument.Paragraphs(1).Range
End Sub

�stbilgi veya altbilgi metin yerle�tirme

Not: Se�ilen, �stbilgi veya altbilgi i�inde bulunmas� veya bir hata olu�acakt�r HeaderFooter �zelli�i gerektirir.

Sub HeaderFooterProperty()
   Dim MyText As String
   MyText = "<Replace this with your text>"
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.HeaderFooter.Range.Text = "MyText"
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

A�a��daki �rnek, birincil �stbilgisi hem de birincil etkin belgenin ilk b�l�m� i�in altbilgi metni de�i�tirir.

Sub HeaderFooterObject()
  Dim MyText As String
  MyHeaderText = "<Replace this with your text>"
  MyFooterText = "<Replace this with your text>"
  With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText
    .Footers(wdHeaderFooterPrimary).Range.Text = MyFooterText
  End With
End Sub

Aral�k veya se�im nesnesi bir tarihi, saati alan�n� kullanarak eklemek i�in kullanma

Bu �rnek, bir saat alan� ge�erli tarihi ekler. Bir olas� "Kas�m 18, 1996." olabilir

Sub InsertDateTimeMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
   InsertAsField:=True
   ' Range Example:
   MyRange.InsertDateTime DateTimeFormat:="MMM dd, yyyy", _
   InsertAsField:=True
End Sub

Yeni bir paragraf eklemek i�in aral�k veya se�im nesnesi kullanma

Bu �rnek yeni bir paragraf ekleme noktas�n�n ge�erli konumunu alt�na ekler.

Sub InsertParagraphMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertParagraph
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertParagraph
End Sub

Aral�k veya se�im nesnesi kullanarak simge ekleme

Bu �rnek �ift ba�l� bir ok, ekleme noktas�nda ekler.

Sub InsertSymbolMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertSymbol CharacterNumber:=171, _
      Font:="Symbol", Unicode:=False
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertSymbol CharacterNumber:=171, _
      Font:="Symbol", Unicode:=False
End Sub

Panodan yap��t�rmaya aral�k veya se�im nesnesi kullanma

Bu �rnek, ekleme noktas�n�, ge�erli konumda panoya yerle�tirilmi� metin ekler.

Sub PasteMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.Paste
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.Paste
End Sub

Visual Basic D�zenleyicisi'nde aral�k nesnesini kullanma hakk�nda daha fazla bilgi i�in Yard�m men�s�nde Microsoft Visual Basic Yard�m� ' n� t�klat�n, Aral�� nesne, Office Yard�mc�s�'na veya Yan�t Sihirbaz�'n� yaz�n ve sonra d�nd�r�len konular� g�r�nt�lemek i�in Ara ' y� t�klat�n.

Visual Basic D�zenleyicisi'nde se�im nesnesini kullanma hakk�nda daha fazla bilgi i�in Yard�m men�s�nde Microsoft Visual Basic Yard�m� ' n� t�klat�n, Se�im nesnesi, Office Yard�mc�s�'na veya Yan�t Sihirbaz�'n� yaz�n ve sonra d�nd�r�len konular� g�r�nt�lemek i�in Ara ' y� t�klat�n.

Bu makaledeki kod �rne�ini kullanma hakk�nda daha fazla bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

212536� (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000: Nas�l Knowledge Base makalelerini �rnek kod �al��t�r

Referanslar

Visual Basic for Applications Yard�m alma hakk�nda daha fazla bilgi i�in l�tfen Microsoft Knowledge Base'de a�a��daki makaleye bak�n:

226118� (http://support.microsoft.com/kb/226118/EN-US/ ) OFF2000: Kaynaklar Visual Basic for Applications programlama

Bu makaledeki bilginin uyguland�� durum:

Microsoft Word 2000 Standard Edition

kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB212682 KbMttr

Otomatik Terc�me

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:212682� (http://support.microsoft.com/kb/212682/en-us/ )