Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.09.2017, 13:36   #1
Davab
Новичок
Джуниор
 
Регистрация: 11.09.2017
Сообщений: 1
По умолчанию Не работает Макрос помогите в чем ошибка

Код:
Private Sub CopyRowTo(tbl1 As Table, tbl2 As Table, r As Long)
   
    Dim rng As Range
    
      
    tbl2.Rows(2).Range.Copy
    
    Set rng = tbl1.Rows(r).Range
    rng.Collapse wdCollapseEnd
    rng.Paste
End Sub

Sub MergeMain()

    Dim Mtbl1 As Table
    Dim Mtbl2 As Table
    Dim Mr As Long
    
    Mr = 2
     
    For i = 4 To ThisDocument.Tables.Count Step 2
    Set Mtbl1 = ThisDocument.Tables(2)
    Set Mtbl2 = ThisDocument.Tables(i)

    CopyRowTo Mtbl1, Mtbl2, Mr
    Mr = Mr + 1
    Next
    
   Mr = Mr + 1

    For M = 2 To 4
        ThisDocument.Tables(2).Cell(Mr, M).Select
        Selection.Delete
        Selection.InsertFormula Formula:="=SUM(ABOVE)", NumberFormat:="#.00"
    Next
    
    ThisDocument.Tables(2).Select
    Selection.MoveDown Unit:=wdLine, Count:=1
    Selection.EndKey Unit:=wdStory, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1


End Sub
_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

Последний раз редактировалось Serge_Bliznykov; 11.09.2017 в 13:47.
Davab вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DirectX9 не работает трансформация обьектов. В чем ошибка? MaratZahidyl Gamedev - cоздание игр: Unity, OpenGL, DirectX 2 31.08.2012 14:18
в чем ошибка? программа работает но не проверяет Tolian92 Паскаль, Turbo Pascal, PascalABC.NET 0 07.12.2011 18:29
в чем ошибка? почему не работает? konica05 Общие вопросы C/C++ 2 18.01.2011 13:36
ПРограмма компилируется, но не работает, в чем ошибка. Dalokoshka Помощь студентам 16 18.10.2010 20:29
Макрос дублирует строки. в чем ошибка? transkriptsiya Microsoft Office Excel 3 20.01.2010 11:27