Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11656
Последний выпуск: 19.06.2015

Как сохранять таблицы Microsoft Office в формате HTML

Виталий Сизов

Постановка задачи

Одна из самых распространенных форм представления информации на Web-страницах — всевозможные таблицы. Особенно часто такие конструкции используются, когда требуется регулярно обновлять информацию. Поскольку таблица — элемент категории block-level, ее достаточно просто заменять, не нарушая общий дизайн страницы.

Но таблицы удобны не только для отображения информации, но и для ее хранения и обработки. Часто источником данных для Web-страниц служат классические приложения Microsoft Office — Word и Excel, обладающие мощными средствами обработки данных. В таких случаях приходится экспортировать таблицы Microsoft Office в таблицы HTML, и, естественно, возникает желание такой экспорт автоматизировать.

Стандартные средства формирования кодов HTML, имеющиеся в Microsoft Office, для профессионального применения не годятся — прежде всего из-за своей избыточности. Эти средства с определенной натяжкой еще можно использовать для первичного формирования страниц, но уж никак не для обновления существующих, хорошо отформатированных документов. В таких документах никакие элементы оформления не требуются, необходимо только воспроизводить структуру и содержание таблиц; а сохранение таких документов заново как Web-страниц средствами Microsoft Office только испортит их, опять добавив избыточные элементы форматирования, от которых с таким трудом избавляются Web-мастеры.

Уточним требования к программе, которой мы будем пользоваться для создания HTML-документов с таблицами. Пусть исходные данные — это таблицы, созданные в одном из приложений Microsoft Office. Структура таблиц может быть произвольной; допускается любое разумное объединение ячеек. Слово "разумное" в данном контексте означает, что таблица изначально была регулярной (свойство Uniform) и к ней применялись операции объединения ячеек. В этом случае таблица будет иметь эквивалентное представление в виде совокупности элементов

<TR> и <TD>
В Excel любая таблица удовлетворяет этим требованиям, а вот в Word — нет. Таблицы Word допускают перемещение границ ячеек в отдельных строках, что в HTML реализуется только в виде отдельной таблицы. Это следует четко осознавать и по возможности в Word не использовать. Как поступать со случайно деструктурированными таблицами Word, будет показано ниже.

В ячейках исходной таблицы могут быть любые элементы, предусмотренные HTML: текст и inline-элементы, с соответствующими тэгами, включая вызовы функций JavaScript.

Результат преобразования — код HTML — необходимо поместить в произвольно заданные места существующего HTML-документа (прототипа). Если исходная таблица велика, что имеет место при работе со списками, целесообразно предусмотреть разбиение таких таблиц на разделы. Чтобы уж совсем усложнить задачу, потребуем пакетной обработки множества различных таблиц.

Экспорт отдельной таблицы Excel

Первый шаг в решении поставленной задачи — разработка процедуры, выполняющей экспорт отдельной таблицы. В качестве источника данных выберем таблицу, помещенную на листе Excel. Таблицы Excel гораздо предпочтительнее таблиц Word и не только потому, что имеют множество встроенных функций. Таблицы Word очень легко незаметно для пользователя деструктурировать: для этого достаточно сдвинуть боковые границы отдельных ячеек по отношению к границам столбцов. В этом случае возникает проблема, как интерпретировать смещенные ячейки. Стандартные процедуры Word при экспорте всегда разбивают такие конструкции на отдельные таблицы, даже если визуально это смещение в документе Word незаметно. Альтернативное решение, "исправляющее" таблицы Word, мы приведем ниже. В таблицах же Excel подобное невозможно. Ячейки можно объединять, но при этом границы столбцов и строк всегда остаются неизменными для всей таблицы.

Помня, что экспорт отдельной таблицы не самоцель, а лишь часть общей задачи, выберем в качестве исходных данных для процедуры объект Range, передаваемый в качестве параметра, или объект Selection. Результат преобразования — строки кода HTML — будем выводить в некий текстовый файл с помощью инструкции Print #.

Нам понадобятся строковые константы, задающие тэги HTML. В зависимости от потребностей пользователя эти константы должны содержать параметры необходимых стилей, выбранных для оформления страницы:

