Canvai Databank

http://www.niemannross.com/developer/promoterbot/flexPluginBrowser/main.html

This took a while to find. It’s here now to prevent it from being lost. I changed the sample to save as word doc instead of a txt file.

http://msdn2.microsoft.com/en-us/library/aa662158(office.10).aspx

Sub SaveAsDocFile()
Dim strDocName As String
Dim intPos As Integer’Find position of extension in filename
strDocName = ActiveDocument.Name
intPos = InStrRev(strDocName, “.”)If intPos = 0 Then

‘If the document has not yet been saved
‘Ask the user to provide a filename
strDocName = InputBox(”Please enter the name ” & _
“of your document.”)
Else

‘Strip off extension and add “.txt” extension
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & “.txt”
End If

‘Save file with new extension
ActiveDocument.saveas FileName:=strDocName, _
FileFormat:=wdFormatDocument
End Sub

 http://www.aiga.org/content.cfm/content.cfm/standard-agreement

To Simulate texture of a lith print with Noise Filter

1. Create new layer (as smart object) and fill with neutral gray (128, 128, 128)
   • Gray is the pass through color for the “light” blend modes (Overlay, Softlight, Hard light..etc)
2. Put in some nois
   • Filter>Texture>Grain
   • Filter>Noise>Add Noise
3. Put in Overlay, or Soft Light to keep color the same. Vivid light will add saturation

1. Duplicate layer
2. Set layer to Overlay
3. Apply Filter > Other > High Pass to top layer
4. (Optional) change layer to smart object for more flexibility