2013-07-03 5 views
1

Je suis en train d'écrire dans un document Word via VB.net et pour cela j'utilise contentControls dans mon document Word, mais parfois je dois supprimer un ContentControl ou un autre via le code VB.ligne blanche après la suppression ContentControl dans le mot

C'est un peu facile avec contentcontrol.delete mais quand contentControl contient multipleline et que je veux le supprimer, il laisse une ligne vide. Comment puis-je éviter ça?

+0

vous supprimez uniquement 'contentControl object' tout en gardant le texte CC dans le document, ai-je raison? –

+0

Nop Désolé ... Mon code est 'contentcontrol.delete (true)' Donc, je supprime le contentcontrol et le texte CC mais il reste une ligne vide. – Rave

Répondre

3

Je vais vous donner quelques conseils basés sur VBA que j'espère que vous pourriez facilement convertir en vb.net et votre solution.

Vous devez couvrir la plage complète de ContentControl, y compris le début et la fin de l'objet. Vous pouvez le faire de cette façon (code VBA pour la première CC ActiveDocument):

With ActiveDocument.ContentControls(1) 
    'just to make a presentation- let's select range to be deleted 
    ActiveDocument.Range(.Range.Start - 1, .Range.End + 2).Select 
    'and we delete selection 
    Selection.Delete 
End With 

Évidemment, vous pouvez combiner .Select et .Delete lignes en un seul pour éviter la sélection de cette façon:

With.... and so on 
    ActiveDocument.Range(.Range.Start - 1, .Range.End + 2).Delete 
End with 
+0

Très agréable, cela a fonctionné parfaitement. Et le deuxième code est plus court et fonctionne aussi .. Merci – Rave

+0

D'où viennent les -1 et +2? Comment savez-vous que cela ne supprimera pas le texte au lieu de simplement le mettre en forme? –

+0

c'est juste une suggestion, vous devriez faire quelques expériences à ce sujet. La solution suppose que vous avez des espaces avant et après que ContentControl supprime de l'espace supplémentaire. Mais comme je l'ai dit, faites quelques tests avant la mise en œuvre. –

Questions connexes