想在桥牌牌符图片前批量加入空格，如何实现？谢谢！

wdpfox

想在桥牌牌符图片前批量加入2个空格，如何实现？谢谢！

ming0018

    Dim myShape As InlineShape
    Dim myDoc As Document
    Set myDoc = ActiveDocument
    If myDoc.InlineShapes.Count = 0 Then Exit Sub
    For Each myShape In myDoc.InlineShapes
        myShape.Range.InsertBefore "  "
    Next

此代码，黑桃前面也会加两空格，然而你文档里面的黑桃前面又没有空格，所以请表达清楚。

ming0018

    Dim myShape As InlineShape
    Dim myDoc As Document
    Set myDoc = ActiveDocument
    If myDoc.InlineShapes.Count = 0 Then Exit Sub
    For Each myShape In myDoc.InlineShapes
        myShape.Range.InsertBefore "  "
    Next


你文档里面黑桃前面为什么没有加两空格？

hhjjpp

插入符号还有救
图形就麻烦了

wdpfox

黑桃前是不加的。想学习move 语句格式，不知能否搞定？

wdpfox

另外：牌符有AKQJT1234567890种类。

duquancai

1. Sub test()
   
2.     Dim p As Paragraph, sp As InlineShape
   
3.     For Each p In ActiveDocument.Paragraphs
   
4.         With p.Range
   
5.             For Each sp In .InlineShapes
   
6.                 n = n + 1
   
7.                 If n = 2 Or n = 3 Then
   
8.                     With sp.Range
   
9.                         .End = .Start
   
10.                         .MoveStartWhile Chr(32), wdBackward
    
11.                         .Text = Empty
    
12.                         .Text = Space(2)
    
13.                     End With
    
14.                 End If
    
15.             Next
    
16.         End With
    
17.         n = 0
    
18.     Next
    
19. End Sub

复制代码

wdpfox

谢谢杜老师，辛苦了！也谢谢所有回帖的老师的！

413191246se

楼主，你应该说，杜老师代码运行成功（或OK！）问题解决，并致谢，这样才好；否则，我会误以为你没测试 杜老师 代码呢！

duquancai

413191246se 发表于 2018-4-12 00:18
楼主，你应该说，杜老师代码运行成功（或OK！）问题解决，并致谢，这样才好；否则，我会误以为你没测试 杜 ...

也不算是 OK！，有个坑。
所以楼主没说ok，我理解。
楼主的问题 是能解决的，不过得换一个思路，代码量 还会少一些，速度更快一些，坑更少一些。