Скопируйте макрос таблицы для Microsoft Word 2007

Question

У меня есть простое требование в документе MS Office Word 2007. Мне нужен код за макросом, который копирует таблицу (отформатированную) и вставляет ее каждый раз, когда я запускаю этот макрос.

Сценарий выглядит следующим образом: - 1. Я скопирую форматированную таблицу (с 7-8 строками и 5-6 столбцами и т. Д.) И сохранит ее в макросе как кнопку или комбинацию клавиш.

1. Когда я хочу или в каком-либо конкретном месте в документе того же слова, я поместил курсор и нажал кнопку макроса (запустите наш макрос). Этот макрос должен вставить одну и ту же форматированную таблицу с таким же количеством строк, столбцов и стиля.

2.I можно запустить этот макрос несколько раз, но он должен вставлять одну и ту же таблицу каждый раз.

Надеюсь, код будет в VB.

Я знаю, как создать макрос, назначить кнопку, клавишу быстрого доступа, безопасность и т. Д. Мне нужен только код VB (или любой код) за макросом, который может быть решением для вышеупомянутого сценария.

Извините за длинный пост, но я сделал свое требование довольно ясным.

Спасибо заранее ... Приветствия! Shilpa Silk

Answer 1

Использование макрорекордера. Вызовите рекордер, затем выполните шаги для копирования и вставки таблицы, затем вы можете отредактировать его, чтобы увидеть фактические инструкции макроса. Но обратите внимание, что макрорекордер не сохраняет содержимое буфера обмена, поэтому разметка, которая создает таблицу, не будет сохранена с помощью макроса. Чтобы заставить его работать, таблица должна существовать до запуска макроса.

Вот один из возможных способов:

Перед тем, как начать запись следующие условия должны быть соблюдены:

1. Ваш стол должен быть в начале документа после знака абзаца
2. Ваш курсор должен быть , где вы хотите разместить новый стол

Затем включите запись, и выполните следующие действия:

1. Тип _table_goes_here_ где курсор находится
2. Нажмите Ctrl + Home, чтобы перейти к началу документа (только перед главным столом
3. Удерживая Shift и нажмите down arrow достаточно ключевые раз, пока не будет выбрана вся таблица,
4. Нажмите Ctrl + C, чтобы скопировать таблицу
5. Нажмите Ctrl + F, чтобы открыть диалог поиска
6. Введите текст, замещающий в ВНайтиполь (_table_goes_here_) и нажмите кнопку Найти следующий
7. Когда вы текст-заполнитель найдены и выбраны, нажмите Esc клавиша, чтобы закрыть диалог поиска
8. Нажмите Ctrl + V, чтобы вставить скопированную таблицу, которая заменит ваш текст
9. Завершение записи макроса.

Edit - Второй подход
Другой подход, чтобы начать запись макроса, а затем создать таблицу с нуля, таким образом вам не нужно предварительно существующую таблицу для макросов для работы. Когда вы сформировали и отформатировали запись на конце стола, и вы сделали все необходимые шаги, чтобы разместить ту же самую таблицу, где хотите.

Я только что проверил второй подход, и он работает отлично. Вот код, созданный магнитофоном для моего небольшого теста:

Sub MakeTable() 
' 
' MakeTable Macro 
' Macro recorded þ16þ/08þ/2010 by Majid Fouladpour 
' 
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:= _ 
     4, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ 
     wdAutoFitFixed 
    With Selection.Tables(1) 
     If .Style <> "Table Grid" Then 
      .Style = "Table Grid" 
     End If 
     .ApplyStyleHeadingRows = True 
     .ApplyStyleLastRow = True 
     .ApplyStyleFirstColumn = True 
     .ApplyStyleLastColumn = True 
    End With 
    With Selection.Tables(1) 
     .Style = "Table Columns 4" 
     .ApplyStyleHeadingRows = True 
     .ApplyStyleLastRow = True 
     .ApplyStyleFirstColumn = True 
     .ApplyStyleLastColumn = True 
    End With 
    Selection.TypeText Text:="Col one" 
    Selection.MoveRight Unit:=wdCharacter, Count:=1 
    Selection.TypeText Text:="Col two" 
    Selection.MoveRight Unit:=wdCharacter, Count:=1 
    Selection.TypeText Text:="Col three" 
    Selection.MoveRight Unit:=wdCharacter, Count:=1 
    Selection.TypeText Text:="Col four" 
    Selection.MoveDown Unit:=wdLine, Count:=1 
    Selection.MoveLeft Unit:=wdCharacter, Count:=3 
    Selection.TypeText Text:="Item 1" 
    Selection.MoveDown Unit:=wdLine, Count:=1 
    Selection.TypeText Text:="Item 2" 
    Selection.MoveDown Unit:=wdLine, Count:=1 
    Selection.TypeText Text:="Item 3" 
End Sub