Исходный код из видео

VBA функция замены

Sub zam(a As String, b As String)
Dim shape As Word.shape

For Each shape In ActiveDocument.Shapes
    If shape.TextFrame.HasText = True Then
        With shape.TextFrame.TextRange.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = a
            .Replacement.Text = b
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = False
             .Execute Replace:=wdReplaceAll
        End With
    End If
Next shape
End Sub

Главная функция замены

Sub main2()
Dim wdApp As Object
Dim wdDoc As Object
HomeDir$ = ThisWorkbook.Path
Set wdApp = CreateObject("Word.Application")
i% = 2
Do
If Cells(i%, 1).Value = "" Then Exit Do
If Cells(i%, 1).Value <> "" Then

NPP$ = Cells(i%, 1).Text
ORG$ = Cells(i%, 2).Text
FIO$ = Cells(i%, 3).Text
TABNUM$ = Cells(i%, 4).Text
PODRAZD$ = Cells(i%, 5).Text
PROFF$ = Cells(i%, 6).Text
MESTOPRIB$ = Cells(i%, 7).Text
TCELPRIB$ = Cells(i%, 8).Text
DAYS$ = Cells(i%, 9).Text

DataC$ = Date

FileCopy HomeDir$ + "\template2.doc", HomeDir$ + "\" + NPP$ + "_" + DataC$ + ".doc"
Set wdDoc = wdApp.Documents.Open(HomeDir$ + "\" + NPP$ + "_" + DataC$ + ".doc")

Call zam("&org", ORG$)
Call zam("&fio", FIO$)
Call zam("&tabnum", TABNUM$)
Call zam("&podrazd", PODRAZD$)
Call zam("&proff", PROFF$)
Call zam("&mestoprib", MESTOPRIB$)
Call zam("&tcelprib", TCELPRIB$)
Call zam("&days", DAYS$)

wdDoc.Save
wdDoc.Close

End If

i% = i% + 1
Loop
wdApp.Quit
MsgBox "Готово"

End Sub

Рекомендуем смотреть видео в полноэкранном режиме, в настойках качества выбирайте 1080 HD, не забывайте подписываться на канал в YouTube, там Вы найдете много интересного видео, которое выходит достаточно часто. Приятного просмотра!

 С уважением, авторы сайта Компьютерапия

Понравилось? Поделись этим видео с друзьями!


Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!


Предыдущие статьи


We use cookies on our website. Some of them are essential for the operation of the site, while others help us to improve this site and the user experience (tracking cookies). You can decide for yourself whether you want to allow cookies or not. Please note that if you reject them, you may not be able to use all the functionalities of the site.

Ok