Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Динамическое создание таблицы в MS Word

Автор: wdeb 13.5.2008, 11:29

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

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

Автор: bilya 15.5.2008, 14:09

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

Автор: Staruha 15.5.2008, 16:48

Код


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

End Sub

и форматируй

Автор: wdeb 24.5.2008, 14:09

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

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

Автор: bilya 24.5.2008, 14:48

Можно потренироваться со свойством 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

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

У меня 2003 офис.

Автор: bilya 29.5.2008, 13:44

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

Код


Selection.InlineShapes.AddPicture FileName:=myPuth

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

Автор: Staruha 2.6.2008, 10:52

Цитата

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

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