В типизированном файле записаны названия городов и их численность, перевести с VPF на VBA

@Snuff93 · Регистрация: 18.01.2012

Author24 — интернет-сервис помощи студентам

В типизированном файле записаны названия городов и их численность. Увеличить численность каждого города на 5% (Количество жителей всегда целое число)

есть код на VFP его необходимо доработать и перевести в VBA

VB.NET

wrd=createobject("word.application")
wrd.visible=.t.
wrd.documents.add
a=1500000
b=2000000
c=8000000
d=545000
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(1).range
.text="Калинингад -"+ALLTRIM(STR(a))+" человек"
.font.size=14
ENDWITH
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(2).range
.text="Новгород -"+ALLTRIM(STR(b))+" человек"
.font.size=14
ENDWITH
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(3).range
.text="Москва-"+ALLTRIM(STR(c))+" человек"
.font.size=14
ENDWITH
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(4).range
.text="Барнаул -"+ALLTRIM(STR(d))+" человек"
.font.size=14
ENDWITH
a1=a+(a/100)*5
b1=b+(b/100)*5
c1=c+(c/100)*5
d1=d+(d/100)*5
 
 
wrd=CREATEOBJECT("word.application")
wrd.Visible = .T.
wrd.documents.add
wrd.documents(1).paragraphs.add
wrd.documents(1).paragraphs.add
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(1).range
.text="Калинингад -"+ALLTRIM(STR(a1))+" человек"
.font.size=14
ENDWITH
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(2).range
.text="Новгород -"+ALLTRIM(STR(b1))+" человек"
.font.size=14
ENDWITH
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(3).range
.text="Москва-"+ALLTRIM(STR(c1))+" человек"
.font.size=14
ENDWITH
wrd.documents(1).paragraphs.add
with wrd.documents(1).paragraphs(4).range
.text="Барнаул -"+ALLTRIM(STR(d1))+" человек"
.font.size=14
ENDWITH

@Busine2012 · 18.01.2012, 13:47

Visual Basic

Sub Процедура1()
    Dim a As Long, a1 As Long
    Dim b As Long, b1 As Long
    Dim c As Long, c1 As Long
    Dim d As Long, d1 As Long
    a = 1500000
    b = 2000000
    c = 8000000
    d = 545000
    a1 = a + (a / 100) * 5
    b1 = b + (b / 100) * 5
    c1 = c + (c / 100) * 5
    d1 = d + (d / 100) * 5
    ActiveDocument.Range.Text = ""
    With ActiveDocument.Paragraphs(1).Range
        .Text = "Калинингад - " + CStr(a) + " человек"
        .Font.Size = 14
    End With
    ActiveDocument.Paragraphs.Add
    With ActiveDocument.Paragraphs(2).Range
        .Text = "Новгород - " + CStr(b) + " человек"
        .Font.Size = 14
    End With
    ActiveDocument.Paragraphs.Add
    With ActiveDocument.Paragraphs(3).Range
        .Text = "Москва - " + CStr(c) + " человек"
        .Font.Size = 14
    End With
    ActiveDocument.Paragraphs.Add
    With ActiveDocument.Paragraphs(4).Range
        .Text = "Барнаул - " + CStr(d) + " человек"
        .Font.Size = 14
    End With
    
    ActiveDocument.Range.Text = ""
    With ActiveDocument.Paragraphs(1).Range
        .Text = "Калинингад - " + CStr(a1) + " человек"
        .Font.Size = 14
    End With
    ActiveDocument.Paragraphs.Add
    With ActiveDocument.Paragraphs(2).Range
        .Text = "Новгород - " + CStr(b1) + " человек"
        .Font.Size = 14
    End With
    ActiveDocument.Paragraphs.Add
    With ActiveDocument.Paragraphs(3).Range
        .Text = "Москва - " + CStr(c1) + " человек"
        .Font.Size = 14
    End With
    ActiveDocument.Paragraphs.Add
    With ActiveDocument.Paragraphs(4).Range
        .Text = "Барнаул - " + CStr(d1) + " человек"
        .Font.Size = 14
    End With
End Sub

@Snuff93 · 18.01.2012, 14:17 **[ТС]**

Спасибо

@Snuff93 0 / 0 / 0 Регистрация: 18.01.2012 Сообщений: 6
	18.01.2012, 14:17 [ТС]	3
	Спасибо 0