Developing.ru

В продолжение темы, есть вопросы:

1) Как програмно Поставить галку - Tools\References\Microsoft Word X.X Object Library
2) Как заставить кусок этого кода работать в ворде из эксел:

... Call wdDoc.Range.PasteExcelTable(False, False, False) 'вставляется таблица в WORD
wdApp.Activate
'Dim tableTemp As Table ' для Word
'Dim rngTemp As Range ' для Word
'With wdApp

'Set tableTemp = ActiveDocument.Tables(1)' ищет таблицу _
и трансформирует таблицу в текст с сохранением формата
'Tables(1).Rows.ConvertToText Separator:=wdSeparateByParagraphs, _
'NestedTables:=True
'.ListFormat.ApplyListTemplate _
'ListTemplate:=ListGalleries(wdBulletGallery).ListTemplates(1)
'Selection.WholeStory
'Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
'Selection.Font.Size = 12
'Selection.Font.Name = "Times New Roman"
'Selection.ParagraphFormat.LineSpacing = LinesToPoints(1)
'Selection.EscapeKey
'End With

по 1)
имхо, тема не очень простая...
для начала попробуйте ознакомится с тем, что обсуждалось (и предложенными вариантами решения)
здесь - программное подключение библиотеки
и здесь - Early binding

Благодарю
а по 2)

С уважением...
P.S.
Тема очень популярная судя по просмотрам - более 2500 за пол года. Думаю вопрос актуальный .

Добрый день... В продолжении темы.

В Ворд копирую макросом таблицу, преобразую в текст.

Всё хорошо только необходимо отформатировать пару строк.
Возникает вопрос....

Как выделить одно предложение в Word, если оно находится на 3 и 4 строке.

Данный кусок кода переходит на начало строки 3.

Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=3 ' Which:=wdGoToFirst, Count:=3

А также как выделенное предложение отформатировать по центру или справа:

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.Font.Bold = False
Selection.Font.Size = 14
Что-то запутался....
С уважением..

FullPath = 'C:\MyFolder\MyFile.Doc'
'Replace above with a file or loop of files

Selection.Copy 'Assumes you hilighted what you want copied

channelNumber = Application.DDEInitiate( _
app:="WinWord", topic:=FullPath
SendKeys "^v", False

Application.DDETerminate channelNumber

Спасибо
Я использую .Selection.ConvertToText

SendKeys "^v", False - от имитации вставки как с клавиатуры отказался макрос не удобный получается

Application.DDETerminate channelNumber -буду пробовать. Спасибо...

Не подходит...

нужно имено через .Selection.GoTo What:= ??? - Предложение в 4 и 3 строки от начала документа
С уважением...

Разобрался...

Код: Выделить всё

 Sub еее ()
В экселе бла-бла...
Dim ...  As ...

Range(.....). copy или как у вас

Создали новый документ  Ворд, активировали и начинаем в нём работать:

With objWord

'из эксель вставили текст, например, в RTF - однако  в экселе было красивее
.............

'Тогда форматнём весь текст 

.Selection.WholeStory
    .Selection.Font.Name = "Times New Roman"
       .Selection.Font.Size = 10
       .Selection.ParagraphFormat.LineSpacing = 15
       .Selection.ParagraphFormat.Alignment = 3

'А  как быть со строками:
With .ActiveDocument.Paragraphs(1).Range
         .ParagraphFormat.Alignment = 2  'справа
         .Font.Bold = True
         .Font.Size = 12
         .InsertParagraphAfter
         .InsertParagraphAfter
    End With

       With .ActiveDocument.Paragraphs(4).Range
        .ParagraphFormat.Alignment = 1  'по центру
        .Font.Bold = True
        .Font.Size = 12
        .InsertParagraphAfter
       .InsertParagraphAfter
       End With
' Далее не знаем номер параграфа, но знаем какое предложение или фраза, например "Расчёт платы".

   With Selection
      
      With  Find
         .ClearFormatting
          .Text =  "Расчёт платы"
         .Execute
      End With

'.expand unit:=3 -также возможно использовать
'1 - выделит "Р";
'2 - выделит "Расчёт"; 3 - Выделит "Расчет платы"
'4 и 5 - Выделит "Расчет платы" и далее все предложения.
'6 -все параграфы
     
  .ParagraphFormat.Alignment = wdAlignParagraphCenter
       .Font.Size = 12
       .Font.Bold = wdToggle
       .InsertParagraphAfter
       .EndOf

   End With

End With

End Sub

В принципе не трудно, если есть примеры или т.п. Как макрос в 2007 сработает не знаю...
С уважением...
P.s
Огромное спасибо VictorM за помощь в освоении взаимосвязи приложений MS Office.

http://orlovs.pp.ru/vbaan.php - полезное о Ворде...

adult amateur pic nude busty amateur girls
sexcams von amateur en chinese girls amateur
free amateur squirting vids cute amateur teen sex
homemade recumbent trike free emo homemade anal
amateur girls jerking guys car group insurance motor private

private couple fulfilling sex video

hentai gey
ff hentai
dragonball hentai image z
free amateur girls videos

amateur blowjob on her knees
porn videos long amateur free young
amateur flatchested redhead
amateur american porn
hige amateur boobs
sexy homemade devl costume
free amateur ass galleries
topheavyamateurs fuck
homemade lowfat low cal salad dressing
homemade amature swinger party
amateur live sex video
homemade chunky peanut butter
amateur girls hot kissing
photo sexe amateur gratuit sans connexion
amateur wife huge cock surprise
private fuck ma ass
homemade facial movies
amateur sex in the water videos
amateurcanada com gorgeous amateur canadian girls
private sex instruction for couples
homemade sex webcam
video sexe amateur free
flash video amateur sex
reality amateur submitted porn videos
homemade asshole hat
amateur drunk girl on girl
upload video homemade porn
easy homemade fluffy butter biscuits
homemade penis enlarge devices
adult homemade movie
young teen amateur fuck pics
hot amateur girls xxx
amateur russian teen
amateur voyeur cam
amateur milf dp
amateur photo porno gratuite
private ebony companion
wife amateur hardcore
amateur filipina sexy
homemade sex video maine
amateur car sex photos
homemade peanut butter fudge recipes
free adult homemade 69er thumbs
daily sex vids homemade brown
amateur stupid drunk girl

http://dragon-ark.sakura.ne.jp/chara/bbs/

extatic babe having sex
miwa oshiro nude
deelishis nude pics
xxx tube venezuela
amateur nude photo contest
busty amateur bikinis homemade sex toys
private gangbang indian amateur creampie
hailey little having sex

Привет народ сегодня я нашел хороший магазин по פרחים в Израиле.
А так же курсы פסיכומטרי

Но кроме всего этого вы можите смотреть фильмы в צפייה ישירה.

Developing.ru

Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Re: Создать отчет в Word из Excel

Новости с yandex