Want to Stop Importing Word Document Content as Wiki Markup

Question

When I import a Word document into Confluence, several wiki markup macros appear. (Something as simple as importing a bracket "[" will trigger the macro.)

Is there any way to stop this behavior? I don't want any wiki macro content in my pages after importing documents.

Deniz Altin · Answer

Thanks a lot, Brock! Much appreciated

Brock Price_mil4qn · Answer

Hi Deniz.  Below is what I used.  It was far from a silver bullet, but it did help.  Some characters I couldn't escape.  I suspect I commented out code (below) that wasn't working.  If you use, please test prior to using.

Sub EscapeSpecialChar()
'This code will escape these characters: % | { @ # *

ActiveDocument.Select

' With Selection.Find
' .ClearFormatting
' .text = "]"
' With .Replacement
' .ClearFormatting
' .text = "U+0005D"
' End With
' .Execute Replace:=wdReplaceAll
' End With

' With Selection.Find
' .ClearFormatting
' .text = "["
' With .Replacement
' .ClearFormatting
' .text = "U+0005B"
' End With
' .Execute Replace:=wdReplaceAll
' End With

With Selection.Find
.ClearFormatting
.text = "%"
With .Replacement
.ClearFormatting
.text = "\%"
End With
.Execute Replace:=wdReplaceAll
End With

ActiveDocument.Select

With Selection.Find
.ClearFormatting
.text = "|"
With .Replacement
.ClearFormatting
.text = "\|"
End With
.Execute Replace:=wdReplaceAll
End With

' With Selection.Find
' .ClearFormatting
' .text = ":"
' With .Replacement
' .ClearFormatting
' .text = ":"
' End With
' .Execute Replace:=wdReplaceAll
' End With

With Selection.Find
.ClearFormatting
.text = "{"
With .Replacement
.ClearFormatting
.text = "\{"
End With
.Execute Replace:=wdReplaceAll
End With

With Selection.Find
.ClearFormatting
.text = "@"
With .Replacement
.ClearFormatting
.text = "\@"
End With
.Execute Replace:=wdReplaceAll
End With

With Selection.Find
.ClearFormatting
.text = "#"
With .Replacement
.ClearFormatting
.text = "#"
End With
.Execute Replace:=wdReplaceAll
End With

With Selection.Find
.ClearFormatting
.text = "*"
With .Replacement
.ClearFormatting
.text = "*"
End With
.Execute Replace:=wdReplaceAll
End With

End Sub

Deniz Altin · Answer

@Brock Price Do you happen to have the VBA code lying around somewhere?