Hej!VBA-skript som inte fungerar i 2003
Jag försöker konvertera följande VBA-kod (Word) till Office 2003 Word. Problemet är att stilen inte verkar bli tillagd i styles-collection förräns efter exekveringen vilket skapar problem.. Det fungerade i 2000.
<code>
sNotTranslateStyle = ActiveDocument.Styles.Add (Name:="tw4winExternal", Type:=wdStyleTypeCharacter)
ActiveDocument.Styles("tw4winExternal").BaseStyle = "Default Paragraph Font"
ActiveDocument.Styles("tw4winExternal").Font.Color = wdColorGray50
</code>
Nån som har nån idé?
Mvh
PeterSv: VBA-skript som inte fungerar i 2003
Dim styNotTranslateStyle As Style
Set styNotTranslateStyle = ActiveDocument.Styles.Add(Name:="tw4winExternal", _
Type:=wdStyleTypeCharacter)
With styNotTranslateStyle
.BaseStyle = wdStyleDefaultParagraphFont
.Font.Color = wdColorGray50
End With
Set styNotTranslateStyle = Nothing
Att sätta BaseStyle är iofs inte nödvändigt eftersom den blir "Default paragraph font" default när man skapar en ny tecken-style.