Word 2007 VBA pour insérer du texte

Je veux insérer du texte avec mise en forme personnalisée, puis changez le style de police à ce qu'il était avant que le code a été exécuté.

Dim myText As String
Dim oldFont As Object
'Save old font    
Set oldFont = Selection.Font 

'Insert text with custom font
myText = "CUSTOM STRING"
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 26
Selection.Font.Bold = True
Selection.TypeText (myText)

'Revert font back to original
Set Selection.Font = oldFont

Quelqu'un peut-il expliquer une façon de faire ce que je suis à la recherche d'?

Edit: j'aurais du être plus précis. Si je suis saisie de texte, j'ai une certaine mise en forme que je suis taper dans ce qui est montré sur l'Onglet Accueil (par exemple. Comic Sans Ms, Taille 22, En Gras). Lorsque j'insère du texte avec le code, ce qui modifie la mise en forme que je suis en tapant avec, donc, si je continue à taper, il sera dans le NOUVEAU type de police, pas le Comic Sans MS. je suis en train de le faire donc si je continue à taper après, j'ai inséré le texte via le code VBA, il gardera ma vieille mise en forme.

OriginalL'auteur | 2009-11-16

  1. 4

    Une solution simple est de stocker toutes les propriétés que vous allez changer, et de les remettre à la fin:

    Dim myText As String
Dim oldFont As String
Dim oldSize As Integer
Dim oldBold As Boolean

'Save old font
oldFont = Selection.Font.Name
oldSize = Selection.Font.Size
oldBold = Selection.Font.Bold

'Insert text with custom font
myText = "CUSTOM STRING"
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 26
Selection.Font.Bold = True
Selection.TypeText (myText)

'Revert font back to original
Selection.Font.Name = oldFont
Selection.Font.Bold = oldBold
Selection.Font.Size = oldSize

    OriginalL'auteur stephan

  2. 2

    Le truc que j'ai trouver utile lors de l'écriture de macros Word est tout simplement de reproduire ce que je ferais si j'étais à l'aide de la Parole de l'interface graphique. Quand je veux coller du texte formaté, mais garder ma forme actuelle, je tapez un espace, collez-le dans le texte avant de l'espace, puis supprimez l'espace. Comme l'espace est mon format original c'est comment je le faire revenir.

    Donc, en faisant ce qu'une macro:

    'Type a space
Selection.TypeText Text:=" "

'Move Cursor back one character
Selection.MoveLeft Unit:=wdCharacter, Count:=1

'Insert text with custom font
myText = "CUSTOM STRING"
Selection.Font.Name = "Comic Sans MS"
Selection.Font.Size = 26
Selection.Font.Bold = True
Selection.TypeText (myText)

'Move Cursor forward one character
Selection.MoveRight Unit:=wdCharacter, Count:=1

'Delete the space
Selection.TypeBackspace

    Ce sera de préserver toutes les propriétés du texte que vous avez eu à l'origine.

    OriginalL'auteur Dave Webb

  3. 0

    Je n'arrive pas à comprendre exactement ce que vous essayez de faire, là, mais Selection.TypeText un effondrement de la sélection du point d'insertion, de sorte que vous avez effectivement pas de caractères sélectionné par le temps que vous essayez de "rétablir la police". Vous avez besoin soit de re-sélectionner le texte ou utiliser un Range objet au lieu de la Sélection pour identifier le texte en être affectée.

    La raison pour laquelle vous obtenez une erreur à la ligne:

    Set Selection.Font = oldFont

    ...est - exceptionnellement, et paradoxalement - vous ne devez pas utiliser le Set mot-clé lors de l'affectation à la Font de la propriété. Plutôt que de stocker une référence à un Font objet, la cession s'applique simplement les propriétés de la police.

    C'est très déroutant de conception d'API, d'autant plus à confusion, car vous ne besoin d'utiliser le Set mot clé lors de l' lecture la Font bien, et parce que ne assigner une référence à un Font objet!

    Et c'est l'autre raison pour laquelle votre code ne fonctionne pas - vous êtes en prenant une référence à un Font objet que vous pouvez ensuite modifier et de vos points de référence à la même Font objet qui a changé aujourd'hui.

    Ce que vous devez faire est de créer un nouveau Font objet pour stocker la police d'origine détails, comme suit:

    Set oldFont = Selection.Font.Duplicate
    Désolé, j'aurais dû être plus précis. Si je suis saisie de texte, j'ai une certaine mise en forme que je suis taper dans ce qui est montré sur l'Onglet Accueil (par exemple. Comic Sans Ms, Taille 22, En Gras). Quand j'ai insérer du texte avec la macro, ce qui modifie la mise en forme que je suis en tapant avec, donc, si je continue à taper, il sera dans le NOUVEAU type de police, pas le Comic Sans MS. je suis en train de le faire donc si je continue à taper après, j'ai inséré le texte via macro, il gardera ma vieille mise en forme.

    OriginalL'auteur Gary McGill

  4. 0

    La Sélection.Police de caractères de l'objet est en lecture seule.

    Cela signifie qu'il n'y a aucun moyen de restaurer tous les paramètres d'affectation. Depuis que vous êtes seulement en changeant un peu les propriétés de la solution la plus simple est d'enregistrer chaque valeur et de les restaurer par la suite que stephan suggère.

    I. e. Enregistrer les propriétés:

    oldFontName = Selection.Font.Name
oldFontSize = Selection.Font.Size
oldFontBold = Selection.Font.Bold

    Avez-vous des trucs et puis restaurer les propriétés:

    Selection.Font.Name = oldFontName
Selection.Font.Size = oldFontSize
Selection.Font.Bold = oldFontBold

    OriginalL'auteur Peter Olsson

  5. 0

    Voir, si ce bout de code vous donne suffisamment de soupçon.

    CopyFormat ramasse la mise en forme existante par un déplacement vers la gauche du curseur.

    PasteFormat applique à un personnage & à partir de là, la mise en forme d'origine (qui a été copié) entre en vigueur.

    Selection.MoveLeft unit:=wdWord, Count:=1
Selection.EndKey Extend:=wdExtend

Selection.CopyFormat
Selection.MoveRight unit:=wdWord

'* New text and new formatting
Selection.Font.Bold = True
Selection.Font.Italic = True
Selection.Font.Size = 28
Selection.TypeText "hello world"

Selection.TypeText " "
Selection.MoveLeft unit:=wdCharacter, Count:=1
Selection.EndKey Extend:=wdExtend
Selection.PasteFormat


Selection.TypeText "original formatting here"

    OriginalL'auteur shahkalpesh

  6. 0
    Sub No_Format()
'
' No_Format Macro
'
'
    Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub

    cela vous permettra de coller le texte et l'adoption de la nouvelle mise en forme.

    OriginalL'auteur Simon