Const TABLE_INNER = "<table cellpadding=""3"" 
cellspacing=""3"">"
Const TR_INNER_ODD = "  <tr class=""lineOdd"">"
Const TR_INNER_EVEN = "  <tr class=""lineEven"">"
Const TD_INNER = "    <td"
Const END_TD = "    </td>"
Const END_TR = "  </tr>"
Const END_TABLE = "</table>"

Как видно из приведенного описания, для тэга

<TR>
предусмотрено два стиля, что позволит по-разному оформлять четные и нечетные строки таблицы.

Сама процедура экспорта таблицы приведена ниже. Единственную сложность в ней представляет анализ объединения ячеек. Выходной файл имеет номер 2 (номер 1 зарезервирован для входного файла — прототипа страницы).

Private Sub MakeTable(objTable As Range)
'-- Make HTML for Table<br>
  Dim objTr As Range      '-- row range
  Dim objTd As Range      '-- cell range
  Dim strTag As String    '-- tag string
  Dim intRow As Integer   '-- row number

  intRow = 0
  Print #2, TABLE_INNER
  For Each objTr In objTable.Rows
    intRow = intRow + 1
    If intRow Mod 2 = 0 Then
      Print #2, TR_INNER_EVEN '-- even row
    Else
      Print #2, TR_INNER_ODD  '-- odd row
    End If
    For Each objTd In objTr.Cells
      strTag = TD_INNER
      If objTd.MergeCells Then
        If objTd.MergeArea.Range("A1").Address = 
objTd.Address Then
          If objTd.MergeArea.Rows.Count > 1 Then
            strTag = strTag & " rowspan=""" & _
                     objTd.MergeArea.Rows.Count & """"
          End If
          If objTd.MergeArea.Columns.Count > 1 Then
            strTag = strTag & " colspan=""" & _
                     objTd.MergeArea.Columns.Count 
