1

Я хочу сделать что-то вроде следующего:

1. A question           ...............     ...............
2. Another question     ...............     ...............
3. A third question     ...............     ...............

Другими словами, я хочу выложить ряд вопросов в виде таблицы с точками лидера, идущими от начала до конца определенных ячеек. Я хочу избежать ручной вставки точек (используя вместо этого решение, такое как вкладки лидеров), и я также хочу избегать выполнения большой измерительной работы, которая должна повторяться, если таблица изменяется, или если я добавляю варианты таблицы с различным количеством столбцов. Возможно ли это с помощью Microsoft Word 2007?

Относительно примечания: я все еще выбираю приложение макета / обработки текста, которое будет использоваться после замены моего старого. Разве такого рода вещи легче реализовать с помощью Adobe InDesign или любого другого приложения?

3 ответа3

0

Для этого вы можете создать таблицу с тремя столбцами и столько строк, сколько вам нужно. Вы можете удалить границы так, чтобы они выглядели так, как вы хотели бы, щелкнув правой кнопкой мыши по таблице, выбрав Table Properties... и на вкладке Table выберите кнопку Borders and Shading... Это вызовет новый диалог. На вкладке « Borders » выберите параметр « None .

Для «..........» вы можете вручную ввести строку «.» длина, которая вам нравится, и затем вы можете применить ту же строку ко всем ячейкам в столбцах B & C, выделив несколько столбцов и вставив их.

0

Нет способа сделать это с помощью графического интерфейса Word.

Вот макрос, который автоматически заполнит все пустые ячейки в документе лидером табуляции, который точно заполнит ячейку.

Sub FillCellsWithTabLeader()
'
' Fill cells with tab leader Macro
'
'

For Each tbl In ActiveDocument.Tables
    FillCells (tbl)
Next tbl

End Sub

Function FillCells(tbl)

    For Each acell In tbl.Cells

        For Each ntbl In acell.Tables
            FillCells (ntbl)
        Next ntbl

        acell.Select
        Set rngtable = acell.Range
        rngtable.MoveEnd Unit:=wdCharacter, Count:=-1
        If rngtable.Text = "" Then

            Selection.ParagraphFormat.TabStops.Add Position:=acell.Width - (acell.LeftPadding + acell.RightPadding), _
                Alignment:=wdAlignTabLeft, leader:=wdTabLeaderDots
            Selection.TypeText Text:=vbTab
        End If
    Next acell
End Function

Разместите свой документ, затем сделайте главную резервную копию перед применением этого макроса. Затем, если вам нужно внести изменения, просто используйте мастер для создания новой копии и снова запустите макрос.

Чтобы использовать этот макрос код:

  1. Выберите «Файл»> «Параметры Word».
  2. Проверьте «Показать вкладку разработчика на ленте»
  3. Перейдите на вкладку «Разработчик» и нажмите «Макросы».
  4. Введите имя «FillCellsWithTabLeader»
  5. Нажмите «Создать»
  6. Скопируйте и вставьте этот код в предварительно сгенерированный код заглушки.
  7. Закройте окно VBA.
  8. Нажмите «Макросы», выберите «FillCellsWithTabLeader» и «Выполнить», чтобы запустить код.
0

Хотя я не полностью прочитал ответ АКФ, мой ответ может быть идентичным по своему характеру, за исключением более тонкого момента, когда вы фактически используете ограничения таблиц в свою пользу.

Мой конечный результат следующий:

Конечный результат

Процесс следующий:

  1. Создайте таблицу так, чтобы у вас был столбец для каждого текстового элемента (например, вопросов), лидеров и свободного пространства между ними.
  2. Выберите всю таблицу, а затем удалите все ограничения.
  3. Выберите ячейки, для которых вы хотите иметь «точки-лидеры», затем щелкните правой кнопкой мыши и перейдите к "Границы и заливка".
  4. На вкладке "Границы" нажмите "Персонализация" слева.
  5. Выберите пунктирную линию (2-й) и ширину линии как 1 1/2 пункта.
  6. В расположении ячейки выберите центр и нижние горизонтальные пределы. Подтвердить.

Вы должны получить аналогичный результат для моего. AFAIK этот диалог существует даже в более ранних версиях Word.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .