Lagre makro for å fylle inn tekst i Word

[ilpostino]

noen som kan hjelpe meg litt med å komme med eksempler på makroer som skriver inn tekst i en heading i et gitt word-dokument?

[aadnk]

Legg til følgende prosedyre i dokumentmakrokoden:

Public Sub ReplaceByStyle(Paragraphs As Paragraphs, StyleName As String, Text As String, Optional ByVal Count As Long = -1)

 

    Dim Paragraph As Paragraph

 

    ' Gå gjennom alle avsnitt

    For Each Paragraph In Paragraphs

        ' Dersom avsnittet er stilert med den gitte stilart, ...

        If Paragraph.Style.NameLocal = "Heading 1" Then

       

            ' ... endrer vi dens tekst.

            Paragraph.Range.Text = Text

           

            ' Tell ned antall avsnitt som skal endres

            Count = Count - 1

           

            ' Dersom vi når null, er vi ferdige

            If Count = 0 Then

                Exit Sub

            End If

           

        End If

    Next

 

End Sub

Deretter kan du endre alle overskrifter i det nåværende dokumentet til å inneholde teksten "Endret tekst":

ReplaceByStyle ThisDocument.Paragraphs, "Heading 1", "Endret tekst" & vbCrLft

Endret 23. januar 2007 av aadnk

[ilpostino]

takker

 

(14 tegn)