& """"
          End If
          strTag = strTag & ">"
          Print #2, strTag & objTd.Value & 
LTrim(END_TD)
        End If
      Else
        strTag = strTag & ">"
        Print #2, strTag & objTd.Value & LTrim(END_TD)
      End If
    Next objTd
    Print #2, END_TR
  Next objTr
  Print #2, END_TABLE
<p>
End Sub

Экспорт совокупности таблиц

Важный частный случай экспорта таблиц — экспорт списков; такие списки необходимо разделять на группы. Современный способ группировки информации — динамические окна (nuggets), допускающие свертывание и развертывание. Конструктивно nugget состоит из двух частей: заголовка с кнопкой maximize/ minimize и тела, помещенного в контейнер

<DIV>
Тело — это отдельная таблица, преобразовывать которую мы уже научились. Теперь, если на исходном листе Excel создать список и разделить его на группы, добавив строки заголовков, отличающиеся форматом или специальным признаком, можно сгенерировать совокупность nuggets. Прежде всего нам понадобятся дополнительные константы, задающие необходимые тэги.

Const TABLE_HEADER = "<table width=""100%"" 
cellpadding=""0"" _
      border=""0"" cellspacing=""0"" 
class=""nuggetHeader"">"
Const TR_HEADER = "  <tr>"
Const TD_HEADER_NAME = "    <td nowrap width=""460"" _
      class=""nuggetTitle"" valign=""center"">  _
      <span class=""nuggetTitleText"">&+VALUE+&</span>
 </td>"
Const TD_HEADER_BUTTON = "    <td nowrap _
      class=""nuggetButtonWrapper"">_
      <img id=""nToggle&+COUNT+&"" 
src=""images/blank.gif"" _
      title=""Click to maximize / minimize"" _
      onClick=""document.all.nContent&+COUNT+& _
      .style.display=document.all.nContent&+COUNT+& _
      .style.display=='none'?'':'none'; _
      if(document.images)this.src=
document.all.nContent&+COUNT+& _
      .style.display=='none'?imgMax.src:imgMin.src; _
      "" WIDTH=""17"" HEIGHT=""17""></td>"
Const DIV_BODY = "<div valign=""top"" 
id=""nContent&+COUNT+&"">"
Const TABLE_BODY_ODD = "<table width=""100%"" 
border=""0"" _
      cellpadding=""0"" cellspacing=""0"" 
class=""nuggetBodyOdd"">"
Const TABLE_BODY_EVEN = "<table width=""100%"" 
border=""0"" _
      cellpadding=""0"" cellspacing=""0"" 
class=""nuggetBodyEven"">"
Const TR_BODY = "  <tr>"
Const TD_BODY_MAIN = "    <td>"
Const END_DIV = "</div>"

Здесь необходимы некоторые пояснения. В некоторых выражениях можно заметить служебные слова VALUE и COUNT, написанные прописными буквами. Эти слова указывают место вставки переменных значений, вычисляемых по ходу обработки списка. Вставка выполняется с помощью функции замены вхождений подстроки в строковое выражение. В Visual Basic for Applications версии Office 2000 такая функция существует и называется Replace. Для совместимости с Microsoft Office 97 применяется пользовательская функция ReplaceString, выполняющая те же действия.

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

Private Sub ListLoop()
'-- Loop Across The Single Sheet
  Dim objCurrent As Range '-- current selection
  Dim objArea As Range    '-- hole list
  Dim objHeader As Range  '-- header line
  Dim objBody As Range    '-- body table
  Dim objTemp As Range    '-- work range object
  Dim strTemp As String   '-- work string
  Dim blnSkip As Boolean  '-- header not found

  Set objCurrent = Selection

  Range("A2").Activate    '-- left upper corner

  Set objArea = ActiveCell.CurrentRegion
  Set objArea = objArea.Offset(1, 0).
Resize(objArea.Rows.Count - 1, _
                objArea.Columns.Count)

  objArea.Select          '-- list without title row

  Set objBody = objArea.Offset(0, 1).Resize(1, _
                objArea.Columns.Count - 1)
  blnSkip = True

  '-- Begin
  For Each objTemp In objArea.Rows
    If objTemp.Range("A1").Font.Bold Then
      If objTemp.Range("B1").Address <> _
         objBody.Range("A1").Address Then
        objBody.Select

        '-- Nugget Body
        MakeNuggetBody gintCount, Selection, blnSkip
      End If
      Set objHeader = objTemp.Resize(1, 
objArea.Columns.Count)
      objHeader.Select
      Set objBody = objTemp.Offset(1, 1).Resize(1, _
                    objArea.Columns.Count - 1)

      '-- Nugget Header
      gintCount = gintCount + 1
      MakeNuggetHdr objHeader.Range("B1").Value, gintCount
      blnSkip = False
    Else
      If objTemp.Range("B1").Address <> _
         objBody.Range("A1").Address Then
        Set objBody = objBody.Resize(objBody.Rows.Count 
+ 1, _
                      objBody.Columns.Count)
      End If
      objBody.Select
    End If
  Next objTemp

  '-- Nugget Body Last
  MakeNuggetBody gintCount, Selection, blnSkip

  '-- End
  objCurrent.Select

End Sub

В приведенном макросе используются две вспомогательные процедуры — для формирования заголовка и тела nuggets соответственно. Эти процедуры достаточно просты и в специальных комментариях не нуждаются.

Private Sub MakeNuggetHdr(strItem As String, intItem As Integer)
'-- Make HTML for Nugget Header
  Dim strTemp As String   '-- work string

  Print #2, TABLE_HEADER
  Print #2, TR_HEADER

  '-- Insert Nugget Title
  Print #2, ReplaceString(TD_HEADER_NAME, 
"&+VALUE+&", strItem)

  '-- Insert Nugget Number
  strTemp = intItem
  Print #2, ReplaceString(TD_HEADER_BUTTON, 
"&+COUNT+&", strTemp)
  Print #2, END_TR
  Print #2, END_TABLE

End Sub


Private Sub MakeNuggetBody(intItem As Integer, _
                           objTable As Range, 
blnSkipDiv As Boolean)
'-- Make HTML for Nugget Body
  Dim strTemp As String   '-- work string

  '-- Insert Nugget Number
  If Not blnSkipDiv Then
    strTemp = intItem
    Print #2, ReplaceString(DIV_BODY, "&+COUNT+&", 
strTemp)
  End If
  If intItem Mod 2 = 0 Then
    Print #2, TABLE_BODY_EVEN   '-- even style
  Else
    Print #2, TABLE_BODY_ODD    '-- odd style
  End If
  Print #2, TR_BODY
  Print #2, TD_BODY_MAIN

  '-- Insert Simple Table Code
  MakeTable objTable

  Print #2, END_TD
  Print #2, END_TR
  Print #2, END_TABLE
  If Not blnSkipDiv Then
    Print #2, END_DIV
  End If

End Sub

Отображение кодов HTML в исходном документе

В предыдущих разделах приведены способы формирования HTML-кодов для отдельной таблицы и для списка, порождающего множество таблиц, разделенных на группы. В качестве заполнителя пространства между тэгами

<TD> и </TD>
используется свойство VALUE (тип данных VARIANT) соответствующих ячеек исходного листа Excel. Никакого анализа содержимого ячеек не проводится. Это позволяет удовлетворять требованиям универсальности. В ячейки исходных таблиц, наряду с текстом, числами и формулами, можно поместить произвольные фрагменты HTML-кода, обеспечивая тем самым любые желаемые последствия. Например, можно вставить гиперссылки с параметром target, графические элементы, указать стили или функции JavaScript.

К сожалению, за такую универсальность приходится расплачиваться совершенно неприглядным внешним видом исходного документа. Представьте себе, что в фирменном прайс-листе, в колонке со ссылкой "Buy Now!" окажется длиннющий HTML-код. Такую таблицу не то что напечатать — показать кому-либо страшно.

Естественное решение этой проблемы — заимствовать у гипертекстовых документов две формы представления информации: внешнюю, отображаемую браузером, и внутреннюю — в виде кода HTML. Конечно, вряд ли разумно строить интерпретатор для всех тэгов языка, достаточно ограничиться некоторым замещающим текстом. Строго говоря, для ячеек таблицы, наряду со свойствами VALUE, FORMULA, TEXT, следовало бы доопределить свойство HTML. Однако необходимость обеспечить ввод информации вручную диктует совсем не объектно-ориентированное решение. Это решение сводится к созданию обычной пользовательской функции, одним из параметров которой будет переменная, задающая форму вывода результата — замещающий текст, нужный для отображения ячеек при работе в Excel, или HTML-код, использующийся при экспорте. Другой параметр проектируемой функции также очевиден. Это строка — прототип кода HTML. Здесь мы воспользуемся тем же приемом с замещением, который был применен в процедурах со вставкой идентификаторов при формировании nuggets. В прототипе следует указать позиции подстановки переменных значений с помощью специальных уникальных кодов.

Чтобы сделать функцию универсальной, предусмотрим переменное число параметров, каждый из которых будет размещаться в заданных позициях строки-прототипа. В качестве специальных кодов прототипа можно использовать порядковый номер элемента в массиве параметров. Перед этим номером в прототипе необходимо поместить специальную строку — тэг, отличающий идентификатор подстановки от прочих комбинаций символов в коде HTML. Что касается строки замещения, то пусть ее роль выполняет первый элемент массива. С учетом сказанного текст новой пользовательской функции выглядит следующим образом.

Public Function InlineHTML(blnHTML As Boolean, _
                           strReplaceTag As String, _
                           strHtmlSample As String, _
                           ParamArray varItem() 
As Variant) As String
'-- Make Inline HTML Element
  Dim intI As Integer     '-- item counter
  Dim strOut As String    '-- result string
  Dim strFrom As String   '-- search string
  Dim strTo As String     '-- replace string

  strOut = ""

  '-- Check Show Mode
  If Not blnHTML Then
    '-- Show First Item As Result String
    If UBound(varItem()) > 0 Then
      strOut = varItem(0)
    End If
  Else
    '-- Show HTML Code
    strOut = strHtmlSample
    For intI = 0 To UBound(varItem())
      '-- Replace All "ReplaceTag & I" With Item(I)
      strFrom = strReplaceTag & intI + 1
      strTo = varItem(intI)
      strOut = ReplaceString(strOut, strFrom, strTo)
    Next intI
  End If
  InlineHTML = strOut

End Function

Результаты работы приведенной функции показаны на рисунке. В первой строке списка выводу подлежала строка замещения. Это состояние соответствует параметру blnHTML = 0. Во второй строке выведен весь HTML-код с произведенной подстановкой шести параметров. В этом случае blnHTML = 1. В третьей строке показана сама формула в режиме редактирования. В качестве тэга перед номером параметра в прототипе использован символ "#".

Fig.
Два варианта отображения исходных данных в таблице Excel.

К сожалению, одной этой функции недостаточно. В процессе экспорта таблиц необходимо проверять, имеется ли в текущей ячейке такая формула, а если имеется, то необходимо переключиться в режим отображения HTML, извлечь код, а затем переключиться в "нормальный" режим отображения.

Эти действия выполняет вспомогательная функция, приведенная ниже:

Private Function ReplaceValue(objCell As Range) 
As String
'-- Extract HTML Code For Current Cell
  Dim strOut As String
  Dim strOld As String

  strOut = objCell.Value

  If InStr(1, objCell.Formula, _
     "InlineHTML(0,", vbBinaryCompare) > 0 Then
    '-- Save Formula
    strOld = objCell.Formula

    '-- Update Value With HTML Code
    objCell.Formula = ReplaceString(objCell.Formula, _
                      "InlineHTML(0,", 
"InlineHTML(1,")

    '-- Extract New Value
    strOut = objCell.Value

    '-- Return Formula
    objCell.Formula = strOld
  End If
  ReplaceValue = strOut

End Function

Теперь, чтобы все функции работали вместе, необходимо в процедурах предыдущих примеров заменить в инструкциях Print # операнды получения свойств вида:

Объектная_переменная.VALUE

на функцию вида:

ReplaceValue(Объектная_переменная)

Использование прототипа Web-страницы

Приведенных выше процедур достаточно, чтобы сформировать законченные фрагменты HTML-кода. Осталось вставить их в нужное место Web-страницы. Для этого потребуется исходный HTML документ — прототип и операции ввода-вывода текстовых файлов.

Что касается прототипа, то его следует подготовить традиционными средствами, например, с помощью FrontPage, отметив специальным образом места для вставки необходимых таблиц. Как сделать такие отметки? Воспользуемся способом, применяемым в профессиональной серверной технологии PHP. В позициях, где должна будет появиться таблица, поместим тэги вида

<?php … ?>
(конечно, ради приличия, следует заменить префикс php, например, на vba). Присутствие таких тэгов в обычном HTML-документе никак не сказывается на отображении страниц любым браузером. Страницы можно спокойно проектировать и отлаживать, сообщений об ошибках не последует. Тэги php всегда остаются невидимыми. Внутри такого тэга можно поместить любое указание препроцессору, роль которого в нашем случае будет выполнять Visual Basic for Applications. Если, например, тэг
<?vba include="List1" ?>
обозначает необходимость вставки всех таблиц, расположенных на листе с именем List1 рабочей книги Excel, то, включая его в создаваемый HTML-код прототипа, можно разместить в прототипе указания по формированию кодов для таблиц или списков из различных листов и даже различных документов, созданных средствами Microsoft Office.

На этом подготовку прототипа можно считать законченной и переходить непосредственно к вводу-выводу.

Необходимо заметить, что хотя практически во всех приложениях Microsoft Office имеются стандартные диалоги открытия и сохранения файлов, для работы с файлами формата HTML удобнее пользоваться элементом управления ActiveX — Microsoft Common Dialog Control (COMDLG32.OCX). Программирование в этом случае проще, а окно диалога не содержит "лишних" возможностей.

Окончательный алгоритм работы макроса формирования HTML-документа выглядит следующим образом. Сначала выводится диалог открытия файла-прототипа для чтения. Затем выводится диалог для сохранения файла результата. Файл-прототип читается построчно и копируется в выходной файл. Процесс продолжается до тех пор, пока во входном потоке не встретится тэг вида

<?vba include="SheetName" ?>

В этом случае активизируется указанный лист и выполняется приведенная выше процедура ListLoop. Эта процедура генерирует необходимые строки в выходном потоке. Сам тэг

<?vba..>
в выходной файл не переписывается. По окончании работы ListLoop выбирается следующая строка из входного потока, которая либо просто копируется в выходной файл, либо снова инициирует экспорт информации уже из другого листа книги. Процесс повторяется до конца входного файла. Затем файлы закрываются.

Эта простенькая заключительная процедура, большую часть которой составляют операторы фиксации ошибок при открытии текстовых файлов, приведена ниже:

Public Sub DoIt()
'-- Read Sourse, Replace Include Tags, Make Target
'-- Include Tag Format:
'-- <?vba include="SheetName" ?>
'-- NOTES: Space Before ( ?>) is Binding!
  Dim strTextLine As String   '-- input line
  Dim strListName As String   '-- sheet's name
  Dim strName As String       '-- file name
  Dim strPath As String       '-- file full path
  Dim blnDone As Boolean      '-- RC Common Dialog 
Control

  '-- Show Common Dialog For Open Source
  strName = ""
  strPath = ""

  blnDone = ComDlgFile(strName, strPath, _
            "Select Source File", True)
  If blnDone Then
    On Error Resume Next
    Open strPath For Input As #1
    If Err <> 0 Then
      MsgBox Error$, vbCritical
      Exit Sub
    End If
  Else
    MsgBox "Cancel By User", vbCritical
    Exit Sub
  End If

  '-- Show Common Dialog For SaveAs Target
  strName = ""
  strPath = ""

  blnDone = ComDlgFile(strName, strPath, _
            "Target File Save As", False)
  If blnDone Then
    On Error Resume Next
    Open strPath For Output As #2
    If Err <> 0 Then
      MsgBox Error$, vbCritical
      Exit Sub
    End If
  Else
    MsgBox "Cancel By User", vbCritical
    Exit Sub
  End If

  '-- Clear Global Nuggets Counter
  gintCount = 0

  Do While Not EOF(1) '-- Цикл до конца файла.
    Line Input #1, strTextLine
    If UCase(Left(strTextLine, 15)) <> 
"<?VBA INCLUDE=""" Then
      Print #2, strTextLine
    Else
      strListName = Trim(Mid(strTextLine, 16, _
                    Len(strTextLine) - 19))
      On Error Resume Next
      Sheets(strListName).Select
      If Err <> 0 Then
        MsgBox Error$, vbCritical
        Close #1, #2
        Exit Sub
      Else
        ListLoop
      End If
    End If
  Loop
  Close #1, #2
  MsgBox strPath & " Brewed", vbInformation

