Macro i word 2007

I hvilken kontekst optræder L, M & H? Tabel eller?

Til super tekst
L, M og H udfyldes i felter (Tekst felter i fomular) hvor de enkelte felter har tilknyttet bogmærke R100 til R190.
Håber det er svar

Er der mulighed for at du kunne sende dokumentet?
@-adresse under min profil.

Const T31 = "Vi har identificeret følgende områder/poster med betydelige risici (Niveau 3 = Høj) for væsentlig fejlinformation:" & vbCr & vbCr
Const T33 = "Vi har på disse områder vurderet udformningen af virksomhedens eventuelle tilknyttede kontroller og konstateret, om de er implementeret."
Dim T32 As String

Const T21 = "Vi har endvidere identificeret følgende områder/poster med risici (niveau 2 = Mellem) for væsentlig fejlinformation:" & vbCr & vbCr
Dim T22 As String
Public Sub OpbygBemærkninger()
Dim ff As FormField, antalH As Long, antalM As Long, antalL As Long
Dim bm As String, vTekst As String, lTekst As String
    antalH = 0
    antalM = 0
    antalL = 0
   
    T32 = ""
    T22 = ""
   
    For Each ff In ActiveDocument.FormFields
        bm = ff.Name
       
        If bm <> "" Then
            r = ff.Result
       
            If ff.Range.Text = "H" Then
                ff.Select
                Selection.Font.Bold = True              'FED anvendes som temporær identifikation -
                findKoordinatTekster vTekst, lTekst
                T32 = T32 & vTekst & " (" & lTekst & ")" + vbCr + vbCr
                       
                antalH = antalH + 1
            Else
                If ff.Range.Text = "M" Then
                    ff.Select
                    Selection.Font.Bold = True          'FED -do.-
                    findKoordinatTekster vTekst, lTekst
                    T22 = T22 & vTekst & " (" & lTekst & ")" + vbCr + vbCr
                   
                    antalM = antalM + 1
                Else
                    If ff.Range.Text = "L" Then
                        antalL = antalL + 1
                    End If
                End If
            End If
        End If
    Next
   
Rem Gå til slutningen af dokumentet
    Selection.EndKey Unit:=wdStory
    Selection.Font.Size = 10
   
    If antalH > 0 Then
        Selection.TypeText Text:=T31
        Selection.Font.Bold = True
        Selection.TypeText Text:=T32
        Selection.Font.Bold = False
        Selection.TypeText Text:=T33
        Selection.TypeParagraph
        Selection.TypeParagraph
    End If
   
    If antalM > 0 Then
        Selection.TypeText Text:=T21
        Selection.Font.Bold = True
        Selection.TypeText Text:=T22
        Selection.Font.Bold = False
       
        Selection.TypeParagraph
        Selection.TypeParagraph
    End If
End Sub
Private Sub findKoordinatTekster(vTekst, lTekst)
Dim kol As Integer, ræk As Integer, cc As String
    With ActiveDocument.Tables(2)
    For ræk = 3 To .Rows.Count
        .Cell(ræk, 2).Select
       
        For kol = 2 To 12
            Selection.MoveRight Unit:=wdCell
            a = Selection.Range.Text
            If Selection.Font.Bold > 0 Then
                vTekst = .Cell(ræk, 2).Range.Text
                vTekst = Left(vTekst, Len(vTekst) - 2)
               
                lTekst = LCase(Replace(.Cell(1, kol + 1).Range.Text, vbCr, ""))
                lTekst = UCase(Left(lTekst, 1)) & Mid(lTekst, 2, Len(lTekst) - 2)
                Selection.Font.Bold = 0
                Exit Sub
                Stop
            End If
        Next kol
    Next ræk
    End With
End Sub

Til supertekst

Jeg har testet dit forslag.
Det fungerer fint.

Vil du svar, så du kan belønnes

Svar er lagt i #4

tak for hjælpen

Det var så lidt. Hvis det var meningen at jeg skulle have point - så fik jeg dem ikke. Du tog dem selv.

Jeg går ud fra det skyldes begynderproblemer.