Макрос Word в Excel - Невозможно транспонировать - PullRequest
Новая
       12

Макрос Word в Excel - Невозможно транспонировать

0 голосов
/ 12 марта 2019

Я работаю над созданием макроса, который берет информацию из Word и открывает ее в новом документе Excel.Это макрос Word, который начинается в Word. 

Sub Exportwordtoexcel()
Dim wordDoc As Object
Dim oXL As Excel.Application
Dim DocTarget As Word.Document
Dim Target As Excel.Workbook
Dim tSheet As Excel.Worksheet

Set wordDoc = GetObject(, "word.application")
wordDoc.Selection.WholeStory
Selection.Copy

On Error Resume Next
Set oXL = GetObject(, "Excel.Application")

If Err Then
ExcelWasNotRunning = True
Set oXL = New Excel.Application
End If

oXL.Visible = True

Set Target = oXL.Workbooks.Add
Set tSheet = Target.Sheets(1)
tSheet.Paste

End Sub

Когда я запускаю этот макрос, он помещает мой заголовок в A1, что я и хочу.Затем он поместит мой первый абзац в A2, который также, что я хочу.К сожалению, следующий абзац помещается в A3, когда я хочу вставить его в B2.Правильный поток выглядит следующим образом:

  • Заголовок - A1
  • Пункт 1 - A2
  • Пункт 2 - B2
  • Пункт 3 - A3
  • Абзац 4 - B3

и т. Д. Для стольких абзацев, сколько я использую ....

Я не уверен, что делаюнеправильно.Любая помощь будет принята с благодарностью,

...