End Sub

Таблицы в документах Word

Безусловно, при необходимости профессионально работать с таблицами лучше выбирать Excel. Однако на практике встречаются случаи использования таблиц в документах Word. Некоторое время назад к автору обратилась одна солидная фирма, специализирующаяся на организации обучения иностранным языкам за границей. При создании сайта у них возникла проблема с переносом накопленной информации на Web страницы. Исходная информация — а это были обширные таблицы с расписаниями курсов — содержалась в документах Word. Таблицы имели объединенные ячейки, как по столбцам, так и по строкам. Было очевидно, что с таблицами продолжительное время активно работали, в результате чего их внутренняя структура была полностью разрушена, хотя визуально и при печати таблицы выглядели вполне нормально. Неприятности начинались только при попытках копирования таблиц в другие приложения — FrontPage или Excel — и при попытках сохранять документы в формате HTML. Так, для одной-единственной таблицы Word'97 формировал HTML-документ размером 25 Кбайт; при этом страница в браузере мало напоминала оригинал в Word. Word 2000 справлялся с задачей лучше: результат преобразования больше походил на источник, зато размер HTML-файла становился просто фантастическим — более 100 Кбайт(!) Положение казалось безвыходным, так как таблиц было много, а сроки создания сайта поджимали.

Проблемы были разрешены с помощью небольшого макроса, который формировал HTML-документ размером всего 5 Кбайт, и этот документ полностью удовлетворял требованиям заказчика.

