Voorbeelden van VBA macro tekst invoegen in een document in Word 2000

Artikel ID: 212682 - Bekijk de producten waarop dit artikel van toepassing is.
Automatische vertalingLET OP: Dit artikel is automatisch vertaald. Meer informatie treft u aan de onderzijde van dit artikel.
Zie voor een Microsoft Word 98 Macintosh Edition-versie van dit artikel:183866
(http://support.microsoft.com/kb/183866/ )
.
Zie voor een Microsoft Word 97-versie van dit artikel:161407
(http://support.microsoft.com/kb/161407/ )
.
Alles uitklappen | Alles samenvouwen

Op deze pagina

Samenvatting

Dit artikel bevat enkele Visual Basic macro voorbeelden van toepassingen die gebruikmaken van deSelectieeigenschap en deBereikobject tekst invoegen in een document.
Naar boven | Geef ons feedback

Meer informatie

Microsoft biedt program meer voorbeelden ter illustratie alleen, zonder expliciete of impliciete garantie. Dit omvat, maar is niet beperkt tot, de impliciete garanties van verkoopbaarheid of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend met de programmeer taal worden opgespoord en met de hulp programma's die worden gebruikt bent voor het maken en waarmee fouten in procedures. Ondersteuningstechnici van Microsoft kunnen helpen verklaren de functionaliteit van een bepaalde procedure, maar zij zal deze voorbeelden om extra functionaliteit of samens tellen van procedures om te voldoen aan uw specifieke vereisten niet wijzigen.

Werken met het Selection-object en de TypeText, methode

De opgegeven tekst ingevoegd. Als deReplaceSelectioneigenschapTrue, de selectie vervangen door de opgegeven tekst. AlsReplaceSelectioneigenschap isFalse, wordt de opgegeven tekst ingevoegd vóór de selectie.

Klik voor meer informatie over ReplaceSelection eigenschap in de Visual Basic EditorMicrosoft Visual Basic Helpop deHelpin het menu typeReplaceSelection, eigenschapin de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.
Sub TypeTextMethod()
  Dim MyText As String
  MyText = "<Replace this with your text>"
  Selection.TypeText (MyText)
End Sub

Werken met Range-objecten

In het volgende voorbeeld wordt vervangen door de volledige inhoud van een document met de Word "Vervangen", ongeacht de huidige positie van de invoegpositie.

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

Bereik of selectie object gebruiken met de methode InsertAfter/InsertBefore

InsertAfterVoorbeeld van de methode:

De opgegeven tekst ingevoegd aan het einde van een bereik of selectie.
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
InsertBeforeVoorbeeld van de methode:

De opgegeven tekst ingevoegd aan het begin van een bereik of selectie. Na Deze methode is toegepast, het bereik of de selectie uitgebreid met de nieuwe tekst.
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

Een opmerking invoegen in een document, bereik of selectie-object gebruiken

Hiermee voegt u een commentaar op de huidige positie van de invoegpositie.
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

Een veld invoegen in een document, bereik of selectie-object gebruiken

Een veld invoegen op de huidige positie van de invoegpositie.
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
In dit voorbeeld wordt een formule veld ingevoegd. Het resultaat is opgemaakt met een dollar Meld u aan.

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

De tekst, met inbegrip van de vorm van een tekst ber eik repliceren

Deze eigenschap retourneert eenBereikobject met de teken opmaak en tekst uit het opgegeven bereik of de selectie. Alinea opmaak is opgenomen in het Range-object als een alineamarkering in een bereik of selectie. Als u deze eigenschap instelt, wordt de tekst in het bereik vervangen door opgemaakte tekst. Als u wilt de bestaande tekst wilt vervangen, gebruikt u deSamen vouwenmethode voordat u deze eigenschap gebruikt.
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

Tekst in een koptekst of voet tekst plaatsen

OPMERKING: DeHeaderFootereigenschap vereist dat de selectie zich in een koptekst of voet tekst, of er treedt een fout op.
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
In het volgende voorbeeld wordt de tekst van zowel de primaire koptekst en de primaire voet tekst voor de eerste sectie van het actieve document.
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

Het bereik of de selectie-object gebruiken om een datum met behulp van de Time-veld invoegen

In dit voorbeeld wordt een Time-veld ingevoegd voor de huidige datum. Een mogelijk resultaat zijn "18 November 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

Het bereik of de selectie object gebruiken om een nieuwe alinea invoegen

In dit voorbeeld wordt een nieuwe alinea onder de huidige positie van de invoegpositie ingevoegd.
Sub InsertParagraphMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertParagraph
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertParagraph
End Sub

Een symbool invoegen met behulp van het bereik of de selectie object

Dit voorbeeld wordt een dubbele pijl ingevoegd op de invoegpositie.
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

Het bereik of de selectie object plakken vanaf het Klembord gebruiken

Dit voorbeeld wordt de tekst op het Klembord op de huidige positie van de invoegpositie geplaatst.
Sub PasteMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.Paste
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.Paste
End Sub

Klik voor meer informatie over het gebruik van het Range-Object in Visual Basic EditorMicrosoft Visual Basic Helpop deHelpin het menu typeRange-Objectin de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.

Klik voor meer informatie over het gebruik van het Object selecteren in de Visual Basic EditorMicrosoft Visual Basic Helpop deHelpin het menu typeSelectie Objectin de Office-assistent of de Antwoordwizard en klikt u vervolgens opZoekenom het onderwerp weer te geven.

Klik voor meer informatie over het gebruik van de voorbeeldcode in dit artikel het volgende artikelnummer om het artikel in de Microsoft Knowledge Base te bekijken:
212536
(http://support.microsoft.com/kb/212536/EN-US/ )
Office 2000: Hoe u voorbeeldcode uit Knowledge Base-artikelen uitvoeren
Naar boven | Geef ons feedback

Referenties

Voor meer informatie over het opvragen van help voor Visual Basic for Applications, raadpleegt u het volgende artikel in de Microsoft Knowledge Base:
226118
(http://support.microsoft.com/kb/226118/EN-US/ )
Office 2000: Programmeren bronnen voor Visual Basic for Applications
Naar boven | Geef ons feedback

Eigenschappen

Artikel ID: 212682 - Laatste beoordeling: zondag 18 september 2011 - Wijziging: 3.0
De informatie in dit artikel is van toepassing op:
  • Microsoft Word 2000 Standard Edition
Trefwoorden: 
kbdtacode kbhowto kbmacroexample kbprogramming kbmt KB212682 KbMtnl
Automatische vertaling
BELANGRIJK: Dit artikel is vertaald door de vertaalmachine software van Microsoft in plaats van door een professionele vertaler. Microsoft biedt u professioneel vertaalde artikelen en artikelen vertaald door de vertaalmachine, zodat u toegang heeft tot al onze knowledge base artikelen in uw eigen taal. Artikelen vertaald door de vertaalmachine zijn niet altijd perfect vertaald. Deze artikelen kunnen fouten bevatten in de vocabulaire, zinsopbouw en grammatica en kunnen lijken op hoe een anderstalige de taal spreekt en schrijft. Microsoft is niet verantwoordelijk voor onnauwkeurigheden, fouten en schade ontstaan door een incorrecte vertaling van de content of het gebruik ervan door onze klanten. Microsoft past continue de kwaliteit van de vertaalmachine software aan door deze te updaten.
De Engelstalige versie van dit artikel is de volgende:212682
(http://support.microsoft.com/kb/212682/en-us/ )
Naar boven | Geef ons feedback

Geef ons feedback

 
Naar bovenNaar boven