Just for people's reference, attached is the updated notebook.

And here is the associated function:

ClearAll[PsychoSentenceSVG, modifyWords];

modifyWords[{word1_String, word2_String}, {style1_, style2_}] :=

  Switch[{style1, style2},

   {None, None},
   {word1, word2},

   {None, _},
   {word1, Style[word2, style2]},

   {_, None},
   {Style[word1, style1], word2},

   {_, _},
   {Style[word1, style1], Style[word2, style2]}
   ];


Options[PsychoSentenceSVG] = {ReplacementCharacter -> "-", 
   FontFamily -> "Courier", FontSize -> 12};

PsychoSentenceSVG[sentence_String, path_String, 
   fileName_String, {style1_, style2_}, OptionsPattern[]] :=

  Module[{splitSentence, dashedTemplate, stringTable, 
    processedSentences, replacementCharacter, fontFamily, fontSize},

   replacementCharacter = OptionValue[ReplacementCharacter];
   fontFamily = OptionValue[FontFamily];
   fontSize = OptionValue[FontSize];

   splitSentence = Partition[StringSplit[sentence], 2, 2, 1, ""];

   dashedTemplate = 
    Map[StringReplace[#, _ -> replacementCharacter] &, 
     splitSentence, {2}];

   splitSentence = modifyWords[#, {style1, style2}] & /@ splitSentence;

   stringTable = Table[
     Riffle[Flatten[
       ReplacePart[dashedTemplate, i -> splitSentence[[i]]]], 
      " "], {i, Length[splitSentence]}];

   processedSentences = Row /@ stringTable;
   processedSentences = 
    TextCell[#, "Text", FontFamily -> fontFamily, 
       FontSize -> fontSize, ShowStringCharacters -> False] & /@ 
     processedSentences;

   MapIndexed[
    Export[FileNameJoin[{path, 
        "s" <> fileName <> "w" <> ToString[#2[[1]]] <> ".svg"}], #1, 
      "SVG"] &, processedSentences]

   ];

Attachments:

Thanks Bill.

I absolutely will. My adviser will love this. He already uses Mathematica to do all of his cognitive modelling.

Would it be too much to ask to ask how to put a period at the end of each sentences and accept an argument that defines how the sentences should be named?

Ideally, I could take a matrix as below,

[Sentence | SentenceNumber | Factor 1 (1 grey, 2 black) | Factor 2 (1 grey, 2 black)]

plug that array into the function, and generate all of my sentence images at once along with a matrix as below,

[Sentence | SentenceNumber | Factor 1 (1 grey, 2 black) | Factor 2 (1 grey, 2 black) | /Images/sXwY.svg]

where X is the sentence number and Y is the window number within that sentence. I feel bad asking for more, haha, but you have already saved me days of work, so I feel it can't hurt to ask.

And hm. I just found out "E-Prime 2.0 allows for image formats .bmp, .jpg, .jpeg, gif, .png, .tif, .tiff, .emf, *.wmf". I can change that part no problem, but do you have a suggestion? The file sizes can't get too big, because we are measuring reaction times, but the clarity of the text is also a critical aspect of the design. Do you have a suggestion? I tried EFM and WFM but they are nasty looking compared to the SVG.

Thanks again, you make me want to read "A New Kind of Science", and I will definitely put a blurb about you in my website with a link to yours.

You are amazing David.

Maybe you like this: Export["pi-shu.svg", Rasterize@"pi.shu.edu.cn"]

Short answer: yes.