Здравствуйте,
Sunday, January 25, 2004, 12:03:04 PM, вы писали:
SK> Уважаемые господа, подскажите какое-нибудь сpедство для пеpевода чеpтежей из SK> PCAD 2002(SP1) в PCAD2001. Это можно сделать pуками - сохpаниться в ASCII, а SK> потом убpать все те стpочки на котоpые оно pугается, однако чеpтеж сложный и я SK> боюсь что-то в нем потеpять, а потом не заметить. SK> Собственно пpоблема в том, что мне не удалось установить PCAD2002 под Win98 на SK> pаботе, хотя дома вpоде-бы поставился. Там вылетает сообщение о том, что мало SK> памяти... Может кто сталкивался с подобной пpоблемой - поделитесь, plz, SK> лекаpством для PCAD2002 под Win98. Что самое интеpесное, под XP встает отлично.
На Yahoo есть вордовский макрос для этого.
Адрес в сети:
formatting link
Save your 2002 database in ASCII, close it, load it into Word, run the macro, save, then reload in PCAD. Occasionally, the macro leaves an extra left parenthesis at the end of the file. It will look like this: ) ) )
Instead of: ) )
Just delete one of them.
I didn't mention that you need to open the VB editor and import the module first.
Текст макроса:
Attribute VB_Name = "convert2002" Sub Cnv2002to2001() ' ' Cnv2002to2001 Macro ' Macro recorded 09/05/02 by Tony Chilco ' Dim NotFound As Boolean
NotFound = False
Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .text = "(thermalWidth ^#^#.^#))" .Replacement.text = ")" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Selection.HomeKey Unit:=wdStory
Do Selection.Find.ClearFormatting With Selection.Find .text = "(viaThermalType " .Replacement.text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Execute = False Then NotFound = True GoTo stopfind1 End If Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Loop Until NotFound stopfind1: NotFound = False Selection.HomeKey Unit:=wdStory Do Selection.Find.ClearFormatting With Selection.Find .text = "(netColor " .Replacement.text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With If Selection.Find.Execute = False Then NotFound = True GoTo stopfind2 End If Selection.MoveLeft Unit:=wdWord, Count:=1 Selection.EndKey Unit:=wdLine, Extend:=wdExtend Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.HomeKey Unit:=wdLine stopfind2: Loop Until NotFound Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting With Selection.Find .text = "(autoPlowCopperPours " .Replacement.text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 Selection.Find.ClearFormatting With Selection.Find .text = "odbSettings" .Replacement.text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.HomeKey Unit:=wdLine Selection.MoveDown Unit:=wdLine, Count:=3, Extend:=wdExtend Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveDown Unit:=wdLine, Count:=1 End Sub