Для решения задачи был применен эвристический подход, который может оказаться весьма полезным при работе с любыми таблицами Word. Суть алгоритма такова — прежде всего определяется максимальная размерность объекта Table. Далее в оперативной памяти создается двумерный массив той же размерности, что и таблица. Этот массив инициализируется специальными значениями, обозначающими свободные ячейки:

intColMax = objTbl.Range.Information
(wdMaximumNumberOfColumns)
intRowMax = objTbl.Range.Information
(wdMaximumNumberOfRows)
ReDim strTblArray(intRowMax, intColMax)
For intRow = 1 To intRowMax
  For intCol = 1 To intColMax
    strTblArray(intRow, intCol) = FILLER
  Next intCol
Next intRow

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

For intRow = 1 To intRowMax
  For intCol = 1 To intColMax
    On Error Resume Next
    Set objCell = objTbl.Cell(intRow, intCol)
    If Err.Number = 0 Then
      objCell.Select
      strTmp = Selection.Range.Text
      strTblArray(objCell.RowIndex, _
                  objCell.ColumnIndex) = strTmp
    End If
    Err.Clear
  Next intCol
Next intRow

В результате проделанной операции исходная таблица попросту переписывается в массив. При этом таблица приводится к регулярному виду, известному как свойство Uniform = True. На первый взгляд, в приведенном фрагменте нет ничего примечательного. Но если присмотреться, то можно отметить очень любопытную деталь. Несмотря на то, что зондируется ячейка с координатами intRow и intCol, извлекаемый текст записывается в элемент массива с другими координатами! Эти координаты цели извлекаются из свойств RowIndex и ColumnIndex. Такая особенность объектной модели Word проявляется только при объединении ячеек; для таблицы Uniform координаты совпадают.

