VPF::Динамическое создание таблицы в MS Word

wdeb

Дата 13.5.2008, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.12.2006

Репутация: нет
Всего: нет

В общем, допустим есть кнопки "+" и "-". Нажав на "+" добавится таблица на лист, "-" - удалится.
Тоже самое нужно проделать для строк и столбцов, по нажатию кнопок.

Знаю, что это глупо и это реализуемо... Но как?
Перерыл форумы, мануалы... Просто устал...

bilya

Дата 15.5.2008, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Если таблица одна - это просто. Записывайте создание таблицы при помощи макрорекордера. Потом делайте кнопку, щелкайте по ней двойным кликом и в тело образовавшегося скелета обработчика событий копируйте код по созданию таблицы. То же с остальным

Staruha

Дата 15.5.2008, 16:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Код


Private Sub CommandButton1_Click()
Cells(1, 1).Value = "1Столбец"
Cells(1, 2).Value = "2Столбец"
Cells(1, 3).Value = "3Столбец"

End Sub

и форматируй

Это сообщение отредактировал(а) Staruha - 15.5.2008, 16:49

--------------------

Возмездие настигнет

wdeb

Дата 24.5.2008, 14:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.12.2006

Репутация: нет
Всего: нет

Воспользовался советом bilya. К сожалению, staruha, твой вариант не работает...

Может еще подскажете как вызвать диалог открытия файлов? То есть нажав на кнопку вылезает диалог... выбираю картинку и она вставляется в документ.

bilya

Дата 24.5.2008, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Можно потренироваться со свойством Dialogs, наверное, но вот работающий вариант:

Код


Public Sub Load_Picture()
  Dim dlgFolderPicker As FileDialog
  Dim fdf As FileDialogFilter
  Set dlgFolderPicker = Application.FileDialog(msoFileDialogOpen)
  With dlgFolderPicker
    .AllowMultiSelect = False
    .ButtonName = "Открыть"
    If .Show = -1 Then
        myPuth = .SelectedItems(1)
    Else
        Exit Sub
    End If
  End With
  Set dlgFolderPicker = Nothing
  Selection.InlineShapes.AddPicture FileName:=myPuth
End Sub

PS Новый вопрос - новая тема, модераторы будут недовольны... ;)

wdeb

Дата 28.5.2008, 14:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 5.12.2006

Репутация: нет
Всего: нет

Слушай, плохо очень работает этот скрипт.
Допустим, файл с именем "разрезы.jpg" вставляет отлично, а вот "1.jpg" - виснет.

У меня 2003 офис.

bilya

Дата 29.5.2008, 13:44 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Пробую с именем 1.jpg - без проблем в 2003. Вот в 2007 несколько по другому, картинка не ожидая

Код


Selection.InlineShapes.AddPicture FileName:=myPuth

вставляется. На какой строке у вас виснет?

Staruha

Дата 2.6.2008, 10:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27

Цитата

Допустим, файл с именем "разрезы.jpg" вставляет отлично, а вот "1.jpg" - виснет

попробуй переменную объявить myPuth

--------------------

Возмездие настигнет

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »