Imports System.IO
Imports System.IO.File
AddVbFile "ContentCenter.iLogicVb"
Dim a As String
Dim replacer As New ContentCenterReplace(ThisDoc.Document, ThisApplication, "en-US")
Dim familyName As String
Dim familyName01 As String
Dim familyName02 As String
Dim familyName03 As String
Dim PartNumber As String
Dim PartNumber01 As String
Dim PartNumber02 As String
Dim PartNumber03 As String
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim b As Integer
a = RoundToFraction(LINE_SIZE, 1/32, RoundingMethod.Round)
MessageBox.Show("TEST" & Chr(034) , "Title")
'MessageBox.Show(LINE_SIZE, "Title")
'MessageBox.Show(a, "FRACTION")
If LINE_SIZE = 1.5 Then
familyName = "Shick Blocks:Tube-Pipe Clamps:Liquid Clamp:1''-1.5'' Swing Tri-Clamp"
PartNumber = "LQ600272"
familyName01 = "Shick Blocks:Butterfly Valves:Tuchenhagen:BFV,TUCH,1.5 TC,SS,MAN"
PartNumber01 = "LQ7021065"
familyName02 = "Tube & Pipe:Fittings:Ferrules:Tri-Clamp Ferrule:FERRULE,TRI,S4,1 1/2" & Chr(034) & " X 1 1/8" & Chr(034) & " LG."
PartNumber02 = "LQ600956"
familyName03 = "Shick Blocks:Gasket:LIQUID GASKET:GASKET TRI-CLAMP 1.5'' BUNA"
PartNumber03 = "LQ601049"
Else If LINE_SIZE = 2 Then
familyName = "Shick Blocks:Tube-Pipe Clamps:Liquid Clamp:2'' Swing Tri-Clamp"
PartNumber = "LQ600035"
familyName01 = "Shick Blocks:Butterfly Valves:Tuchenhagen:BFV,TUCH,2 TC,SS,MAN"
PartNumber01 = "LQ7021066"
Else If LINE_SIZE = 3 Then
familyName = "Shick Blocks:Tube-Pipe Clamps:Liquid Clamp:3'' Swing Tri-Clamp"
PartNumber = "LQ601447"
familyName01 = "Shick Blocks:Butterfly Valves:Tuchenhagen:BFV,TUCH,3 TC,SS,MAN"
PartNumber01 = "LQ7021067"
End If
' replacer.Replace("BFV 1", familyName, PartNumber)
'''BFV
For i = 1 To 3
replacer.Replace("BFV " & i, familyName01, PartNumber01)
Next
For j = 1 To 5
replacer.Replace("BIG CLAMP " & j, familyName, PartNumber)
Next
For k = 1 To 6
replacer.Replace("FERR " & k, familyName02, PartNumber02)
Next
For l = 1 To 7
replacer.Replace("BIG GASK " & l, familyName03, PartNumber03)
Next
Yeah, I guess I better give some more context. I'm using iLogic to replace content center components. For some reason ANY content family with " in the familiname won't replace. In the past I've used '' instead of " in the family name but I don't have the luxury of changing these family names. Here is my code so far and I've attached the error I receive