如何转换?

hyncwb

我想将EXCEL表内的"论文题目"和""作者姓名"在WORD里做成目录?请问如何可以快速的实现呢?不需要一项一项粘贴过来的?谢谢!

hyncwb

N4ppgfky.rar (15.88 KB, 下载次数: 14)

2006-8-3 15:40 上传

点击文件名下载附件
如何转换?

c81

没有放好附件。

请不要用中文名试试。

hyncwb

luanTA6H.rar (15.8 KB, 下载次数: 15)

2006-8-3 15:54 上传

点击文件名下载附件
如何转换?

c81

你这不叫目录，是论文“清单”，因为你没用页码。

将Excel中的格式稍改一下，copy到Word中，用一下人工的前导符功能即可。

hyncwb

不好意思,可以说得具体一点吗?人工的前导符功能在哪里?如何使用啊?谢谢

守柔

我给你简单地做了一个代码，请运行之，该代码将自动处理SHEETS（1）中的内容。

 Option Explicit

Sub Example()

'请在EXCEL VBE\工具\引用中勾选对于Microsoft Word 11.0(视版本)Object  Library 的引用

    Dim myWord As Word.Application, myDoc As Word.Document

    Dim xlRange As Range, i As Range, wdRange As Word.Range

    Dim endCell As String, myString As String, aText As String

    On Error Resume Next    '忽略错误

    Set myWord = GetObject(, "Word.Application")    '返回对于Word程序的引用

    If Err.Number <> 0 Then    '如果没有打开的Word程序,则出错

        Err.Clear    '清除错误号

        Set myWord = CreateObject("Word.Application")    '创建一个对于Word程序的引用

    End If

    With Sheets(1)

        endCell = .[A65536].End(xlUp).Address

        Set xlRange = .Range("A4:" & endCell)

    End With

    Set myDoc = myWord.Documents.Add    '新建一个文档

    With myDoc

        For Each i In xlRange

            If i.MergeCells = True Then

                aText = i.Value

                aText = VBA.Mid(aText, 2, Len(aText))

                aText = VBA.LTrim(aText)

                aText = VBA.RTrim(aText)

                myString = myString & aText & Chr(13)

                .Content.InsertAfter myString

                .Paragraphs.Last.Previous(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

                .Paragraphs.Last.Previous(1).Range.Font.Bold = True

                myString = ""

            Else

守柔

接上页：

                aText = i.Offset(, 1).Value

                aText = Application.WorksheetFunction.Text(aText, "[DBNum1]")

                myString = myString & aText & "、" & i.Offset(, 2).Value & vbTab & VBA.RTrim(i.Offset(, 3).Value) & Chr(13)

                .Content.InsertAfter myString

                myString = ""

            End If

        Next

        .Content.Paragraphs.Last.Range.Delete

        .Content.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(14.6) _

                                            , Alignment:=wdAlignTabRight, Leader:=wdTabLeaderMiddleDot

    End With

    myWord.Visible = True    '使Word 程序可见

End Sub

c81

QUOTE:

以下是引用hyncwb在2006-8-3 17:09:34的发言：

不好意思,可以说得具体一点吗?人工的前导符功能在哪里?如何使用啊?谢谢

粗略地作了个教程，你将就着看吧，请用flash播放器播放，点index.swf。

pPlBAbRb.rar (39.93 KB, 下载次数: 12)

2006-8-3 18:28 上传

点击文件名下载附件
如何转换?

hyncwb

谢谢各位大侠,我认真看看先..