Непосредственно HTML-код генерируется уже на основе заполненного регулярного массива, построчно. Параметры ROWSPAN и COLSPAN формируются путем подсчета "пустых" ячеек справа и вниз от текущей позиции:

Print #1, tagTBLBEG

For intRow = 1 To intRowMax
  Print #1, tagTRBEG
  For intCol = 1 To intColMax
    If strTblArray(intRow, intCol) <> FILLER Then
      If intRow = 1 Then
        strTagBeg = tagTHBEG
        strTagEnd = tagTHEND
      Else
        strTagBeg = tagTDBEG
        strTagEnd = tagTDEND
      End If
      intRowSpan = 0
      blnDone = True
      Do While blnDone
        intNext = intRow + intRowSpan + 1
        If intNext <= intRowMax Then
          If strTblArray(intNext, intCol) = 
FILLER Then
            intRowSpan = intRowSpan + 1
          Else
            blnDone = False
          End If
        Else
          blnDone = False
        End If
      Loop
      If intRowSpan > 0 Then
        intRowSpan = intRowSpan + 1
        strTagBeg = Left(strTagBeg, Len(strTagBeg) - 1) _
                    & " ROWSPAN=""" & intRowSpan & """>"
      End If
      intColSpan = 0
      blnDone = True
      Do While blnDone
        intNext = intCol + intColSpan + 1
        If intNext <= intColMax Then
          If strTblArray(intRow, intNext) = 
FILLER Then
            intColSpan = intColSpan + 1
          Else
            blnDone = False
          End If
        Else
          blnDone = False
        End If
      Loop
      If intColSpan > 0 Then
        intColSpan = intColSpan + 1
        strTagBeg = Left(strTagBeg, 
Len(strTagBeg) - 1) _
                    & " COLSPAN=""" & intColSpan & """>"
      End If
      Print #1, strTagBeg & _
                strTblArray(intRow, intCol) & strTagEnd
    End If
  Next intCol
  Print #1, tagTREND
Next intRow

Print #1, tagTBLEND

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
51K
13 августа 2009 года
avzhur
1 / / 13.08.2009
Мне нравитсяМне не нравится
13 августа 2009, 15:41:10
При объединений ячеек по горизонтале в Ворде все это не работает, к сожалению. а нужно...
avzhur
avzhur@mail.ru
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог