Am cautat si am gasit ceva dar esste in excel si nu stiu cum sa transpun in VBA Word 2010(adunare conditionata)
Am un fisier cu un text(este atasat)
Caut in el textele cu urmatorul cod:
Cod: Selectaţi tot
Sub SedintaTotala()
Dim iCount As Long
Dim strSearch As String
Dim denTmp0 As String
Dim denTmp1 As String
Dim denTmp2 As String
Dim denTmp3 As String
Dim denTmp4 As String
Dim denTmp5 As String
Dim denTmp6 As String
Selection.HomeKey Unit:=wdStory
strSearch = " SRL"
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp0 = "Nr. SRL-uri = " & iCount
Debug.Print denTmp0
Selection.HomeKey Unit:=wdStory
End If
''''''''''''''
Selection.HomeKey Unit:=wdStory
strSearch = " SNC"
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp1 = "Nr. SNC-uri = " & iCount
Debug.Print denTmp1
Selection.HomeKey Unit:=wdStory
End If
''''''''''''''
Selection.HomeKey Unit:=wdStory
strSearch = " SA"
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp2 = "Nr. SA-uri = " & iCount
Debug.Print denTmp2
Selection.HomeKey Unit:=wdStory
End If
''''''''''''''
Selection.HomeKey Unit:=wdStory
strSearch = " SCM"
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp3 = "Nr. SCM-uri = " & iCount
Debug.Print denTmp3
Selection.HomeKey Unit:=wdStory
End If
''''''''''''''
Selection.HomeKey Unit:=wdStory
strSearch = "COOPERATIVA AGRICOLA"
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp4 = "Nr. COOPERATIVA AGRICOLA = " & iCount
Debug.Print denTmp4
Selection.HomeKey Unit:=wdStory
End If
''''''''''''''
Selection.HomeKey Unit:=wdStory
strSearch = "PERSOAN"
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp5 = "PERSOANA FIZICA AUTORIZATA = " & iCount
Debug.Print denTmp5
Selection.HomeKey Unit:=wdStory
End If
''''''''''''''''''''''''''''
Selection.HomeKey Unit:=wdStory
strSearch = "ÎNTREPRINDERE "
iCount = 0
If Application.Documents.Count >= 1 Then
With ActiveDocument.Content.Find
.Text = strSearch
.Format = False
.Wrap = wdFindStop
Do While .Execute
iCount = iCount + 1
Loop
End With
denTmp6 = "ÎNTREPRINDERE INDIVIDUALA + FAMILIALA = " & iCount
Debug.Print denTmp6
Selection.EndKey Unit:=wdStory
End If
''''''''''''''''''''''''''''
'Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
Selection.TypeText Text:=Chr(13) & Chr(13)
If denTmp0 <> "Nr. SRL-uri = 0" Then
Selection.TypeText Text:=denTmp0 & Chr(13)
End If
If denTmp1 <> "Nr. SNC-uri = 0" Then
Selection.TypeText Text:=denTmp1 & Chr(13)
End If
If denTmp2 <> "Nr. SA-uri = 0" Then
Selection.TypeText Text:=denTmp2 & Chr(13)
End If
If denTmp3 <> "Nr. SCM-uri = 0" Then
Selection.TypeText Text:=denTmp3 & Chr(13)
End If
If denTmp4 <> "Nr. COOPERATIVA AGRICOLA = 0" Then
Selection.TypeText Text:=denTmp4 & Chr(13)
End If
If denTmp5 <> "PERSOANA FIZICA AUTORIZATA = 0" Then
Selection.TypeText Text:=denTmp5 & Chr(13)
End If
If denTmp6 <> "ÎNTREPRINDERE INDIVIDUALA + FAMILIALA = 0" Then
Selection.TypeText Text:=denTmp6 & Chr(13)
End If
Selection.TypeText Text:=Chr(13) & "--------------------------" & Chr(13)
Call TipCerere
End Sub
Function TipCerere()
Dim x, Response
Dim y As Integer
Dim denTmp0 As String
Dim denTmp1 As String
Dim denTmp2 As String
Dim denTmp3 As String
Dim denTmp4 As String
Dim denTmp5 As String
Dim denTmp6 As String
Dim denTmp7 As String
Dim denTmp8 As String
Dim denTmp9 As String
Dim denTmp10 As String
Dim denTmp11 As String
Dim denTmp12 As String
Dim denTmp13 As String
Dim denTmp14 As String
Dim denTmp15 As String
Dim denTmp16 As String
Dim denTmp17 As String
Dim denTmp18 As String
Dim denTmp19 As String
Dim denTmp20 As String
Dim denTmp21 As String
Dim denTmp22 As String
Dim denTmp23 As String
Dim denTmp24 As String
Dim denTmp25 As String
Dim denTmp26 As String
Dim denTmp27 As String
Dim denTmp28 As String
Dim denTmp29 As String
Dim denTmp30 As String
Dim denTmp31 As String
Dim denTmp32 As String
Dim denTmp33 As String
Dim denTmp34 As String
Dim denTmp35 As String
Dim denTmp36 As String
x = "Anulare rezervare"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp0 = x & " = " & y
Debug.Print denTmp0
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Anulare rezervare emblem" & ChrW(259)
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp1 = x & " = " & y
Debug.Print denTmp1
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "CCFIL"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp2 = x & " = " & y
Debug.Print denTmp2
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere cale de atac"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp3 = x & " = " & y
Debug.Print denTmp3
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de audien" & ChrW(355) & ChrW(259) & " public" & ChrW(259)
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp4 = x & " = " & y
Debug.Print denTmp4
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de completare/retragere acte"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp5 = x & " = " & y
Debug.Print denTmp5
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de depunere situatie financiar" & ChrW(259)
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp6 = x & " = " & y
Debug.Print denTmp6
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de depunere-mentionare acte"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp7 = x & " = " & y
Debug.Print denTmp7
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de eliberare duplicat"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp8 = x & " = " & y
Debug.Print denTmp8
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de modificare termen de solu" & ChrW(355) & "ionare"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp9 = x & " = " & y
Debug.Print denTmp9
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de notific" & ChrW(259) & "ri activit" & ChrW(259) & ChrW(355) & "i la sedii"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp10 = x & " = " & y
Debug.Print denTmp10
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de preschimbare certificate"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp11 = x & " = " & y
Debug.Print denTmp11
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de renuntare"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp12 = x & " = " & y
Debug.Print denTmp12
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere de servicii de asisten" & ChrW(355) & ChrW(259)
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp13 = x & " = " & y
Debug.Print denTmp13
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere numire expert"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp14 = x & " = " & y
Debug.Print denTmp14
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Cerere verificare sedii"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp15 = x & " = " & y
Debug.Print denTmp15
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Concordat preventive"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp16 = x & " = " & y
Debug.Print denTmp16
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Eliberare informa" & ChrW(355) & "ii"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp17 = x & " = " & y
Debug.Print denTmp17
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Eliberare inscrisuri bulk"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp18 = x & " = " & y
Debug.Print denTmp18
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Eliberare înscrisuri"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp19 = x & " = " & y
Debug.Print denTmp19
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Erori materiale"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp20 = x & " = " & y
Debug.Print denTmp20
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Men" & ChrW(355) & "iune"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp21 = x & " = " & y
Debug.Print denTmp21
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Men" & ChrW(355) & "iune de denominare"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp22 = x & " = " & y
Debug.Print denTmp22
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Nota interna"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp23 = x & " = " & y
Debug.Print denTmp23
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Oficiu"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp24 = x & " = " & y
Debug.Print denTmp24
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Prelungire rezervare"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp25 = x & " = " & y
Debug.Print denTmp25
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Prelungire rezervare emblem" & ChrW(259)
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp26 = x & " = " & y
Debug.Print denTmp26
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Preschimbare obiecte de activitate"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp27 = x & " = " & y
Debug.Print denTmp27
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Procedura de insolven" & ChrW(355) & ChrW(259)
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp28 = x & " = " & y
Debug.Print denTmp28
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Prospecte de emisiuni"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp29 = x & " = " & y
Debug.Print denTmp29
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Radiere firma"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp30 = x & " = " & y
Debug.Print denTmp30
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Radiere men" & ChrW(355) & "iune"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp31 = x & " = " & y
Debug.Print denTmp31
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Radierea unei radieri"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp32 = x & " = " & y
Debug.Print denTmp32
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Rezervare Emblema"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp33 = x & " = " & y
Debug.Print denTmp33
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Rezervare denumire"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp34 = x & " = " & y
Debug.Print denTmp34
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Verificare unicitate asociat"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp35 = x & " = " & y
Debug.Print denTmp35
Selection.HomeKey Unit:=wdStory
''''''''''''''''''''
x = "Înmatriculare"
y = 0
With ActiveDocument.Content.Find
Do While .Execute(findText:=x, Forward:=True, Format:=True, _
MatchWildcards:=True) = True
y = y + 1
Loop
End With
denTmp36 = x & " = " & y
Debug.Print denTmp0
Selection.EndKey Unit:=wdStory
''''''''''''''''''''
'If denTmp0 <> "Anulare rezervare = 0" Then
' Selection.TypeText Text:=denTmp0 & Chr(13)
' End If
If denTmp1 <> "Anulare rezervare emblem" & ChrW(259) & " = 0" Then
Selection.TypeText Text:=denTmp1 & Chr(13)
End If
If denTmp2 <> "CCFIL = 0" Then
Selection.TypeText Text:=denTmp2 & Chr(13)
End If
If denTmp3 <> "Cerere cale de atac = 0" Then
Selection.TypeText Text:=denTmp3 & Chr(13)
End If
If denTmp4 <> "Cerere de audien" & ChrW(355) & ChrW(259) & " public" & ChrW(259) & " = 0" Then
Selection.TypeText Text:=denTmp4 & Chr(13)
End If
If denTmp5 <> "Cerere de completare/retragere acte = 0" Then
Selection.TypeText Text:=denTmp5 & Chr(13)
End If
If denTmp6 <> "Cerere de depunere situatie financiar" & ChrW(259) & " = 0" Then
Selection.TypeText Text:=denTmp6 & Chr(13)
End If
If denTmp7 <> "Cerere de depunere-mentionare acte = 0" Then
Selection.TypeText Text:=denTmp7 & Chr(13)
End If
If denTmp8 <> "Cerere de eliberare duplicat = 0" Then
Selection.TypeText Text:=denTmp8 & Chr(13)
End If
If denTmp9 <> "Cerere de modificare termen de solu" & ChrW(355) & "ionare = 0" Then
Selection.TypeText Text:=denTmp9 & Chr(13)
End If
If denTmp10 <> "Cerere de notific" & ChrW(259) & "ri activit" & ChrW(259) & ChrW(355) & "i la sedii = 0" Then
Selection.TypeText Text:=denTmp10 & Chr(13)
End If
If denTmp11 <> "Cerere de preschimbare certificate = 0" Then
Selection.TypeText Text:=denTmp11 & Chr(13)
End If
If denTmp12 <> "Cerere de renuntare = 0" Then
Selection.TypeText Text:=denTmp12 & Chr(13)
End If
If denTmp13 <> "Cerere de servicii de asisten" & ChrW(355) & ChrW(259) & " = 0" Then
Selection.TypeText Text:=denTmp13 & Chr(13)
End If
If denTmp14 <> "Cerere numire expert = 0" Then
Selection.TypeText Text:=denTmp14 & Chr(13)
End If
If denTmp15 <> "Cerere verificare sedii = 0" Then
Selection.TypeText Text:=denTmp15 & Chr(13)
End If
If denTmp16 <> "Concordat preventive = 0" Then
Selection.TypeText Text:=denTmp16 & Chr(13)
End If
If denTmp17 <> "Eliberare informa" & ChrW(355) & "ii = 0" Then
Selection.TypeText Text:=denTmp17 & Chr(13)
End If
If denTmp18 <> "Eliberare inscrisuri bulk = 0" Then
Selection.TypeText Text:=denTmp18 & Chr(13)
End If
If denTmp19 <> "Eliberare înscrisuri = 0" Then
Selection.TypeText Text:=denTmp19 & Chr(13)
End If
If denTmp20 <> "Erori materiale = 0" Then
Selection.TypeText Text:=denTmp20 & Chr(13)
End If
If denTmp21 <> "Men" & ChrW(355) & "iune = 0" Then
Selection.TypeText Text:=denTmp21 & Chr(13)
End If
'If denTmp22 <> "Men" & ChrW(355) & "iune de denominare = 0" Then
' Selection.TypeText Text:=denTmp22 & Chr(13)
' End If
If denTmp23 <> "Nota interna = 0" Then
Selection.TypeText Text:=denTmp23 & Chr(13)
End If
If denTmp24 <> "Oficiu = 0" Then
Selection.TypeText Text:=denTmp24 & Chr(13)
End If
'If denTmp25 <> "Prelungire rezervare = 0" Then
' Selection.TypeText Text:=denTmp25 & Chr(13)
' End If
If denTmp26 <> "Prelungire rezervare emblem" & ChrW(259) & " = 0" Then
Selection.TypeText Text:=denTmp26 & Chr(13)
End If
If denTmp27 <> "Preschimbare obiecte de activitate = 0" Then
Selection.TypeText Text:=denTmp27 & Chr(13)
End If
If denTmp28 <> "Procedura de insolven" & ChrW(355) & ChrW(259) & " = 0" Then
Selection.TypeText Text:=denTmp28 & Chr(13)
End If
If denTmp29 <> "Prospecte de emisiuni = 0" Then
Selection.TypeText Text:=denTmp29 & Chr(13)
End If
If denTmp30 <> "Radiere firma = 0" Then
Selection.TypeText Text:=denTmp30 & Chr(13)
End If
If denTmp31 <> "Radiere men" & ChrW(355) & "iune = 0" Then
Selection.TypeText Text:=denTmp31 & Chr(13)
End If
If denTmp32 <> "Radierea unei radieri = 0" Then
Selection.TypeText Text:=denTmp32 & Chr(13)
End If
If denTmp33 <> "Rezervare Emblema = 0" Then
Selection.TypeText Text:=denTmp33 & Chr(13)
End If
If denTmp34 <> "Rezervare denumire = 0" Then
Selection.TypeText Text:=denTmp34 & Chr(13)
End If
If denTmp35 <> "Verificare unicitate asociat = 0" Then
Selection.TypeText Text:=denTmp35 & Chr(13)
End If
If denTmp36 <> "Înmatriculare = 0" Then
Selection.TypeText Text:=denTmp36 & Chr(13)
End If
Selection.TypeText Text:=Chr(13) & "--------------------------" & Chr(13)
End Function
Nr. SRL-uri = 13
Nr. SA-uri = 6
Nr. SCM-uri = 10
Nr. COOPERATIVA AGRICOLA = 3
PERSOANA FIZICA AUTORIZATA = 2
ÎNTREPRINDERE INDIVIDUALA + FAMILIALA = 5
--------------------------
Procedura de insolvenţă = 2
--------------------------
Cum fac sa-mi afiseze totalul T1 compus din SRL+SA+SCM+Cooperativa Agricola - Procedura de insolvenţă
T1= 30
si un alt total T2 compus din:
persoana fizica +intreprindere individuala+familiala
T2=7
Va multumesc