Prihl�si� sa

Select the product you need help with

Pr�klady makier VBA chcete vlo�i� text do dokumentu v programe Word 2000

ID �l�nku: 212682 - Zobrazi� produkty, ktor�ch sa tento �l�nok t�ka.

Kliknut�m sem zobraz�te vyhl�senie t�kaj�ce sa strojovo prelo�en�ch �l�nkov datab�zy KB

Kliknut�m sem zobraz�te strojovo prelo�en� �l�nok a p�vodn� anglick� �l�nok ved�a seba

Microsoft Word 98 Macintosh Edition verziu tohto �l�nku, pozri 183866

(http://support.microsoft.com/kb/183866/ )

Program Microsoft Word 97 verziu tohto �l�nku, pozri 161407

(http://support.microsoft.com/kb/161407/ )

Rozbali� v�etko | Zbali� v�etko

SUHRN

Tento �l�nok poskytuje nieko�ko jazyka Visual Basic pre aplik�cie makro pr�klady �e pou�itie V�ber Vlastnos� a Rozsah objekt a vlo�i� text do dokument.

Sp� na za�iatok | Odo�lite odozvu

Spolo�nos� Microsoft poskytuje pr�klady programovacieho z�klad�a, bez �ubovo�nej vyjadrenej alebo implicitnej z�ruky. To zah��a, ale nie v�hradne, implikovan�ch z�ruk obchodovate�nosti alebo vhodnosti na konkr�tny ��el. Tento �l�nok predpoklad�, �e ovl�date predv�dzan� programovac� jazyk a n�stroje, ktor� sa pou��vaj� na vytv�ranie a ladenie proced�r. Pracovn�ci technickej podpory spolo�nosti Microsoft m��u pom�c� vysvetli� funk�nos� konkr�tny postup, ale nie modifikuje tieto pr�klady poskytova� pridan� funk�nos� alebo v�stavbe postupy splni� va�e konkr�tne po�iadavky.

Pomocou v�beru objektu a met�da TypeText

Vlo�� zadan� text. Ak ReplaceSelection Vlastnos� je Pravda, v�ber nahr�dza zadan� text. Ak ReplaceSelection Vlastnos� je Nepravdiv�, zadan� text sa vlo�� pred v�ber.

�al�ie inform�cie o ReplaceSelection majetku, v editore jazyka Visual Basic kliknite Pomocn�k programu Microsoft Visual Basic na pomoc ponuka, typu Vlastnos� ReplaceSelection v Asistentovi programu Office alebo Sprievodcu odpove�ami a potom kliknite na tla�idlo Vyh�ad�vanie Ak chcete zobrazi� t�mu.

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

Rozsah objekt

V nasleduj�com pr�klade nahrad� cel� obsah dokumentu so slovo "Nahraden�" bez oh�adu na aktu�lnu poz�ciu kurzora.

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

Rozsah alebo v�ber objektu pomocou met�dy InsertAfter/InsertBefore

InsertAfter met�da pr�klad:

Vlo�� zadan� text na konci rozsahu alebo v�ber.

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 met�da pr�klad:

Zadan� text sa vlo�� na za�iatku rozsahu alebo v�ber. Po T�to met�da sa uplat�uje, rozsah alebo v�ber roz�iruje zahrn�� nov� text.

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

Vlo�enia koment�ra do dokumentu pomocou rozsah alebo v�ber objektu

Na aktu�lnu poz�ciu kurzora vlo�� koment�r.

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

Vlo�en�m po�a do dokumentu pomocou rozsah alebo v�ber objektu

Na aktu�lnu poz�ciu kurzora vlo�� pole.

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

V tomto pr�klade vlo�� pole vzorca. V�sledok je form�tovan� s dol�r podp�sa�.

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

Replik�cia text, vr�tane form�t textu rozsahu

T�to vlastnos� vr�ti Rozsah objekt s form�tovanie znakov a text zadan� rozsah alebo v�ber. Form�tovanie odseku je zahrnut� do rozsahu objekt ak existuje zna�ku odseku v rozsahu alebo v�ber. Ak nastav�te t�to vlastnos�, nahr�dza sa text v rozsahu s form�tovan� text. Ak chcete nahradi� existuj�ci text, pou�ite Zbali� met�da pred pou�it�m tohto majetku.

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

Umiest�ovanie textu do hlavi�ky alebo p�ty

POZN�MKA: HeaderFooter Vlastnos� vy�aduje, �e v�ber je umiestnen� v hlavi�ke alebo p�te alebo sa vyskytne chyba.

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

Nasleduj�ci pr�klad zmen� text oboch prim�rna Hlavi�ka a prim�rne p�ty pre prv� sekciu v akt�vnom dokumente.

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

Pomocou objektu rozsah alebo v�ber vlo�i� d�tum pomocou po�a Doba

V tomto pr�klade vlo�� pole Time na aktu�lny d�tum. Mo�n� v�sledok m��u by� "November 18 1996."

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

Pomocou objektu rozsah alebo v�ber vlo�i� nov� odsek

V tomto pr�klade sa vlo�� nov� odsek ni��ie aktu�lnu poz�ciu kurzora.

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

Pomocou objektu rozsah alebo v�ber vlo�i� symbol

V tomto pr�klade vlo�� obojstrann� ��pku na poz�ciu kurzora.

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

Pomocou rozsah alebo v�ber objektu na prilepenie zo schr�nky

V tomto pr�klade vlo�� text umiestnen� v schr�nke na aktu�lnu poz�ciu kurzora.

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

�al�ie inform�cie o pou��van� rozsah objekt, v editore jazyka Visual Basic, kliknite na tla�idlo Pomocn�k programu Microsoft Visual Basic na pomoc ponuka, typu Rozsah objektu v Asistentovi programu Office alebo Sprievodcu odpove�ami a potom kliknite na tla�idlo Vyh�ad�vanie Ak chcete zobrazi� t�mu.

�al�ie inform�cie o pou��van� v�ber objektu, v editore jazyka Visual Basic, kliknite na tla�idlo Pomocn�k programu Microsoft Visual Basic na pomoc ponuka, typu V�ber objektu v Asistentovi programu Office alebo Sprievodcu odpove�ami a potom kliknite na tla�idlo Vyh�ad�vanie Ak chcete zobrazi� t�mu.

�al�ie inform�cie o pou��van� vzorov�ho k�du v tomto �l�nku, kliknite na tla�idlo nasleduj�ce ��slo �l�nku publikovan�ho v datab�ze Microsoft Knowledge Base:

212536

(http://support.microsoft.com/kb/212536/EN-US/ )

OFF2000: Ako spusti� vzorov�ho k�du z �l�nkov datab�zy Knowledge Base

Sp� na za�iatok | Odo�lite odozvu

ODKAZY

�al�ie inform�cie o z�skanie pomoci s programom Visual Basic for Applications, pozri nasleduj�ci �l�nok v datab�ze Microsoft Knowledge Base:

226118

(http://support.microsoft.com/kb/226118/EN-US/ )

OFF2000: Programovanie zdroje pre Visual Basic for Applications

Sp� na za�iatok | Odo�lite odozvu

Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use

(http://go.microsoft.com/fwlink/?LinkId=151500)

for other considerations.

Sp� na za�iatok | Odo�lite odozvu

Vlastnosti

ID �l�nku: 212682 - Posledn� kontrola: 20. okt�bra 2011 - Rev�zia: 2.0

Inform�cie v tomto �l�nku sa t�kaj� nasleduj�cich produktov:

Microsoft Word 2000 Standard Edition

kbdtacode kbhowto kbmacroexample kbprogramming kbmt KB212682 KbMtsk

Strojovo prelo�en�

D�LE�IT�: Tento �l�nok bol prelo�en� pomocou softv�ru na strojov� preklad od spolo�nosti Microsoft, nie prekladate�om. Spolo�nos� Microsoft pon�ka �l�nky prelo�en� prekladate�mi aj strojovo prelo�en� �l�nky, v�aka �omu m�te mo�nos� pr�stupu ku v�etk�m �l�nkom datab�zy Knowledge Base vo svojom jazyku. Strojovo prelo�en� �l�nok v�ak nie je v�dy perfektn�. M��e obsahova� chyby t�kaj�ce sa slovnej z�soby, syntaxe alebo gramatiky, podobne ako cudzinec m��e robi� chyby, ke� rozpr�va va�im jazykom. Spolo�nos� Microsoft nenesie zodpovednos� za ak�ko�vek nepresnosti, chyby alebo �kody sp�soben� ak�mko�vek nepresn�m prekladom obsahu alebo jeho pou�it�m zo strany z�kazn�kov. Spolo�nos� Microsoft softv�r na strojov� preklad pravidelne aktualizuje.

Pokia� chcete vidie� anglick� verziu �l�nku, kliknite sem:212682

(http://support.microsoft.com/kb/212682/en-us/ )

Sp� na za�iatok | Odo�lite odozvu

Odo�lite odozvu

Sp� na za�iatok

Select the product you need help with

Pr�klady makier VBA chcete vlo�i� text do dokumentu v programe Word 2000

Na tejto str�nke

SUHRN

DALSIE INFORMACIE

Pomocou v�beru objektu a met�da TypeText

Rozsah objekt

Rozsah alebo v�ber objektu pomocou met�dy InsertAfter/InsertBefore

Vlo�enia koment�ra do dokumentu pomocou rozsah alebo v�ber objektu

Vlo�en�m po�a do dokumentu pomocou rozsah alebo v�ber objektu

Replik�cia text, vr�tane form�t textu rozsahu

Umiest�ovanie textu do hlavi�ky alebo p�ty

Pomocou objektu rozsah alebo v�ber vlo�i� d�tum pomocou po�a Doba

Pomocou objektu rozsah alebo v�ber vlo�i� nov� odsek

Pomocou objektu rozsah alebo v�ber vlo�i� symbol

Pomocou rozsah alebo v�ber objektu na prilepenie zo schr�nky

ODKAZY

Vlastnosti

Inform�cie v tomto �l�nku sa t�kaj� nasleduj�cich produktov:

K��ov� slov�:�

Odo�lite odozvu

Preklady �l�nku

Select the product you need help with

Pr�klady makier VBA chcete vlo�i� text do dokumentu v programe Word 2000

Na tejto str�nke

SUHRN

DALSIE INFORMACIE

Pomocou v�beru objektu a met�da TypeText

Rozsah objekt

Rozsah alebo v�ber objektu pomocou met�dy InsertAfter/InsertBefore

Vlo�enia koment�ra do dokumentu pomocou rozsah alebo v�ber objektu

Vlo�en�m po�a do dokumentu pomocou rozsah alebo v�ber objektu

Replik�cia text, vr�tane form�t textu rozsahu

Umiest�ovanie textu do hlavi�ky alebo p�ty

Pomocou objektu rozsah alebo v�ber vlo�i� d�tum pomocou po�a Doba

Pomocou objektu rozsah alebo v�ber vlo�i� nov� odsek

Pomocou objektu rozsah alebo v�ber vlo�i� symbol

Pomocou rozsah alebo v�ber objektu na prilepenie zo schr�nky

ODKAZY

Vlastnosti

Inform�cie v tomto �l�nku sa t�kaj� nasleduj�cich produktov:

K���ov� slov�:�

Odo�lite odozvu

Preklady �l�nku

K��ov� slov�:