如何将word文档转成Wiki格式

h3. 如何将 Word 文档转成 Wiki 格式

h4. 在 Word 中添加宏

进入"工具"-->"宏"-->"宏"，打开如下窗口：

输入宏名，然后点击"创建" ，

在新打开的 Visual Basic 编辑窗口中，填入以下内容：

Sub Word2Textile()

'

' Word2Textile Macro

'TextileEscapeChars

TextileConvertHyperlinks

TextileConvertH1

TextileConvertH2

TextileConvertH3

TextileConvertH4

TextileConvertH5

TextileConvertItalic

TextileConvertBold

TextileConvertUnderline

ActiveDocument.Content.Copy

Application.ScreenUpdating = True

End Sub

Private Sub TextileConvertH1()

ReplaceHeading wdStyleHeading1, "h1. "

End Sub

Private Sub TextileConvertH2()

ReplaceHeading wdStyleHeading2, "h2. "

End Sub

End Sub

Private Sub TextileConvertH5()

ReplaceHeading wdStyleHeading5, "h5. "

End Sub

.ClearFormatting

.Font.Bold = True

.Text = ""

.Format = True

.MatchSoundsLike = False

.MatchAllWordForms = False

.Forward = True

.Wrap = wdFindContinue

' Just process the chunk before any newline characters

' We'll pick-up the rest with the next search

.Collapse

' Don't bother to markup newline characters (prevents a loop, as well)

If Not .Text = vbCr Then

.InsertBefore "*"

.InsertAfter "*"

End If

Loop

End With

End Sub

Private Sub TextileConvertItalic()

ActiveDocument.Select

.ClearFormatting

.Font.Italic = True

.MatchCase = False

.MatchWholeWord = False

.MatchWildcards = False

.MatchSoundsLike = False

.MatchAllWordForms = False