Пример программирования в Power Point на Visual Basic for Application
Иногда рисуя большую схему, сначала пронумеруешь, а потом понимаешь, что забыл вставить какой-нибудь блок с номером в середине списка. Вот код, который облегчает труд:)
Sub Change()
Dim foundText As Object
Dim oTmpRng As TextRange
For i = 66 To 24 Step -1 ' номера текстовых полей, которые надо менять
For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set oTxtRng = shp.TextFrame.TextRange
Set oTmpRng = oTxtRng.Replace(FindWhat:=CStr(i), _
Replacewhat:=CStr(i + 2), WholeWords:=False)
End If
Next
Next
Next i
End Sub
Конструктор тестов из Экселя в Ворд (на VBA)
Макрос VBA из Excel в Access
Макрос VBA из RSS-ленты в Access
Макрос VBA из текстового файла в Access
Примеры макросов работы с Visio из под Access
|
